Browse files

Replace pointless setfs with setqs.

This must be an artifact of the original author's familiarity with CL.
  • Loading branch information...
1 parent c63972e commit 37bae51429e6cdc664967ce12fa482c245d1af99 @nonsequitur committed Sep 4, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 inf-ruby.el
4 inf-ruby.el
@@ -334,12 +334,12 @@ Then switch to the process buffer."
(let* ((proc (get-buffer-process inf-ruby-buffer))
(comint-filt (process-filter proc))
(kept "") completions)
- (set-process-filter proc (lambda (proc string) (setf kept (concat kept string))))
+ (set-process-filter proc (lambda (proc string) (setq kept (concat kept string))))
(process-send-string proc (format "puts'%s').compact\n"
(ruby-escape-single-quoted seed)))
(while (and (not (string-match inf-ruby-prompt-pattern kept))
(accept-process-output proc 2)))
- (setf completions (cdr (butlast (split-string kept "\r?\n") 2)))
+ (setq completions (cdr (butlast (split-string kept "\r?\n") 2)))
(set-process-filter proc comint-filt)

0 comments on commit 37bae51

Please sign in to comment.