misc/coverage.el: improve filename matching
authorBrian Warner <warner@lothar.com>
Wed, 24 Feb 2010 04:47:57 +0000 (23:47 -0500)
committerBrian Warner <warner@lothar.com>
Wed, 24 Feb 2010 04:47:57 +0000 (23:47 -0500)
misc/coverage.el

index 64e7134e472137be9d1a6e4a8f54d89e8801da38..bad490fd66e069b17f31441b32b0cf09629430b7 100644 (file)
@@ -45,7 +45,7 @@
 
 (defun coverage-annotate (show-code)
   (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
         )
     (while (and (not (gethash filename-key allcoverage nil))