269 |
(use-local-map inferior-lisp-mode-map) ;c-c c-k for "kompile" file |
(use-local-map inferior-lisp-mode-map) ;c-c c-k for "kompile" file |
270 |
(setq comint-get-old-input (function lisp-get-old-input)) |
(setq comint-get-old-input (function lisp-get-old-input)) |
271 |
(setq comint-input-filter (function lisp-input-filter)) |
(setq comint-input-filter (function lisp-input-filter)) |
272 |
(run-hooks 'inferior-lisp-mode-hook)) |
(run-mode-hooks 'inferior-lisp-mode-hook)) |
273 |
|
|
274 |
(defun lisp-get-old-input () |
(defun lisp-get-old-input () |
275 |
"Return a string containing the sexp ending at point." |
"Return a string containing the sexp ending at point." |