emacs: Move SLIME hacking to one place.

diff --git a/emacs b/emacs
index 8df0d9ccb9c60cdececa7c825c911294c5a284a8..ba49c51f2635e1acea0d726d11378cfa7bc64102 100644 (file)
--- a/emacs
+++ b/emacs
@@ -524,11 +524,6 @@
 (add-hook 'lisp-interaction-mode-hook 'mdw-fontify-lispy t)
 (add-hook 'slime-repl-mode-hook 'mdw-fontify-lispy t)
 (add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t)
 (add-hook 'lisp-interaction-mode-hook 'mdw-fontify-lispy t)
 (add-hook 'slime-repl-mode-hook 'mdw-fontify-lispy t)
 (add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t)

-(trap
- (if (not mdw-fast-startup)
-     (progn
-       (require 'slime-autoloads)
-       (slime-setup '(slime-autodoc)))))

 (add-hook 'inferior-lisp-mode-hook
          #'(lambda ()
              (local-set-key "\C-m" 'comint-send-and-indent)) t)
 (add-hook 'inferior-lisp-mode-hook
          #'(lambda ()
              (local-set-key "\C-m" 'comint-send-and-indent)) t)


@@ -562,6 +557,12 @@
 
 ;;;----- SLIME setup --------------------------------------------------------
 
 
 ;;;----- SLIME setup --------------------------------------------------------
 

+(trap
+ (if (not mdw-fast-startup)
+     (progn
+       (require 'slime-autoloads)
+       (slime-setup '(slime-autodoc slime-c-p-c)))))
+

 (let ((stuff '((cmucl ("cmucl"))
               (sbcl ("sbcl") :coding-system utf-8-unix)
               (clisp ("clisp") :coding-system utf-8-unix))))
 (let ((stuff '((cmucl ("cmucl"))
               (sbcl ("sbcl") :coding-system utf-8-unix)
               (clisp ("clisp") :coding-system utf-8-unix))))