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

[Richard M . Stallman]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.351 
emacs/lisp/progmodes/compile.el:1.352
*** emacs/lisp/progmodes/compile.el:1.351       Sun Apr 10 06:19:30 2005
--- emacs/lisp/progmodes/compile.el     Sat Apr 23 16:35:19 2005
***************
*** 710,716 ****
                        `(,(car elt)
                          (compilation-directory-properties
                           ,(car elt) ,(cdr elt))
!                         t))
                      (cdr compilation-directory-matcher)))))
  
       ;; Compiler warning/error lines.
--- 710,716 ----
                        `(,(car elt)
                          (compilation-directory-properties
                           ,(car elt) ,(cdr elt))
!                         t t))
                      (cdr compilation-directory-matcher)))))
  
       ;; Compiler warning/error lines.
***************
*** 733,743 ****
              ;; allowed `line' to be a function that computed the actual
              ;; error location.  Let's do our best.
              `(,(car item)
!               (0 (compilation-compat-error-properties
!                   (funcall ',line (cons (match-string ,file)
!                                         (cons default-directory
!                                               ',(nthcdr 4 item)))
!                            ,(if col `(match-string ,col)))))
                (,file compilation-error-face t))
  
            (unless (or (null (nth 5 item)) (integerp (nth 5 item)))
--- 733,744 ----
              ;; allowed `line' to be a function that computed the actual
              ;; error location.  Let's do our best.
              `(,(car item)
!               (0 (save-match-data
!                    (compilation-compat-error-properties
!                     (funcall ',line (cons (match-string ,file)
!                                           (cons default-directory
!                                                 ',(nthcdr 4 item)))
!                              ,(if col `(match-string ,col))))))
                (,file compilation-error-face t))
  
            (unless (or (null (nth 5 item)) (integerp (nth 5 item)))
***************
*** 1589,1594 ****
--- 1590,1597 ----
                              (point))))
    (set-window-point w mk))
  
+ (defvar next-error-highlight-timer)
+ 
  (defun compilation-goto-locus (msg mk end-mk)
    "Jump to an error corresponding to MSG at MK.
  All arguments are markers.  If END-MK is non-nil, mark is set there