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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-complete-symbol*): Bind comint-completion-addsuffix so
unambiguous or exact completion closes the string automatically.

Date: Thu Dec 16 23:24:41 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.442 slime/slime.el:1.443
--- slime/slime.el:1.442	Thu Dec 16 22:08:02 2004
+++ slime/slime.el	Thu Dec 16 23:24:41 2004
@@ -4502,7 +4502,9 @@
   ;; NB: It is only the name part of the symbol that we actually want
   ;; to complete -- the package prefix, if given, is just context.
   (when (save-excursion (re-search-backward "\"[^ \t\n]+\\=" nil t))
-    (return-from slime-complete-symbol* (comint-dynamic-complete-as-filename)))
+    (return-from slime-complete-symbol* 
+      (let ((comint-completion-addsuffix '("/" . "\"")))
+        (comint-dynamic-complete-as-filename))))
   (let* ((end (move-marker (make-marker) (slime-symbol-end-pos)))
          (beg (move-marker (make-marker) (slime-symbol-start-pos)))
          (prefix (buffer-substring-no-properties beg end))