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

diff --git a/contrib/mq.el b/contrib/mq.el
--- a/contrib/mq.el
+++ b/contrib/mq.el
@@ -67,6 +67,7 @@
 (define-key mq-global-map "i" 'mq-new)
 (define-key mq-global-map "n" 'mq-next)
 (define-key mq-global-map "p" 'mq-previous)
+(define-key mq-global-map "s" 'mq-edit-series)
 (define-key mq-global-map "t" 'mq-top)
 
 (add-minor-mode 'mq-mode 'mq-mode)
@@ -337,6 +338,14 @@ directory is modified."
 	  (message "Creating patch... done."))
       (error "Creating patch... %s" (hg-chomp (cdr ret))))))
 
+(defun mq-edit-series ()
+  "Edit the MQ series file directly."
+  (interactive)
+  (let ((root (hg-root)))
+    (unless root
+      (error "Not in an MQ repository!"))
+    (find-file (concat root ".hg/patches/series"))))
+
 
 (provide 'mq)