Commit 017c959d authored by Juri Linkov's avatar Juri Linkov

(beginning-of-defun, end-of-defun):

Do not push mark if inhibit-mark-movement is non-nil.
parent 74a18969
......@@ -176,7 +176,8 @@ If variable `beginning-of-defun-function' is non-nil, its value
is called as a function to find the defun's beginning."
(interactive "p")
(and (eq this-command 'beginning-of-defun)
(or (eq last-command 'beginning-of-defun) (push-mark)))
(or inhibit-mark-movement (eq last-command 'beginning-of-defun)
(push-mark)))
(and (beginning-of-defun-raw arg)
(progn (beginning-of-line) t)))
......@@ -226,7 +227,8 @@ If variable `end-of-defun-function' is non-nil, its value
is called as a function to find the defun's end."
(interactive "p")
(and (eq this-command 'end-of-defun)
(or (eq last-command 'end-of-defun) (push-mark)))
(or inhibit-mark-movement (eq last-command 'end-of-defun)
(push-mark)))
(if (or (null arg) (= arg 0)) (setq arg 1))
(if end-of-defun-function
(if (> arg 0)
......
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