From: Brian Warner <warner@lothar.com>
Date: Wed, 24 Feb 2010 04:47:57 +0000 (-0500)
Subject: misc/coverage.el: improve filename matching
X-Git-Url: https://git.rkrishnan.org/simplejson/components/com_hotproperty/COPYING.TGPPL.html?a=commitdiff_plain;h=625ad78877ef1b119cd2672cd0fb70a4ff3e713e;p=tahoe-lafs%2Ftahoe-lafs.git

misc/coverage.el: improve filename matching
---

diff --git a/misc/coverage.el b/misc/coverage.el
index 64e7134e..bad490fd 100644
--- a/misc/coverage.el
+++ b/misc/coverage.el
@@ -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))