[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-call-defun): Put the docstring before
the (interactive) form so that "C-h f slime-call-defun" will
return it.


--- /project/slime/cvsroot/slime/slime.el	2007/01/20 15:49:27	1.750
+++ /project/slime/cvsroot/slime/slime.el	2007/01/24 15:12:03	1.751
@@ -7077,8 +7077,8 @@
   (slime-eval-print string))
 
 (defun slime-call-defun ()
-  (interactive)
   "Insert a call to the function defined around point into the REPL."
+  (interactive)
   (let ((toplevel (slime-parse-toplevel-form)))
     (unless (and (consp toplevel)
                  (member (car toplevel) '(:defun :defmethod :defgeneric))