Mercurial > emacs
diff lisp/progmodes/compile.el @ 78749:4256a2145ba2
(compilation-get-file-structure): Complete last
change by also using spec-directory in the puthash.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 07 Sep 2007 03:48:30 +0000 |
parents | be466566559a |
children | 38c9038666da |
line wrap: on
line diff
--- 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))))