# HG changeset patch
# User Bryan O'Sullivan <bos@serpentine.com>
# Date 1178650479 25200
# Node ID 1d31302c45223f5b94b3c935977a60d4cca2cd9a
# Parent  2647f1fbc24cf3ef73148821e77e6920173728ed
mq.el: add mq-diff function.

diff --git a/contrib/mq.el b/contrib/mq.el
--- a/contrib/mq.el
+++ b/contrib/mq.el
@@ -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 @@ directory is modified."
       (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)