Mercurial > emacs
changeset 56861:2e59d9187762
(next-error, previous-error, first-error)
(next-error-no-select, previous-error-no-select):
Make arguments optional.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Wed, 01 Sep 2004 16:19:04 +0000 |
| parents | 30b5897d908f |
| children | adba247afe3f |
| files | lisp/simple.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Sep 01 00:09:17 2004 +0000 +++ b/lisp/simple.el Wed Sep 01 16:19:04 2004 +0000 @@ -135,7 +135,7 @@ (current-buffer))) (error "No next-error capable buffer found")))))))) -(defun next-error (arg &optional reset) +(defun next-error (&optional arg reset) "Visit next next-error message and corresponding source code. If all the error messages parsed so far have been processed already, @@ -175,7 +175,7 @@ (define-key ctl-x-map "`" 'next-error) -(defun previous-error (n) +(defun previous-error (&optional n) "Visit previous next-error message and corresponding source code. Prefix arg N says how many error messages to move backwards (or @@ -183,9 +183,9 @@ This operates on the output from the \\[compile] and \\[grep] commands." (interactive "p") - (next-error (- n))) - -(defun first-error (n) + (next-error (- (or n 1)))) + +(defun first-error (&optional n) "Restart at the first error. Visit corresponding source code. With prefix arg N, visit the source code of the Nth error. @@ -193,7 +193,7 @@ (interactive "p") (next-error n t)) -(defun next-error-no-select (n) +(defun next-error-no-select (&optional n) "Move point to the next error in the next-error buffer and highlight match. Prefix arg N says how many error messages to move forwards (or backwards, if negative). @@ -203,14 +203,14 @@ (next-error n) (pop-to-buffer next-error-last-buffer)) -(defun previous-error-no-select (n) +(defun previous-error-no-select (&optional n) "Move point to the previous error in the next-error buffer and highlight match. Prefix arg N says how many error messages to move backwards (or forwards, if negative). Finds and highlights the source line like \\[previous-error], but does not select the source buffer." (interactive "p") - (next-error-no-select (- n))) + (next-error-no-select (- (or n 1)))) ;;;