diff lisp/emacs-lisp/lisp.el @ 41291:b75e56ea3973

(mark-sexp): Mark more if repeated.

--- 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))