[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv23438

Modified Files:
	ChangeLog swank-fancy-inspector.lisp 
Log Message:
* swank-fancy-inspector.lisp (docstring-ispec): Don't insert an
unnecessary space.
(emacs-inspect): Delete unnecessary "it" in [... it]
buttons.
Don't capitalize every word in some messages.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/06/15 08:50:29	1.393
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/07/02 11:44:15	1.394
@@ -1,3 +1,11 @@
+2010-07-02  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-fancy-inspector.lisp (docstring-ispec): Don't insert an
+	unnecessary space.
+	(emacs-inspect): Delete unnecessary "it" in [... it]
+	buttons.
+	Don't capitalize every word in some messages.
+
 2010-06-15  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-asdf.lisp (asdf-central-registry): Use an exported
--- /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2010/05/29 05:40:18	1.28
+++ /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2010/07/02 11:44:15	1.29
@@ -23,7 +23,7 @@
                                   (symbol-value symbol) :newline nil)
                 ;; unbinding constants might be not a good idea, but
                 ;; implementations usually provide a restart.
-                `(" " (:action "[unbind it]"
+                `(" " (:action "[unbind]"
                                ,(lambda () (makunbound symbol))))
                 '((:newline))))
 	      (t '("It is unbound." (:newline))))
@@ -40,21 +40,20 @@
 			  (:value ,(macro-function symbol)))
 			`("It is a function: " 
 			  (:value ,(symbol-function symbol))))
-		    `(" " (:action "[unbind it]"
+		    `(" " (:action "[unbind]"
 				   ,(lambda () (fmakunbound symbol))))
 		    `((:newline)))
 	    `("It has no function value." (:newline)))
-	(docstring-ispec "Function Documentation" symbol 'function)
+	(docstring-ispec "Function documentation" symbol 'function)
 	(when (compiler-macro-function symbol)
-          
 	    (append
              (label-value-line "It also names the compiler macro"
                                (compiler-macro-function symbol) :newline nil)
-             `(" " (:action "[remove it]"
+             `(" " (:action "[remove]"
                             ,(lambda ()
                                      (setf (compiler-macro-function symbol) nil)))
                    (:newline))))
-	(docstring-ispec "Compiler Macro Documentation" 
+	(docstring-ispec "Compiler macro documentation" 
 			 symbol 'compiler-macro)
 	;;
 	;; Package
@@ -64,10 +63,10 @@
                        (:value ,package ,(package-name package))
                        ,@(if (eq :internal status) 
                              `(" "
-                               (:action "[export it]"
+                               (:action "[export]"
                                         ,(lambda () (export symbol package)))))
                        " "
-                       (:action "[unintern it]"
+                       (:action "[unintern]"
                                 ,(lambda () (unintern symbol package)))
                        (:newline))
             '("It is a non-interned symbol." (:newline)))
@@ -97,7 +96,7 @@
 	      75)
 	   (list label ": " docstring '(:newline)))
 	  (t 
-	   (list label ": " '(:newline) "  " docstring '(:newline))))))
+	   (list label ":" '(:newline) "  " docstring '(:newline))))))
 
 (unless (find-method #'emacs-inspect '() (list (find-class 'function)) nil)
   (defmethod emacs-inspect ((f function))