changeset 58962:eb752b1a84b1

(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 2a281af9d3ad
children e1b2a6ac991b
files lisp/emacs-lisp/lisp.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
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))