[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el, v [EMACS_22_BASE]

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Stefan Monnier <monnier>        07/09/07 03:48:33

Index: progmodes/compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.421.2.8
retrieving revision 1.421.2.9
diff -u -b -r1.421.2.8 -r1.421.2.9
--- progmodes/compile.el        17 Aug 2007 07:16:17 -0000      1.421.2.8
+++ progmodes/compile.el        7 Sep 2007 03:48:30 -0000       1.421.2.9
@@ -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))))