mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(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
Show Stats 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))