[slime-cvs] CVS slime/contrib

heller heller at common-lisp.net
Mon Sep 10 20:09:53 UTC 2007


Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv8549/contrib

Modified Files:
	ChangeLog slime-references.el 
Log Message:
Fix some of the bugs introduced when moving doc refs to contrib.

* slime.el (sldb-dispatch-extras): Add missing quote.

* slime-references.el (sldb-reference-face): Add missing quote.
(sldb-reference-properties): We are lucky and can use keywords
instead of strings.



--- /project/slime/cvsroot/slime/contrib/ChangeLog	2007/09/10 15:39:05	1.40
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2007/09/10 20:09:52	1.41
@@ -1,5 +1,13 @@
 2007-09-10  Helmut Eller  <heller at common-lisp.net>
 
+	Fix some of the bugs introduced with the last change.
+	
+	* slime-references.el (sldb-reference-face): Add missing quote.
+	(sldb-reference-properties): We are lucky and can use keywords
+	instead of strings.
+
+2007-09-10  Helmut Eller  <heller at common-lisp.net>
+
 	Move SBCL doc references to contrib.
 
 	* slime-references.el: New file.
--- /project/slime/cvsroot/slime/contrib/slime-references.el	2007/09/10 15:39:05	1.1
+++ /project/slime/cvsroot/slime/contrib/slime-references.el	2007/09/10 20:09:52	1.2
@@ -8,7 +8,7 @@
 ;;;
 
 (defface sldb-reference-face 
-  (list (list t (:underline t)))
+  (list (list t '(:underline t)))
   "Face for references."
   :group 'slime-debugger)
 
@@ -64,8 +64,8 @@
   (destructuring-bind (where type what) reference
     (if (or (and (eq where :sbcl) (eq type :node))
             (and (eq where :ansi-cl)
-                 (member type '("FUNCTION" "SPECIAL-OPERATOR" "MACRO"
-				"SECTION" "GLOSSARY" "ISSUE"))))
+                 (memq type '(:function :special-operator :macro
+			      :section :glossary :issue))))
         `(sldb-default-action
           sldb-lookup-reference
           ;; FIXME: this is a hack!  slime-compiler-notes and sldb are a
@@ -123,6 +123,6 @@
 
 (setq slime-tree-printer 'slime-tree-print-with-references)
 
-(add-hook sldb-extras-hooks 'sldb-maybe-insert-references)
+(add-hook 'sldb-extras-hooks 'sldb-maybe-insert-references)
 
 (provide 'slime-references)




More information about the slime-cvs mailing list