emacs: lisp/progmodes/compile.el comparison

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

comparison

equal deleted inserted replaced

-:be1e297cc4d5
+:e7f57b24c0a2
 ;; If the marker is invalid the buffer has been killed.
 ;; If the file is newer than the timestamp, it has been modified
 ;; (`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))
+(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'.
+;; There may be no timestamp info if the loc is a `fake-loc',
-;; So we skip the time-check here, although we should maybe
+;; but we just checked that the file has been visited before!
-;; change `compilation-fake-loc' to add timestamp info.
+(equal (nth 4 loc)
-(or (null (nth 4 loc))
+(setq timestamp
-(equal (nth 4 loc)
+(with-current-buffer (marker-buffer (nth 3 loc))
-(setq timestamp
+(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
 	  (widen)
 	  (goto-char (point-min))

Mercurial > emacs