Mercurial > emacs

diff lisp/emacs-lisp/lisp.el @ 58962:eb752b1a84b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(beginning-of-defun, end-of-defun): Don't use inhibit-mark-movement.
author Kim F. Storm <storm@cua.dk>
date Tue, 14 Dec 2004 12:18:11 +0000
parents 2ee970dcd072
children 5188f5b11d56 eac554634bfa
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp.el	Tue Dec 14 12:17:43 2004 +0000
+++ b/lisp/emacs-lisp/lisp.el	Tue Dec 14 12:18:11 2004 +0000
@@ -192,8 +192,7 @@
 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 @@
 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))