[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv31604

Modified Files:
	slime.el 
Log Message:
(slime-post-command-hook): Inhibit unless (still) in slime-mode. Only
call `slime-autodoc-post-command-hook' when `slime-autodoc-mode' is
non-nil.

(slime-setup-command-hooks): Use `make-local-hook' instead of
`make-local-variable'.

Date: Mon Nov 10 14:44:15 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.85 slime/slime.el:1.86
--- slime/slime.el:1.85	Sat Nov  8 13:58:06 2003
+++ slime/slime.el	Mon Nov 10 14:44:15 2003
@@ -419,14 +419,16 @@
   (setq slime-pre-command-actions nil))
 
 (defun slime-post-command-hook ()
-  (when (slime-connected-p)
-    (slime-process-available-input))
-  (slime-autodoc-post-command-hook))
+  (when slime-mode
+    (when (slime-connected-p)
+      (slime-process-available-input))
+    (when slime-autodoc-mode
+      (slime-autodoc-post-command-hook))))
 
 (defun slime-setup-command-hooks ()
   "Setup a buffer-local `pre-command-hook' to call `slime-pre-command-hook'."
-  (make-local-variable 'pre-command-hook)
-  (make-local-variable 'post-command-hook)
+  (make-local-hook 'pre-command-hook)
+  (make-local-hook 'post-command-hook)
   (add-hook 'pre-command-hook 'slime-pre-command-hook)
   (add-hook 'post-command-hook 'slime-post-command-hook))
 
@@ -2114,9 +2116,7 @@
 When `slime-autodoc-mode' is non-nil, print apropos information about
 the symbol at point if applicable."
   (assert slime-mode)
-  (unless (or (not slime-autodoc-mode)
-              (not (slime-connected-p))
-              (slime-busy-p))
+  (when (and (slime-connected-p) (not (slime-busy-p)))
     (condition-case err
         (slime-autodoc)
       (error