Mercurial > hg-stable
changeset 4423:2647f1fbc24c
mq.el: add mq-edit-series function.
| author | Bryan O'Sullivan <bos@serpentine.com> |
|---|---|
| date | Tue, 08 May 2007 11:54:39 -0700 |
| parents | 7b0d0acea6d6 |
| children | 1d31302c4522 |
| 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 @@ -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 @@ (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)