Mercurial > emacs

changeset 41291:b75e56ea3973

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mark-sexp): Mark more if repeated.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 19 Nov 2001 22:06:10 +0000
parents 9985a0fdea47
children f8c58d8aa72b
files lisp/emacs-lisp/lisp.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))