Signed-off-by: David Kågedal <davidk@xxxxxxxxxxxxxx>
---
contrib/emacs/git-blame.el | 14 ++++++++++----
1 files changed, 10 insertions(+), 4 deletions(-)
diff --git a/contrib/emacs/git-blame.el b/contrib/emacs/git-blame.el
index f183964..7daa4e6 100644
--- a/contrib/emacs/git-blame.el
+++ b/contrib/emacs/git-blame.el
@@ -123,6 +123,7 @@
;;;###autoload
(defun git-blame-mode (&optional arg)
+ "Minor mode for displaying Git blame"
(interactive "P")
(if arg
(setq git-blame-mode (eq arg 1))
@@ -170,20 +171,25 @@
(process-send-region git-blame-proc (point-min) (point-max))
(process-send-eof git-blame-proc))))
+(defun remove-git-blame-text-properties (start end)
+ (let ((modified (buffer-modified-p))
+ (inhibit-read-only t))
+ (remove-text-properties start end '(point-entered nil))
+ (set-buffer-modified-p modified)))
+
(defun git-blame-cleanup ()
"Remove all blame properties"
(mapcar 'delete-overlay git-blame-overlays)
(setq git-blame-overlays nil)
- (let ((modified (buffer-modified-p)))
- (remove-text-properties (point-min) (point-max) '(point-entered nil))
- (set-buffer-modified-p modified)))
+ (remove-git-blame-text-properties (point-min) (point-max)))
(defun git-blame-sentinel (proc status)
(with-current-buffer (process-buffer proc)
(with-current-buffer git-blame-file
(setq git-blame-proc nil)))
;;(kill-buffer (process-buffer proc))
- (message "git blame finished"))
+ ;;(message "git blame finished")
+ )
(defvar in-blame-filter nil)
--
1.5.0.rc3.204.g93c76
--
David Kågedal
-
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html