[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-repl-mode-end-of-defun)
(slime-repl-mode-beginning-of-defun): Take an optional argument
which specifies how many defuns it should move. GNU Emacs catches
wrong-number-of-arguments condition and does this by itself, but
XEmacs doesn't.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/03 07:25:24	1.410
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/03 18:53:11	1.411
@@ -1,3 +1,11 @@
+2010-09-03  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-repl.el (slime-repl-mode-end-of-defun)
+	(slime-repl-mode-beginning-of-defun): Take an optional argument
+	which specifies how many defuns it should move. GNU Emacs catches
+	wrong-number-of-arguments condition and does this by itself, but
+	XEmacs doesn't.
+
 2010-09-03  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-kawa.scm (%%runnable): Update for changes in SVN version.
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2010/08/21 06:40:12	1.48
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2010/09/03 18:53:12	1.49
@@ -502,13 +502,17 @@
   (interactive)
   (slime-switch-to-output-buffer))
 
-(defun slime-repl-mode-beginning-of-defun ()
-  (slime-repl-previous-prompt)
-  t)
-
-(defun slime-repl-mode-end-of-defun ()
-  (slime-repl-next-prompt)
-  t)
+(defun slime-repl-mode-beginning-of-defun (&optional arg)
+  (if (and arg (< arg 0))
+      (slime-repl-mode-end-of-defun (- arg))
+      (dotimes (i (or arg 1))
+        (slime-repl-previous-prompt))))
+
+(defun slime-repl-mode-end-of-defun (&optional arg)
+  (if (and arg (< arg 0))
+      (slime-repl-mode-beginning-of-defun (- arg))
+      (dotimes (i (or arg 1))
+        (slime-repl-next-prompt))))
 
 (defun slime-repl-send-string (string &optional command-string)
   (cond (slime-repl-read-mode