# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1006207570 0
# Node ID b75e56ea3973a5c750b9ba851f7af26f462e918f
# Parent  9985a0fdea4797468c6d43b00f53a764efb1ad5d
(mark-sexp): Mark more if repeated.

diff -r 9985a0fdea47 -r b75e56ea3973 lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Mon Nov 19 21:57:30 2001 +0000
+++ b/lisp/emacs-lisp/lisp.el	Mon Nov 19 22:06:10 2001 +0000
@@ -72,10 +72,14 @@
 (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))