diff options
author | Juri Linkov <juri@jurta.org> | 2004-09-01 16:19:04 +0000 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2004-09-01 16:19:04 +0000 |
commit | 310abb0b815e22977e87685855fbccdd7e329bba (patch) | |
tree | b7c1881262183d60f860eb5bc8389824177ca44b | |
parent | 7d01236c2247fe2e499ed6c1759acfb0dfe04570 (diff) | |
download | emacs-310abb0b815e22977e87685855fbccdd7e329bba.tar.gz |
(next-error, previous-error, first-error)
(next-error-no-select, previous-error-no-select):
Make arguments optional.
-rw-r--r-- | lisp/simple.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 78ca8e63f2e..32eecec8d4b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -135,7 +135,7 @@ to navigate in it.") (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 @@ See variables `compilation-parse-errors-function' and (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 @@ forwards, if negative). This operates on the output from the \\[compile] and \\[grep] commands." (interactive "p") - (next-error (- n))) + (next-error (- (or n 1)))) -(defun first-error (n) +(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 @@ This operates on the output from the \\[compile] command, for instance." (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 @@ select the source buffer." (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)))) ;;; |