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)) |