aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKim F. Storm2004-12-14 12:18:11 +0000
committerKim F. Storm2004-12-14 12:18:11 +0000
commit90c08845dffc0f558ea9feab08c4af5091141a71 (patch)
treefffd31e31dfc851fc58ae7f371802163b6d2e0c0
parent24199fe75aa6e8842fd68d02b0f766bb5a67dd44 (diff)
downloademacs-90c08845dffc0f558ea9feab08c4af5091141a71.tar.gz
emacs-90c08845dffc0f558ea9feab08c4af5091141a71.zip
(beginning-of-defun, end-of-defun): Don't
use inhibit-mark-movement.
-rw-r--r--lisp/emacs-lisp/lisp.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 090f793c700..82882d6c2b7 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -192,8 +192,7 @@ open-parenthesis, and point ends up at the beginning of the line.
192If variable `beginning-of-defun-function' is non-nil, its value 192If variable `beginning-of-defun-function' is non-nil, its value
193is called as a function to find the defun's beginning." 193is called as a function to find the defun's beginning."
194 (interactive "p") 194 (interactive "p")
195 (or inhibit-mark-movement 195 (or (not (eq this-command 'beginning-of-defun))
196 (not (eq this-command 'beginning-of-defun))
197 (eq last-command 'beginning-of-defun) 196 (eq last-command 'beginning-of-defun)
198 (and transient-mark-mode mark-active) 197 (and transient-mark-mode mark-active)
199 (push-mark)) 198 (push-mark))
@@ -245,8 +244,7 @@ matches the open-parenthesis that starts a defun; see function
245If variable `end-of-defun-function' is non-nil, its value 244If variable `end-of-defun-function' is non-nil, its value
246is called as a function to find the defun's end." 245is called as a function to find the defun's end."
247 (interactive "p") 246 (interactive "p")
248 (or inhibit-mark-movement 247 (or (not (eq this-command 'end-of-defun))
249 (not (eq this-command 'end-of-defun))
250 (eq last-command 'end-of-defun) 248 (eq last-command 'end-of-defun)
251 (and transient-mark-mode mark-active) 249 (and transient-mark-mode mark-active)
252 (push-mark)) 250 (push-mark))