[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