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

[Edi Weitz]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
slime.el (slime-complete-symbol*): Maybe insert closing parenthesis or space after symbol completion has finished.

Date: Fri Jan 14 08:59:21 2005
Author: eweitz

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.597 slime/ChangeLog:1.598
--- slime/ChangeLog:1.597	Fri Jan 14 00:21:16 2005
+++ slime/ChangeLog	Fri Jan 14 08:59:20 2005
@@ -1,3 +1,9 @@
+2005-01-14  Edi Weitz  <edi at agharta.de>
+
+        * slime.el (slime-complete-symbol*): Maybe insert closing
+        parenthesis or space (depending on arglist) after symbol
+        completion has finished.  Optionally also show arglist.
+
 2005-01-13  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-cmucl.lisp (create-socket): The byte-order of the :host


Index: slime/slime.el
diff -u slime/slime.el:1.446 slime/slime.el:1.447
--- slime/slime.el:1.446	Wed Jan 12 18:08:46 2005
+++ slime/slime.el	Fri Jan 14 08:59:20 2005
@@ -4529,6 +4529,15 @@
       (cond ((and (member completed-prefix completion-set)
                   (= (length completion-set) 1))
              (slime-minibuffer-respecting-message "Sole completion")
+             (let ((arglist (slime-get-arglist
+                             (slime-symbol-name-at-point))))
+               (when arglist
+                 (if (cdr (read arglist))
+                   (progn (insert-and-inherit " ")
+                          (when (and slime-space-information-p
+                                     (slime-background-activities-enabled-p))
+                            (slime-echo-arglist)))
+                   (insert-and-inherit ")"))))
              (slime-complete-restore-window-configuration))
             ;; Incomplete
             (t