# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1189136910 0
# Node ID 4256a2145ba2d9fa8c9b471404e653f7f1070508
# Parent  0b7bd1d9ffbf2177bc28e8df0eb682bac9fa7c9f
(compilation-get-file-structure): Complete last
change by also using spec-directory in the puthash.

diff -r 0b7bd1d9ffbf -r 4256a2145ba2 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 07 01:26:58 2007 +0000
+++ b/lisp/ChangeLog	Fri Sep 07 03:48:30 2007 +0000
@@ -1,3 +1,8 @@
+2007-09-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/compile.el (compilation-get-file-structure): Complete last
+	change by also using spec-directory in the puthash.
+
 2007-09-07  Riccardo Murri  <riccardo.murri@gmail.com>
 
 	* vc-bzr.el (vc-bzr-admin-lastrev): New constant.
diff -r 0b7bd1d9ffbf -r 4256a2145ba2 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Sep 07 01:26:58 2007 +0000
+++ b/lisp/progmodes/compile.el	Fri Sep 07 03:48:30 2007 +0000
@@ -1895,8 +1895,7 @@
 In the former case, FILENAME may be relative or absolute.
 
 The file-structure looks like this:
-  (list (list FILENAME [DIR-FROM-PREV-MSG]) FMT LINE-STRUCT...)
-"
+  (list (list FILENAME [DIR-FROM-PREV-MSG]) FMT LINE-STRUCT...)"
   (or (gethash file compilation-locs)
       ;; File was not previously encountered, at least not in the form passed.
       ;; Let's normalize it and look again.
@@ -1940,9 +1939,7 @@
 		 ;; 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)
+		     (puthash (cons filename spec-directory)
 			      (list (list filename spec-directory) fmt)
 			      compilation-locs))
 		 compilation-locs))))