[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv23858/contrib

Modified Files:
	ChangeLog slime-autodoc.el 
Log Message:
	* slime-autodoc.el (slime-arglist): Pass properly formed argument
	in the rpc call.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/09 14:07:48	1.231
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/11 17:08:21	1.232
@@ -1,3 +1,8 @@
+2009-08-11  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-autodoc.el (slime-arglist): Pass properly formed argument
+	in the rpc call.
+
 2009-08-09  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-fuzzy.el (slime-fuzzy-complete-symbol): change
--- /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2009/05/02 09:11:08	1.16
+++ /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2009/08/11 17:08:21	1.17
@@ -37,12 +37,10 @@
 (defun slime-arglist (name)
   "Show the argument list for NAME."
   (interactive (list (slime-read-symbol-name "Arglist of: ")))
-  (slime-eval-async 
-   `(swank:arglist-for-echo-area (quote (,name)))
-   (lambda (arglist)
-     (if arglist
-         (message "%s" (slime-fontify-string arglist))
-       (error "Arglist not available")))))
+  (let ((arglist (slime-eval `(swank:arglist-for-echo-area '((,name))))))
+    (if arglist
+        (message "%s" (slime-fontify-string arglist))
+        (error "Arglist not available"))))
 
 
 ;;;; Autodocs (automatic context-sensitive help)