# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1103026663 0
# Node ID 2a281af9d3ad5ed6addf148b8331f280e5f8eb9d
# Parent  22e52a9843e7d78f3601dc70c448789317bb5047
(inhibit-mark-movement): Remove defvar.
(beginning-of-buffer, end-of-buffer): Don't use it.

diff -r 22e52a9843e7 -r 2a281af9d3ad lisp/simple.el
--- a/lisp/simple.el	Tue Dec 14 12:17:04 2004 +0000
+++ b/lisp/simple.el	Tue Dec 14 12:17:43 2004 +0000
@@ -645,10 +645,6 @@
        (skip-chars-forward " \t")
        (constrain-to-field nil orig-pos t)))))
 
-(defvar inhibit-mark-movement nil
-  "If non-nil, movement commands, such as \\[beginning-of-buffer], \
-do not set the mark.")
-
 (defun beginning-of-buffer (&optional arg)
   "Move point to the beginning of the buffer; leave mark at previous position.
 With \\[universal-argument] prefix, do not set mark at previous position.
@@ -660,8 +656,7 @@
 Don't use this command in Lisp programs!
 \(goto-char (point-min)) is faster and avoids clobbering the mark."
   (interactive "P")
-  (or inhibit-mark-movement
-      (consp arg)
+  (or (consp arg)
       (and transient-mark-mode mark-active)
       (push-mark))
   (let ((size (- (point-max) (point-min))))
@@ -686,8 +681,7 @@
 Don't use this command in Lisp programs!
 \(goto-char (point-max)) is faster and avoids clobbering the mark."
   (interactive "P")
-  (or inhibit-mark-movement
-      (consp arg)
+  (or (consp arg)
       (and transient-mark-mode mark-active)
       (push-mark))
   (let ((size (- (point-max) (point-min))))