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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-completing-read-internal): Fix from Sean O'Rourke.

Date: Wed Dec  3 15:46:59 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.125 slime/slime.el:1.126
--- slime/slime.el:1.125	Tue Dec  2 08:55:47 2003
+++ slime/slime.el	Wed Dec  3 15:46:58 2003
@@ -2565,13 +2565,13 @@
   ;; the minibuffer.
   (ecase flag
     ((nil) 
-     (let* ((completions (slime-completions string default-package)))
+     (let* ((completions (car (slime-completions string default-package))))
        (try-completion string
 		       (slime-bogus-completion-alist completions))))
     ((t)
-     (slime-completions string default-package))
+     (car (slime-completions string default-package)))
     ((lambda)
-     (member string (slime-completions string default-package)))))
+     (member string (car (slime-completions string default-package))))))
 
 (defun slime-completing-read-symbol-name (prompt &optional initial-value)
   "Read the name of a CL symbol, with completion.  
@@ -2880,7 +2880,7 @@
   (when (not symbol-name)
     (error "No symbol given"))
   (slime-eval-describe 
-   `(swank:documentation-symbol ,symbol-name "(not documented))")))
+   `(swank:documentation-symbol ,symbol-name "(not documented)")))
 
 (defun slime-describe-function (symbol-name)
   (interactive (list (slime-read-symbol-name "Describe symbol: ")))