From 912651fc0caeb9b205042b627626f97bb8d8caa6 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 17 Aug 2007 07:16:17 +0000 Subject: [PATCH] (compilation-get-file-structure): Make use of the directory part when checking for an existing entry, to handle files with same basename in different directories. --- lisp/progmodes/compile.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index fcb20ede56d..96ba3f80f3b 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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)) -- 2.39.5