procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(compilation-next-error-function): Fix the

Browse source 
timestamps if the buffer has been visited before
This commit is contained in:
Sam Steingold 2009-10-12 20:42:45 +00:00
parent 37493a9884
commit cd29f88b1d
2 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-10-12 Sam Steingold <sds@gnu.org>
* progmodes/compile.el (compilation-next-error-function): Fix the
timestamps if the buffer has been visited before
2009-10-12 Glenn Morris <rgm@gnu.org>
* net/tramp-smb.el (tramp-smb-do-file-attributes-with-stat):

17
lisp/progmodes/compile.el
View file

@ -1944,16 +1944,13 @@ This is the value of `next-error-function' in Compilation buffers."
;; (`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))
(equal (nth 4 loc)
(setq timestamp
(with-current-buffer
(marker-buffer (nth 3 loc))
(visited-file-modtime))))))
(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 (compilation-find-file marker (caar (nth 2 loc))
(cadr (car (nth 2 loc))))
(save-restriction