diff options
| author | Chong Yidong | 2010-08-26 11:09:45 -0400 |
|---|---|---|
| committer | Chong Yidong | 2010-08-26 11:09:45 -0400 |
| commit | 8d9f4291648774fbc3dbb0602cd93610ee386052 (patch) | |
| tree | 2af113e98ef8a97ffd1fec4846b418737aae396f | |
| parent | 9027027d085973006891374fdc337334a5db7b5b (diff) | |
| download | emacs-8d9f4291648774fbc3dbb0602cd93610ee386052.tar.gz emacs-8d9f4291648774fbc3dbb0602cd93610ee386052.zip | |
* simple.el (beginning-of-buffer, end-of-buffer): Doc fix (Bug#6907).
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/simple.el | 22 |
2 files changed, 17 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da88208bbf2..4832f12bace 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-08-26 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * simple.el (beginning-of-buffer, end-of-buffer): Doc fix | ||
| 4 | (Bug#6907). | ||
| 5 | |||
| 1 | 2010-08-23 Chris Foote <chris@foote.com.au> (tiny change) | 6 | 2010-08-23 Chris Foote <chris@foote.com.au> (tiny change) |
| 2 | 7 | ||
| 3 | * progmodes/python.el (python-block-pairs): Allow use of "finally" | 8 | * progmodes/python.el (python-block-pairs): Allow use of "finally" |
diff --git a/lisp/simple.el b/lisp/simple.el index 9b38f3cdbf3..d5065b73ff9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -784,15 +784,16 @@ If BACKWARD-ONLY is non-nil, only delete them before point." | |||
| 784 | (constrain-to-field nil orig-pos t))))) | 784 | (constrain-to-field nil orig-pos t))))) |
| 785 | 785 | ||
| 786 | (defun beginning-of-buffer (&optional arg) | 786 | (defun beginning-of-buffer (&optional arg) |
| 787 | "Move point to the beginning of the buffer; leave mark at previous position. | 787 | "Move point to the beginning of the buffer. |
| 788 | With \\[universal-argument] prefix, do not set mark at previous position. | ||
| 789 | With numeric arg N, put point N/10 of the way from the beginning. | 788 | With numeric arg N, put point N/10 of the way from the beginning. |
| 789 | If the buffer is narrowed, this command uses the beginning of the | ||
| 790 | accessible part of the buffer. | ||
| 790 | 791 | ||
| 791 | If the buffer is narrowed, this command uses the beginning and size | 792 | If Transient Mark mode is disabled, leave mark at previous |
| 792 | of the accessible part of the buffer. | 793 | position, unless a \\[universal-argument] prefix is supplied. |
| 793 | 794 | ||
| 794 | Don't use this command in Lisp programs! | 795 | Don't use this command in Lisp programs! |
| 795 | \(goto-char (point-min)) is faster and avoids clobbering the mark." | 796 | \(goto-char (point-min)) is faster." |
| 796 | (interactive "^P") | 797 | (interactive "^P") |
| 797 | (or (consp arg) | 798 | (or (consp arg) |
| 798 | (region-active-p) | 799 | (region-active-p) |
| @@ -809,15 +810,16 @@ Don't use this command in Lisp programs! | |||
| 809 | (if (and arg (not (consp arg))) (forward-line 1))) | 810 | (if (and arg (not (consp arg))) (forward-line 1))) |
| 810 | 811 | ||
| 811 | (defun end-of-buffer (&optional arg) | 812 | (defun end-of-buffer (&optional arg) |
| 812 | "Move point to the end of the buffer; leave mark at previous position. | 813 | "Move point to the end of the buffer. |
| 813 | With \\[universal-argument] prefix, do not set mark at previous position. | ||
| 814 | With numeric arg N, put point N/10 of the way from the end. | 814 | With numeric arg N, put point N/10 of the way from the end. |
| 815 | If the buffer is narrowed, this command uses the end of the | ||
| 816 | accessible part of the buffer. | ||
| 815 | 817 | ||
| 816 | If the buffer is narrowed, this command uses the beginning and size | 818 | If Transient Mark mode is disabled, leave mark at previous |
| 817 | of the accessible part of the buffer. | 819 | position, unless a \\[universal-argument] prefix is supplied. |
| 818 | 820 | ||
| 819 | Don't use this command in Lisp programs! | 821 | Don't use this command in Lisp programs! |
| 820 | \(goto-char (point-max)) is faster and avoids clobbering the mark." | 822 | \(goto-char (point-max)) is faster." |
| 821 | (interactive "^P") | 823 | (interactive "^P") |
| 822 | (or (consp arg) (region-active-p) (push-mark)) | 824 | (or (consp arg) (region-active-p) (push-mark)) |
| 823 | (let ((size (- (point-max) (point-min)))) | 825 | (let ((size (- (point-max) (point-min)))) |