50883 consoler ;; SLIME REPL version of <URL:http://www.eurogaran.com/downloads/lisp/emacs/lispmstyle.el> posted on <URL:http://groups.google.com/group/comp.lang.lisp/msg/acc4a822fd814f55?dmode=source> (defun slime-lispmstyle-close-paren (&optional N) (interactive "P") (if (not N) (setq N 1)) (self-insert-command N) (if (slime-input-complete-p slime-repl-input-start-mark (ecase slime-repl-return-behaviour (:send-only-if-after-complete (min (point) slime-repl-input-end-mark)) (:send-if-complete slime-repl-input-end-mark))) (slime-repl-send-input t))) (define-key slime-repl-mode-map ")" 'slime-lispmstyle-close-paren) 3404125388 #emacs