[Emacs-diffs] Changes to emacs/lisp/simple.el

[Juri Linkov]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.653 emacs/lisp/simple.el:1.654
*** emacs/lisp/simple.el:1.653  Sun Aug 22 16:59:57 2004
--- emacs/lisp/simple.el        Wed Sep  1 16:19:04 2004
***************
*** 135,141 ****
                        (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,
--- 135,141 ----
                        (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,
***************
*** 175,181 ****
  
  (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
--- 175,181 ----
  
  (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
***************
*** 183,191 ****
  
  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.
--- 183,191 ----
  
  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.
***************
*** 193,199 ****
    (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).
--- 193,199 ----
    (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).
***************
*** 203,216 ****
    (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)))
  
  ;;;
  
--- 203,216 ----
    (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))))
  
  ;;;