From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 19 Nov 2001 22:06:10 +0000 (+0000)
Subject: (mark-sexp): Mark more if repeated.
X-Git-Tag: ttn-vms-21-2-B4~18358
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f07493e7d06b48ab0621264472c5c17778815c4b;p=emacs.git

(mark-sexp): Mark more if repeated.
---

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 0cf4f0442dd..ad9218b4068 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -72,10 +72,14 @@ move forward across N balanced expressions."
 (defun mark-sexp (&optional arg)
   "Set mark ARG sexps from point.
 The place mark goes is the same place \\[forward-sexp] would
-move to with the same argument."
+move to with the same argument.
+If this command is repeated, it marks the next ARG sexps after the ones
+already marked."
   (interactive "p")
   (push-mark
     (save-excursion
+      (if (and (eq last-command this-command) (mark t))
+	  (goto-char (mark)))
       (forward-sexp (or arg 1))
       (point))
     nil t))