diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-12-14 12:17:43 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-12-14 12:17:43 +0000 |
| commit | 24199fe75aa6e8842fd68d02b0f766bb5a67dd44 (patch) | |
| tree | 9c1ae6798da48d536cd51625234d80c40ff5ba69 | |
| parent | 5b631efcca1d76407a069e63f703339505dd01bc (diff) | |
| download | emacs-24199fe75aa6e8842fd68d02b0f766bb5a67dd44.tar.gz | |
(inhibit-mark-movement): Remove defvar.
(beginning-of-buffer, end-of-buffer): Don't use it.
| -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)))) |