diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 8 |
1 files changed, 7 insertions, 1 deletions
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: | |||
| 1935 | ;; Store it for the possibly unnormalized name | 1935 | ;; Store it for the possibly unnormalized name |
| 1936 | (puthash file | 1936 | (puthash file |
| 1937 | ;; Retrieve or create file-structure for normalized name | 1937 | ;; Retrieve or create file-structure for normalized name |
| 1938 | (or (gethash (list filename) compilation-locs) | 1938 | ;; The gethash used to not use spec-directory, but |
| 1939 | ;; this leads to errors when files in different | ||
| 1940 | ;; directories have the same name: | ||
| 1941 | ;; http://lists.gnu.org/archive/html/emacs-devel/2007-08/msg00463.html | ||
| 1942 | (or (gethash (cons filename spec-directory) compilation-locs) | ||
| 1943 | ;; TODO should this, without spec-directory, be | ||
| 1944 | ;; done at all? | ||
| 1939 | (puthash (list filename) | 1945 | (puthash (list filename) |
| 1940 | (list (list filename spec-directory) fmt) | 1946 | (list (list filename spec-directory) fmt) |
| 1941 | compilation-locs)) | 1947 | compilation-locs)) |