[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog slime-editing-commands.el 
Log Message:
* slime-editing-commands.el (slime-beginning-of-defun): Call
beginning-of-defun with call-interactively so that the mark gets
pushed.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/01/23 00:08:08	1.431
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/03/09 20:30:37	1.432
@@ -1,3 +1,9 @@
+2011-03-09  Helmut Eller  <heller at common-lisp.net>
+
+	* slime-editing-commands.el (slime-beginning-of-defun): Call
+	beginning-of-defun with call-interactively so that the mark gets
+	pushed.
+
 2011-01-22  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-repl.el (slime-repl-shortcut-help): Don't make ? an alias
--- /project/slime/cvsroot/slime/contrib/slime-editing-commands.el	2010/05/13 15:31:07	1.12
+++ /project/slime/cvsroot/slime/contrib/slime-editing-commands.el	2011/03/09 20:30:37	1.13
@@ -17,7 +17,8 @@
   (if (and (boundp 'slime-repl-input-start-mark)
            slime-repl-input-start-mark)
       (slime-repl-beginning-of-defun)
-      (beginning-of-defun)))
+    (let ((this-command 'beginning-of-defun)) ; needed for push-mark
+      (call-interactively 'beginning-of-defun))))
 
 (defun slime-end-of-defun ()
   (interactive)