Mercurial > emacs
changeset 99799:3a08b596c63b
(goto-line): Rename argument.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Sat, 22 Nov 2008 17:33:06 +0000 |
| parents | 0a0d1d91c5f8 |
| children | 9c08427f603c |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 16 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Nov 22 12:46:03 2008 +0000 +++ b/lisp/ChangeLog Sat Nov 22 17:33:06 2008 +0000 @@ -1,3 +1,7 @@ +2008-11-22 Lute Kamstra <lute@gnu.org> + + * simple.el (goto-line): Rename argument. + 2008-11-22 Eli Zaretskii <eliz@gnu.org> * makefile.w32-in (compile-first): New target.
--- a/lisp/simple.el Sat Nov 22 12:46:03 2008 +0000 +++ b/lisp/simple.el Sat Nov 22 17:33:06 2008 +0000 @@ -837,15 +837,16 @@ ;; Counting lines, one way or another. -(defun goto-line (arg &optional buffer) - "Goto line ARG, counting from line 1 at beginning of buffer. -Normally, move point in the current buffer, and leave mark at previous -position. With just \\[universal-argument] as argument, move point -in the most recently displayed other buffer, and switch to it. -When called from Lisp code, the optional argument BUFFER specifies -a buffer to switch to. - -If there's a number in the buffer at point, it is the default for ARG." +(defun goto-line (line &optional buffer) + "Goto LINE, counting from line 1 at beginning of buffer. +Normally, move point in the current buffer, and leave mark at the +previous position. With just \\[universal-argument] as argument, +move point in the most recently selected other buffer, and switch +to it. When called from Lisp code, the optional argument BUFFER +specifies a buffer to switch to. + +If there's a number in the buffer at point, it is the default for +LINE." (interactive (if (and current-prefix-arg (not (consp current-prefix-arg))) (list (prefix-numeric-value current-prefix-arg)) @@ -887,8 +888,8 @@ (widen) (goto-char 1) (if (eq selective-display t) - (re-search-forward "[\n\C-m]" nil 'end (1- arg)) - (forward-line (1- arg))))) + (re-search-forward "[\n\C-m]" nil 'end (1- line)) + (forward-line (1- line))))) (defun count-lines-region (start end) "Print number of lines and characters in the region."