diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 6a99f785852..a029ef74f44 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -804,15 +804,16 @@ If BACKWARD-ONLY is non-nil, only delete them before point." (constrain-to-field nil orig-pos t))))) (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. + "Move point to the beginning of the buffer. With numeric arg N, put point N/10 of the way from the beginning. +If the buffer is narrowed, this command uses the beginning of the +accessible part of the buffer. -If the buffer is narrowed, this command uses the beginning and size -of the accessible part of the buffer. +If Transient Mark mode is disabled, leave mark at previous +position, unless a \\[universal-argument] prefix is supplied. Don't use this command in Lisp programs! -\(goto-char (point-min)) is faster and avoids clobbering the mark." +\(goto-char (point-min)) is faster." (interactive "^P") (or (consp arg) (region-active-p) @@ -829,15 +830,16 @@ Don't use this command in Lisp programs! (if (and arg (not (consp arg))) (forward-line 1))) (defun end-of-buffer (&optional arg) - "Move point to the end of the buffer; leave mark at previous position. -With \\[universal-argument] prefix, do not set mark at previous position. + "Move point to the end of the buffer. With numeric arg N, put point N/10 of the way from the end. +If the buffer is narrowed, this command uses the end of the +accessible part of the buffer. -If the buffer is narrowed, this command uses the beginning and size -of the accessible part of the buffer. +If Transient Mark mode is disabled, leave mark at previous +position, unless a \\[universal-argument] prefix is supplied. Don't use this command in Lisp programs! -\(goto-char (point-max)) is faster and avoids clobbering the mark." +\(goto-char (point-max)) is faster." (interactive "^P") (or (consp arg) (region-active-p) (push-mark)) (let ((size (- (point-max) (point-min)))) |