[slime-cvs] CVS slime

trittweiler trittweiler at common-lisp.net
Wed Jan 2 12:44:09 UTC 2008


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

Modified Files:
	slime.el 
Log Message:

* slime.el (slime-print-apropos): Simplified: Don't insert action
  properties anymore for the symbol; they were ignored anyway,
  because `apropos-follow' (bound to RET in the resulting 
  *SLIME Apropos* buffer) looks for buttons only.


--- /project/slime/cvsroot/slime/slime.el	2008/01/02 11:50:57	1.887
+++ /project/slime/cvsroot/slime/slime.el	2008/01/02 12:44:09	1.888
@@ -5930,10 +5930,7 @@
   (dolist (plist plists)
     (let ((designator (plist-get plist :designator)))
       (assert designator)
-      (slime-insert-propertized (list 'face apropos-symbol-face
-                                      'item designator
-                                      'action 'slime-describe-symbol)
-                                designator))
+      (slime-insert-propertized `(face ,apropos-symbol-face) designator))
     (terpri)
     (let ((apropos-label-properties slime-apropos-label-properties))
       (loop for (prop namespace) 




More information about the slime-cvs mailing list