Mercurial > emacs
comparison lisp/simple.el @ 9343:ee9866892683
(goto-line): Call prefix-numeric-value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 04 Oct 1994 22:57:42 +0000 |
| parents | e321617e3fc6 |
| children | d79ecfc2776c |
comparison
equal
deleted
inserted
replaced
| 9342:fdccacaec145 | 9343:ee9866892683 |
|---|---|
| 593 (next-complete-history-element (- n))) | 593 (next-complete-history-element (- n))) |
| 594 | 594 |
| 595 (defun goto-line (arg) | 595 (defun goto-line (arg) |
| 596 "Goto line ARG, counting from line 1 at beginning of buffer." | 596 "Goto line ARG, counting from line 1 at beginning of buffer." |
| 597 (interactive "NGoto line: ") | 597 (interactive "NGoto line: ") |
| 598 (setq arg (prefix-numeric-value arg)) | |
| 598 (save-restriction | 599 (save-restriction |
| 599 (widen) | 600 (widen) |
| 600 (goto-char 1) | 601 (goto-char 1) |
| 601 (if (eq selective-display t) | 602 (if (eq selective-display t) |
| 602 (re-search-forward "[\n\C-m]" nil 'end (1- arg)) | 603 (re-search-forward "[\n\C-m]" nil 'end (1- arg)) |