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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(sldb-format-reference-node): fix for when `what' is a list.

Date: Thu Jun 24 05:57:09 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.335 slime/slime.el:1.336
--- slime/slime.el:1.335	Wed Jun 23 21:32:17 2004
+++ slime/slime.el	Thu Jun 24 05:57:09 2004
@@ -5435,7 +5435,7 @@
           (and (eq where :ansi-cl)
                (symbolp type)
                (member (slime-cl-symbol-name type)
-                       '("function" "special-operator" "macro"))))
+                       '("function" "special-operator" "macro" "section"))))
       `(sldb-default-action sldb-lookup-reference
                             sldb-reference ,ref
                             face sldb-reference-face
@@ -5450,7 +5450,9 @@
 (defun sldb-format-reference-node (what)
   (if (symbolp what)
       (upcase (slime-cl-symbol-name what))
-    what))
+    (if (listp what)
+        (mapconcat (lambda (x) (format "%S" x)) what ".")
+      what)))
 
 (defun sldb-lookup-reference ()
   "Browse the documentation reference at point."
@@ -5458,9 +5460,13 @@
       (get-text-property (point) 'sldb-reference)
     (case where
       (:ansi-cl
-       (hyperspec-lookup (if (symbolp what)
-                             (slime-cl-symbol-name what)
-                           what)))
+       (case type
+         (:section
+          (browse-url (funcall common-lisp-hyperspec-section-fun what)))
+         (t
+          (hyperspec-lookup (if (symbolp what)
+                                (slime-cl-symbol-name what)
+                              what)))))
       (t
        (let ((url (format "%s%s.html" slime-sbcl-manual-root (downcase what))))
          (browse-url url))))))