summaryrefslogtreecommitdiff
path: root/contrib/emacs
diff options
context:
space:
mode:
authorDavid Kågedal <davidk@lysator.liu.se>2007-02-09 08:21:51 (GMT)
committerJunio C Hamano <junkio@cox.net>2007-02-09 08:52:53 (GMT)
commit96df551cb89264ed88b717b9ace8ad3edc0e09a6 (patch)
tree5f01634b56843c4a3ae99afa24cde32a2b5307bb /contrib/emacs
parentf0f39bb4c4ba36a07d7a6f034ba12f2ca0522db8 (diff)
downloadgit-96df551cb89264ed88b717b9ace8ad3edc0e09a6.zip
git-96df551cb89264ed88b717b9ace8ad3edc0e09a6.tar.gz
git-96df551cb89264ed88b717b9ace8ad3edc0e09a6.tar.bz2
git-blame.el: Doc fixes and cleanup
Signed-off-by: David Kågedal <davidk@lysator.liu.se> Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'contrib/emacs')
-rw-r--r--contrib/emacs/git-blame.el14
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)