# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1094055544 0
# Node ID 2e59d91877629b1e41d3a288d0a0f49ee4cabe43
# Parent  30b5897d908f2073c8abc5f13f67a1e261250887
(next-error, previous-error, first-error)
(next-error-no-select, previous-error-no-select):
Make arguments optional.

diff -r 30b5897d908f -r 2e59d9187762 lisp/simple.el
--- 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))))
 
 ;;;