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

(mark-sexp): Preserve direction when repeating.

Browse source
This commit is contained in:
Stefan Monnier 2004-10-12 16:05:55 +00:00
parent 6fb690e298
commit 3610d3c962
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -75,17 +75,19 @@ The place mark goes is the same place \\[forward-sexp] would
move to with the same argument.
If this command is repeated, it marks the next ARG sexps after the ones
already marked."
(interactive "p")
(interactive "P")
(cond ((and (eq last-command this-command) (mark t))
(setq arg (if arg (prefix-numeric-value arg)
(if (> (mark) (point)) 1 -1)))
(set-mark
(save-excursion
(goto-char (mark))
(forward-sexp (or arg 1))
(forward-sexp arg)
(point))))
(t
(push-mark
(save-excursion
(forward-sexp (or arg 1))
(forward-sexp (prefix-numeric-value arg))
(point))
nil t))))