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(a)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(a)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(a)gmx.li>