[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4116

Modified Files:
	slime.el 
Log Message:
(slime-echo-arglist): Simplify, just use slime-autodoc.


--- /project/slime/cvsroot/slime/slime.el	2006/06/18 14:53:27	1.630
+++ /project/slime/cvsroot/slime/slime.el	2006/06/18 18:21:26	1.631
@@ -5297,17 +5297,7 @@
 
 (defun slime-echo-arglist ()
   "Display the arglist of the current form in the echo area."
-  (multiple-value-bind (names arg-indices)
-      (slime-enclosing-operator-names)
-    (when names
-      (slime-eval-async
-       `(swank:arglist-for-echo-area (quote ,names)
-                                     :arg-indices (quote ,arg-indices))
-       (lexical-let ((buffer (current-buffer)))
-         (lambda (message)
-           (if message
-               (with-current-buffer buffer
-                 (slime-message "%s" (slime-fontify-string message))))))))))
+  (slime-autodoc))
 
 (defun slime-arglist (name)
   "Show the argument list for NAME."