changeset 57457:8c6dae33cdc3

(mark-sexp): Preserve direction when repeating.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 12 Oct 2004 16:05:55 +0000
parents cadf61c7f4eb
children 4dab182e8b05
files lisp/emacs-lisp/lisp.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp.el	Tue Oct 12 15:47:32 2004 +0000
+++ b/lisp/emacs-lisp/lisp.el	Tue Oct 12 16:05:55 2004 +0000
@@ -75,17 +75,19 @@
 move to with the same argument.
 If this command is repeated, it marks the next ARG sexps after the ones
 already marked."
-  (interactive "p")
+  (interactive "P")
   (cond ((and (eq last-command this-command) (mark t))
+	 (setq arg (if arg (prefix-numeric-value arg)
+		     (if (> (mark) (point)) 1 -1)))
 	 (set-mark
 	  (save-excursion
 	   (goto-char (mark))
-	   (forward-sexp (or arg 1))
+	   (forward-sexp arg)
 	   (point))))
 	(t
 	 (push-mark
 	  (save-excursion
-	    (forward-sexp (or arg 1))
+	    (forward-sexp (prefix-numeric-value arg))
 	    (point))
 	  nil t))))