Commit 0ba91115 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a1929ae3
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment