changeset 8370:45ed015b524e

allow toggling when the cursor is on the correct line instead of just the filename text in hg-commit-toggle-file
author Jonathan Kotta <jpkotta@packetdigital.com>
date Wed, 13 May 2009 13:07:43 -0500
parents 93a811ef3ac0
children 1bd0fdf4c1ec
files contrib/mercurial.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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