Mercurial > emacs
changeset 58961:2a281af9d3ad
(inhibit-mark-movement): Remove defvar.
(beginning-of-buffer, end-of-buffer): Don't use it.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 14 Dec 2004 12:17:43 +0000 |
| parents | 22e52a9843e7 |
| children | eb752b1a84b1 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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))))