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@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@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."