[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/lisp.el
diff -u emacs/lisp/emacs-lisp/lisp.el:1.42 emacs/lisp/emacs-lisp/lisp.el:1.43
--- emacs/lisp/emacs-lisp/lisp.el:1.42  Tue Oct 24 07:22:48 2000
+++ emacs/lisp/emacs-lisp/lisp.el       Mon Nov 19 17:06:10 2001
@@ -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))