mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(beginning-of-defun, end-of-defun): Don't

Browse source 
use inhibit-mark-movement.
This commit is contained in:
Kim F. Storm 2004-12-14 12:18:11 +00:00
parent 24199fe75a
commit 90c08845df
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -192,8 +192,7 @@ open-parenthesis, and point ends up at the beginning of the line.
If variable `beginning-of-defun-function' is non-nil, its value
is called as a function to find the defun's beginning."
(interactive "p")
(or inhibit-mark-movement
(not (eq this-command 'beginning-of-defun))
(or (not (eq this-command 'beginning-of-defun))
(eq last-command 'beginning-of-defun)
(and transient-mark-mode mark-active)
(push-mark))
@ -245,8 +244,7 @@ matches the open-parenthesis that starts a defun; see function
If variable `end-of-defun-function' is non-nil, its value
is called as a function to find the defun's end."
(interactive "p")
(or inhibit-mark-movement
(not (eq this-command 'end-of-defun))
(or (not (eq this-command 'end-of-defun))
(eq last-command 'end-of-defun)
(and transient-mark-mode mark-active)
(push-mark))