--- a/contrib/mercurial.el	Wed May 13 16:31:19 2009 +0200
+++ b/contrib/mercurial.el	Wed May 13 13:07:43 2009 -0500
@@ -837,11 +837,12 @@
   (interactive "d")
   (save-excursion
     (goto-char pos)
-    (let ((face (get-text-property pos 'face))
+    (let (face
 	  (inhibit-read-only t)
 	  bol)
       (beginning-of-line)
       (setq bol (+ (point) 4))
+      (setq face (get-text-property bol 'face))
       (end-of-line)
       (if (eq face 'bold)
 	  (progn