comparison lisp/simple.el @ 56861:2e59d9187762

(next-error, previous-error, first-error) (next-error-no-select, previous-error-no-select): Make arguments optional.

56860:30b5897d908f

                      (if other-buffer
                          (message "This is the only next-error capable buffer."))
                      (current-buffer)))
               (error "No next-error capable buffer found"))))))))

(defun next-error (arg &optional reset)
  "Visit next next-error message and corresponding source code.

If all the error messages parsed so far have been processed already,
the message buffer is checked for new ones.

(defalias 'goto-next-locus 'next-error)
(defalias 'next-match 'next-error)

(define-key ctl-x-map "`" 'next-error)

(defun previous-error (n)
  "Visit previous next-error message and corresponding source code.

Prefix arg N says how many error messages to move backwards (or
forwards, if negative).

This operates on the output from the \\[compile] and \\[grep] commands."
  (interactive "p")
  (next-error (- n)))

(defun first-error (n)
  "Restart at the first error.
Visit corresponding source code.
With prefix arg N, visit the source code of the Nth error.
This operates on the output from the \\[compile] command, for instance."
  (interactive "p")
  (next-error n t))

(defun next-error-no-select (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).
Finds and highlights the source line like \\[next-error], but does not
select the source buffer."
  (interactive "p")
  (next-error n)
  (pop-to-buffer next-error-last-buffer))

(defun previous-error-no-select (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)))

;;;

(defun fundamental-mode ()
  "Major mode not specialized for anything in particular.

56861:2e59d9187762

                      (if other-buffer
                          (message "This is the only next-error capable buffer."))
                      (current-buffer)))
               (error "No next-error capable buffer found"))))))))

(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,
the message buffer is checked for new ones.

(defalias 'goto-next-locus 'next-error)
(defalias 'next-match 'next-error)

(define-key ctl-x-map "`" 'next-error)

(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
forwards, if negative).

This operates on the output from the \\[compile] and \\[grep] commands."
  (interactive "p")
  (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.
This operates on the output from the \\[compile] command, for instance."
  (interactive "p")
  (next-error n t))

(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).
Finds and highlights the source line like \\[next-error], but does not
select the source buffer."
  (interactive "p")
  (next-error n)
  (pop-to-buffer next-error-last-buffer))

(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 (- (or n 1))))

;;;

(defun fundamental-mode ()
  "Major mode not specialized for anything in particular.