mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(compilation-get-file-structure): Make use of the directory part when

Browse source 
checking for an existing entry, to handle files with same basename in
different directories.
This commit is contained in:
Glenn Morris 2007-08-17 07:16:17 +00:00
parent 5f15401ac7
commit 912651fc0c
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/progmodes/compile.el
View file

@ -1935,7 +1935,13 @@ The file-structure looks like this:
;; Store it for the possibly unnormalized name
(puthash file
;; Retrieve or create file-structure for normalized name
(or (gethash (list filename) compilation-locs)
;; The gethash used to not use spec-directory, but
;; this leads to errors when files in different
;; directories have the same name:
;; http://lists.gnu.org/archive/html/emacs-devel/2007-08/msg00463.html
(or (gethash (cons filename spec-directory) compilation-locs)
;; TODO should this, without spec-directory, be
;; done at all?
(puthash (list filename)
(list (list filename spec-directory) fmt)
compilation-locs))