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

(mark-sexp, mark-defun): Activate the mark.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-16 15:28:52 +00:00
parent a1929ae348
commit 0ba911156b
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -55,7 +55,8 @@ move to with the same argument."
(push-mark
(save-excursion
(forward-sexp arg)
(point))))
(point))
nil t))
(defun forward-list (&optional arg)
"Move forward across one balanced group of parentheses.
@ -188,7 +189,7 @@ The defun marked is the one that contains point or follows point."
(interactive)
(push-mark (point))
(end-of-defun)
(push-mark (point))
(push-mark (point) nil t)
(beginning-of-defun)
(re-search-backward "^\n" (- (point) 1) t))