/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.351 by jet, Sun Apr 10 06:19:30 2005 UTC revision 1.352 by rms, Sat Apr 23 16:35:19 2005 UTC
# Line 710  FILE should be (ABSOLUTE-FILENAME) or (R Line 710  FILE should be (ABSOLUTE-FILENAME) or (R
710                          `(,(car elt)                          `(,(car elt)
711                            (compilation-directory-properties                            (compilation-directory-properties
712                             ,(car elt) ,(cdr elt))                             ,(car elt) ,(cdr elt))
713                            t))                            t t))
714                        (cdr compilation-directory-matcher)))))                        (cdr compilation-directory-matcher)))))
715    
716       ;; Compiler warning/error lines.       ;; Compiler warning/error lines.
# Line 733  FILE should be (ABSOLUTE-FILENAME) or (R Line 733  FILE should be (ABSOLUTE-FILENAME) or (R
733                ;; allowed `line' to be a function that computed the actual                ;; allowed `line' to be a function that computed the actual
734                ;; error location.  Let's do our best.                ;; error location.  Let's do our best.
735                `(,(car item)                `(,(car item)
736                  (0 (compilation-compat-error-properties                  (0 (save-match-data
737                      (funcall ',line (cons (match-string ,file)                       (compilation-compat-error-properties
738                                            (cons default-directory                        (funcall ',line (cons (match-string ,file)
739                                                  ',(nthcdr 4 item)))                                              (cons default-directory
740                               ,(if col `(match-string ,col)))))                                                    ',(nthcdr 4 item)))
741                                   ,(if col `(match-string ,col))))))
742                  (,file compilation-error-face t))                  (,file compilation-error-face t))
743    
744              (unless (or (null (nth 5 item)) (integerp (nth 5 item)))              (unless (or (null (nth 5 item)) (integerp (nth 5 item)))
# Line 1589  If nil, don't scroll the compilation out Line 1590  If nil, don't scroll the compilation out
1590                              (point))))                              (point))))
1591    (set-window-point w mk))    (set-window-point w mk))
1592    
1593    (defvar next-error-highlight-timer)
1594    
1595  (defun compilation-goto-locus (msg mk end-mk)  (defun compilation-goto-locus (msg mk end-mk)
1596    "Jump to an error corresponding to MSG at MK.    "Jump to an error corresponding to MSG at MK.
1597  All arguments are markers.  If END-MK is non-nil, mark is set there  All arguments are markers.  If END-MK is non-nil, mark is set there

Legend:
Removed from v.1.351  
changed lines
  Added in v.1.352

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26