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

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

Browse source 
Do not push mark if inhibit-mark-movement is non-nil.
This commit is contained in:
Juri Linkov 2004-09-02 09:43:38 +00:00
parent 74a18969ef
commit 017c959d5d
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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)