[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(inspect-for-emacs): Don't make whitespace surrounding :action buttons
part of the highlighted region.

Date: Tue Jul 26 23:37:26 2005
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.311 slime/swank.lisp:1.312
--- slime/swank.lisp:1.311	Tue Jul 26 22:51:14 2005
+++ slime/swank.lisp	Tue Jul 26 23:37:26 2005
@@ -3343,9 +3343,11 @@
                        " to the package: "
                        (:value ,package ,(package-name package))
                        ,@(if (eq :internal status) 
-                             `((:action " [export it]"
+                             `(" "
+                               (:action "[export it]"
                                         ,(lambda () (export symbol package)))))
-                       (:action " [unintern it]"
+                       " "
+                       (:action "[unintern it]"
                                 ,(lambda () (unintern symbol package)))
                        (:newline))
             '("It is a non-interned symbol." (:newline)))
@@ -3357,7 +3359,8 @@
 	(if (find-class symbol nil)
 	    `("It names the class " 
 	      (:value ,(find-class symbol) ,(string symbol))
-	      (:action " [remove]"
+              " "
+	      (:action "[remove]"
 		       ,(lambda () (setf (find-class symbol) nil)))
 	      (:newline)))
 	;;
@@ -3478,7 +3481,8 @@
 	    `((:value ,method ,(inspector-princ
 			       ;; drop the name of the GF
 			       (cdr (method-for-inspect-value method))))
-	      (:action " [remove method]" 
+              " "
+	      (:action "[remove method]" 
                        ,(let ((m method)) ; LOOP reassigns method
                           (lambda () 
                             (remove-method gf m))))