[slime-devel] A few minor fixes.

[Lawrence Mitchell]

Here are a few fixes which are sitting around in my local slime
files.  There's also a fix for the ChangeLog entry regarding
slime-autodoc-mode, which Helmut fixed in a cleaner way than me,
the entry now refers to the changed function.

Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.320
diff -u -r1.320 ChangeLog
--- ChangeLog	1 Apr 2004 22:21:23 -0000	1.320
+++ ChangeLog	2 Apr 2004 21:48:36 -0000
@@ -1,7 +1,15 @@
 2004-04-02  Lawrence Mitchell  <wence at gmx.li>
 
-	* slime.el (slime-autodoc): Escape %-signs in arglist before
-	passing to format.
+	* swank.lisp (*swank-pprint-circle*, *swank-pprint-escape*,
+	*swank-pprint-level*, *swank,pprint-length*): Fix typo in
+	docstring.
+
+	* slime.el (slime-arglist): Don't `message' arglist directly, in
+	case it contains %-signs.
+	(slime-repl-output-face): Fix quoting.
+	(slime-symbol-at-point): Call `slime-symbol-name-at-point',
+	rather than ourselves.
+	(slime-check-protocol-version): Docstring fix.
 
 2004-04-02  Helmut Eller  <e9626484 at stud3.tuwien.ac.at>
 

Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.250
diff -u -r1.250 slime.el
--- slime.el	1 Apr 2004 22:20:14 -0000	1.250
+++ slime.el	2 Apr 2004 21:40:13 -0000
@@ -180,7 +180,7 @@
   :group 'slime)
 
 (defface slime-repl-output-face
-  `((t (:inherit font-lock-string-face)))
+  '((t (:inherit font-lock-string-face)))
   "Face for Lisp output in the SLIME REPL."
   :group 'slime)
 
@@ -818,7 +818,7 @@
 
 (defun slime-symbol-at-point ()
   "Return the symbol at point, otherwise nil."
-  (let ((name (slime-symbol-at-point)))
+  (let ((name (slime-symbol-name-at-point)))
     (and name (intern name))))
 
 (defun slime-sexp-at-point ()
@@ -1125,7 +1125,7 @@
 (setq slime-changelog-date (slime-changelog-date))
 
 (defun slime-check-protocol-version (lisp-version)
-  "Signal an error LISP-VERSION equal to `slime-changelog-date'"
+  "Signal an error unless LISP-VERSION is equal to `slime-changelog-date'."
   (unless (and lisp-version (equal lisp-version slime-changelog-date))
     (slime-disconnect)
     (let ((message (format "Protocol mismatch: Lisp: %s  ELisp: %s"

Index: swank.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank.lisp,v
retrieving revision 1.156
diff -u -r1.156 swank.lisp
--- swank.lisp	30 Mar 2004 23:08:31 -0000	1.156
+++ swank.lisp	2 Apr 2004 21:42:37 -0000
@@ -1086,16 +1086,16 @@
 	(prin1-to-string (eval form))))))
 
 (defvar *swank-pprint-circle* *print-circle*
-  "*PRINT-CIRCLE* is bound to this volue when pretty printing slime output.")
+  "*PRINT-CIRCLE* is bound to this value when pretty printing slime output.")
 
 (defvar *swank-pprint-escape* *print-escape*
-  "*PRINT-ESCAPE* is bound to this volue when pretty printing slime output.")
+  "*PRINT-ESCAPE* is bound to this value when pretty printing slime output.")
 
 (defvar *swank-pprint-level* *print-level*
-  "*PRINT-LEVEL* is bound to this volue when pretty printing slime output.")
+  "*PRINT-LEVEL* is bound to this value when pretty printing slime output.")
 
 (defvar *swank-pprint-length* *print-length*
-  "*PRINT-LENGTH* is bound to this volue when pretty printing slime output.")
+  "*PRINT-LENGTH* is bound to this value when pretty printing slime output.")
 
 (defun swank-pprint (list)
   "Bind some printer variables and pretty print each object in LIST."

-- 
Lawrence Mitchell <wence at gmx.li>