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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-set-connection-info): Generate a new connection name only if
the implementation-name and the inferior-lisp-name are different.

Date: Fri Nov  4 10:06:30 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.560 slime/slime.el:1.561
--- slime/slime.el:1.560	Mon Oct 31 09:21:52 2005
+++ slime/slime.el	Fri Nov  4 10:06:29 2005
@@ -2036,8 +2036,9 @@
     (setq slime-state-name "")          ; FIXME
     (when-let (p (slime-inferior-process))
       (when-let (name (plist-get (slime-inferior-lisp-args p) ':name))
-        (setf (slime-connection-name)
-              (slime-generate-connection-name (symbol-name name)))))
+        (unless (string= (slime-lisp-implementation-name) name)
+          (setf (slime-connection-name)
+                (slime-generate-connection-name (symbol-name name))))))
     (slime-hide-inferior-lisp-buffer)
     (slime-init-output-buffer connection)
     (run-hooks 'slime-connected-hook)