From 24199fe75aa6e8842fd68d02b0f766bb5a67dd44 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 14 Dec 2004 12:17:43 +0000 Subject: [PATCH] (inhibit-mark-movement): Remove defvar. (beginning-of-buffer, end-of-buffer): Don't use it. --- lisp/simple.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 3a55d5f27ca..3c9e8c72428 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -645,10 +645,6 @@ If BACKWARD-ONLY is non-nil, only delete spaces before point." (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 @@ of the accessible part of the buffer. 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 @@ of the accessible part of the buffer. 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)))) -- 2.39.2