[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(features-for-emacs): New function to avoid keyword/string confusion.
Case doesn't matter since Emacs will downcase them anyway.
(connection-info, sync-features-to-emacs): Use it.  Should fix
highlighting bug reported by Edi Weitz.

Date: Tue Nov  9 11:27:14 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.259 slime/swank.lisp:1.260
--- slime/swank.lisp:1.259	Sun Nov  7 16:07:00 2004
+++ slime/swank.lisp	Tue Nov  9 11:27:13 2004
@@ -912,10 +912,11 @@
 (defslimefun connection-info ()
   "Return a list of the form: 
 \(PID IMPLEMENTATION-TYPE IMPLEMENTATION-NAME FEATURES)."
+  (setq *slime-features* *features*)
   (list (getpid)
         (lisp-implementation-type)
         (lisp-implementation-type-name)
-        (setq *slime-features* *features*)))
+        (features-for-emacs)))
 
 
 ;;;; Reading and printing
@@ -3279,7 +3280,11 @@
   ;; FIXME: *slime-features* should be connection-local
   (unless (eq *slime-features* *features*)
     (setq *slime-features* *features*)
-    (send-to-emacs (list :new-features (mapcar #'symbol-name *features*)))))
+    (send-to-emacs (list :new-features (features-for-emacs)))))
+
+(defun features-for-emacs ()
+  "Return `*slime-features*' in a format suitable to send it to Emacs."
+  *slime-features*)
 
 (add-hook *pre-reply-hook* 'sync-features-to-emacs)