diff options
| -rw-r--r-- | lisp/simple.el | 10 |
1 files 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)))) |