diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-04-19 19:08:28 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-04-19 19:08:28 +0000 |
| commit | 92d2bc08426a92074d0fa9bbcb12b423cee9ba7a (patch) | |
| tree | 7e7f887d7d8d903d8624789f28d801bf7191f0f6 /lisp/progmodes/inf-lisp.el | |
| parent | c16c855b51578fb79f0323593a8a9e4c86327258 (diff) | |
| download | emacs-92d2bc08426a92074d0fa9bbcb12b423cee9ba7a.tar.gz | |
(inferior-lisp-mode): Don't set
non-existing variable comint-input-sentinel.
(inferior-lisp-args-to-list): Removed.
(inferior-lisp): Use split-string instead of
inferior-lisp-args-to-list.
Diffstat (limited to 'lisp/progmodes/inf-lisp.el')
| -rw-r--r-- | lisp/progmodes/inf-lisp.el | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el index 08eddc47869..09bbb9674d9 100644 --- a/lisp/progmodes/inf-lisp.el +++ b/lisp/progmodes/inf-lisp.el @@ -255,7 +255,6 @@ to continue it." (use-local-map inferior-lisp-mode-map) ;c-c c-k for "kompile" file (setq comint-get-old-input (function lisp-get-old-input)) (setq comint-input-filter (function lisp-input-filter)) - (setq comint-input-sentinel 'ignore) (run-hooks 'inferior-lisp-mode-hook)) (defun lisp-get-old-input () @@ -282,7 +281,7 @@ of `inferior-lisp-program'). Runs the hooks from (read-string "Run lisp: " inferior-lisp-program) inferior-lisp-program))) (if (not (comint-check-proc "*inferior-lisp*")) - (let ((cmdlist (inferior-lisp-args-to-list cmd))) + (let ((cmdlist (split-string cmd))) (set-buffer (apply (function make-comint) "inferior-lisp" (car cmdlist) nil (cdr cmdlist))) (inferior-lisp-mode))) @@ -293,22 +292,6 @@ of `inferior-lisp-program'). Runs the hooks from ;;;###autoload (defalias 'run-lisp 'inferior-lisp) -;;; Break a string up into a list of arguments. -;;; This will break if you have an argument with whitespace, as in -;;; string = "-ab +c -x 'you lose'". -(defun inferior-lisp-args-to-list (string) - (let ((where (string-match "[ \t]" string))) - (cond ((null where) (list string)) - ((not (= where 0)) - (cons (substring string 0 where) - (inferior-lisp-args-to-list (substring string (+ 1 where) - (length string))))) - (t (let ((pos (string-match "[^ \t]" string))) - (if (null pos) - nil - (inferior-lisp-args-to-list (substring string pos - (length string))))))))) - (defun lisp-eval-region (start end &optional and-go) "Send the current region to the inferior Lisp process. Prefix argument means switch to the Lisp buffer afterwards." |