changeset 4424:1d31302c4522

mq.el: add mq-diff function.
author Bryan O'Sullivan <bos@serpentine.com>
date Tue, 08 May 2007 11:54:39 -0700
parents 2647f1fbc24c
children a57ac6049e22
files contrib/mq.el
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/contrib/mq.el	Tue May 08 11:54:39 2007 -0700
+++ b/contrib/mq.el	Tue May 08 11:54:39 2007 -0700
@@ -62,6 +62,7 @@
 (define-key mq-global-map ">" 'mq-push-all)
 (define-key mq-global-map "," 'mq-pop)
 (define-key mq-global-map "<" 'mq-pop-all)
+(define-key mq-global-map "=" 'mq-diff)
 (define-key mq-global-map "r" 'mq-refresh)
 (define-key mq-global-map "e" 'mq-refresh-edit)
 (define-key mq-global-map "i" 'mq-new)
@@ -346,6 +347,14 @@
       (error "Not in an MQ repository!"))
     (find-file (concat root ".hg/patches/series"))))
 
+(defun mq-diff ()
+  "Display a diff of the topmost applied patch."
+  (interactive)
+  (hg-view-output ((format "MQ: Diff of %s" (mq-patch-info "qtop")))
+    (call-process (hg-binary) nil t nil "qdiff")
+    (diff-mode)
+    (font-lock-fontify-buffer)))
+
 
 (provide 'mq)