[slime-cvs] CVS slime
mbaringer
mbaringer at common-lisp.net
Wed Jan 24 15:12:04 UTC 2007
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))
More information about the slime-cvs
mailing list