misc/coverage.el: improve filename matching

This commit is contained in:
Brian Warner 2010-02-23 23:47:57 -05:00
parent 1de4d2c594
commit 625ad78877

View File

@ -45,7 +45,7 @@
(defun coverage-annotate (show-code) (defun coverage-annotate (show-code)
(let ((allcoverage (load-coverage-annotations)) (let ((allcoverage (load-coverage-annotations))
(filename-key buffer-file-truename) (filename-key (expand-file-name buffer-file-truename))
thiscoverage code-lines covered-lines uncovered-code-lines thiscoverage code-lines covered-lines uncovered-code-lines
) )
(while (and (not (gethash filename-key allcoverage nil)) (while (and (not (gethash filename-key allcoverage nil))