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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
Minor cleanup.

Date: Thu Nov  6 04:15:36 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.80 slime/slime.el:1.81
--- slime/slime.el:1.80	Thu Nov  6 03:54:46 2003
+++ slime/slime.el	Thu Nov  6 04:15:36 2003
@@ -2046,10 +2046,13 @@
 The value is (SYMBOL-NAME . DOCUMENTATION).")
 
 (defun slime-autodoc ()
+  "Print some apropos information about the code at point, if applicable."
   (when-bind (sym (slime-function-called-at-point/line))
     (let ((name (symbol-name sym))
           (cache-key (slime-qualify-cl-symbol-name sym)))
-      (or (slime-get-cached-autodoc cache-key)
+      (or (when-bind (documentation (slime-get-cached-autodoc cache-key))
+            (message documentation)
+            t)
           ;; Asynchronously fetch, cache, and display arglist
           (slime-arglist
            name
@@ -2092,8 +2095,7 @@
               (not (slime-connected-p))
               (slime-busy-p))
     (condition-case err
-        (when-bind (documentation (slime-autodoc))
-          (message documentation))
+        (slime-autodoc)
       (error
        (setq slime-autodoc-mode nil)
        (message "Error: %S; slime-autodoc-mode now disabled." err)))))