[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el |
Date: |
Sat, 23 Apr 2005 12:35:19 -0400 |
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