Mercurial > emacs
changeset 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 | 0b7bd1d9ffbf |
| children | c727abfbb05e |
| files | lisp/ChangeLog lisp/progmodes/compile.el |
| diffstat | 2 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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))))