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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-complete-symbol*-fancy): New variable to enable extra bells and
whistles with slime-complete-symbol*. Currently controls whether to
use arglists semantically.

(slime-complete-symbol*): Avoid displaying an arglist when the
minibuffer is active.

Date: Tue Jan 18 08:01:10 2005
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.448 slime/slime.el:1.449
--- slime/slime.el:1.448	Fri Jan 14 09:08:33 2005
+++ slime/slime.el	Tue Jan 18 08:01:10 2005
@@ -201,6 +201,9 @@
                  (const :tag "Compound" slime-complete-symbol*)
                  (const :tag "Fuzzy" slime-fuzzy-complete-symbol)))
 
+(defcustom slime-complete-symbol*-fancy nil
+  "Use information from argument lists for DWIM'ish symbol completion.")
+
 (defcustom slime-space-information-p t
   "Have the SPC key offer arglist information."
   :type 'boolean
@@ -4526,15 +4529,17 @@
       (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 ")"))))
+             (when slime-complete-symbol*-fancy
+               (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)
+                                         (not (minibuffer-window-active-p)))
+                                (slime-echo-arglist)))
+                     (insert-and-inherit ")")))))
              (slime-complete-restore-window-configuration))
             ;; Incomplete
             (t