emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Sam Steingold
Subject: [Emacs-diffs] emacs/lisp ChangeLog progmodes/compile.el
Date: Mon, 12 Oct 2009 20:42:49 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     09/10/12 20:42:48

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : compile.el 

Log message:
        (compilation-next-error-function): Fix the
        timestamps if the buffer has been visited before

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16411&r2=1.16412
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/compile.el?cvsroot=emacs&r1=1.497&r2=1.498

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16411
retrieving revision 1.16412
diff -u -b -r1.16411 -r1.16412
--- ChangeLog   12 Oct 2009 07:02:59 -0000      1.16411
+++ ChangeLog   12 Oct 2009 20:42:45 -0000      1.16412
@@ -1,3 +1,8 @@
+2009-10-12  Sam Steingold  <address@hidden>
+
+       * progmodes/compile.el (compilation-next-error-function): Fix the
+       timestamps if the buffer has been visited before
+
 2009-10-12  Glenn Morris  <address@hidden>
 
        * net/tramp-smb.el (tramp-smb-do-file-attributes-with-stat):

Index: progmodes/compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.497
retrieving revision 1.498
diff -u -b -r1.497 -r1.498
--- progmodes/compile.el        13 Aug 2009 00:58:56 -0000      1.497
+++ progmodes/compile.el        12 Oct 2009 20:42:48 -0000      1.498
@@ -1944,16 +1944,13 @@
     ;; (`omake -P' polls filesystem for changes and recompiles when needed
     ;;  in the same process and buffer).
     ;; So, recalculate all markers for that file.
-    (unless (and (nth 3 loc) (marker-buffer (nth 3 loc))
-                 ;; There may be no timestamp info if the loc is a `fake-loc'.
-                 ;; So we skip the time-check here, although we should maybe
-                 ;; change `compilation-fake-loc' to add timestamp info.
-                 (or (null (nth 4 loc))
+    (unless (and (nth 3 loc) (marker-buffer (nth 3 loc)) (nthcdr 4 loc)
+                 ;; There may be no timestamp info if the loc is a `fake-loc',
+                 ;; but we just checked that the file has been visited before!
                      (equal (nth 4 loc)
                             (setq timestamp
-                                  (with-current-buffer
-                                      (marker-buffer (nth 3 loc))
-                                    (visited-file-modtime))))))
+                              (with-current-buffer (marker-buffer (nth 3 loc))
+                                (visited-file-modtime)))))
       (with-current-buffer (compilation-find-file marker (caar (nth 2 loc))
                                                  (cadr (car (nth 2 loc))))
        (save-restriction




reply via email to

[Prev in Thread] Current Thread [Next in Thread]