procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mark-sexp): Mark more if repeated.

Browse source
This commit is contained in:
Stefan Monnier 2001-11-19 22:06:10 +00:00
parent d3b32bfd6c
commit f07493e7d0
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/lisp.el
View file

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