[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(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.

Date: Mon Apr  5 02:27:13 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.251 slime/slime.el:1.252
--- slime/slime.el:1.251	Mon Apr  5 02:17:56 2004
+++ slime/slime.el	Mon Apr  5 02:27:12 2004
@@ -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)
 
@@ -819,7 +819,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 ()
@@ -1126,7 +1126,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"