Show More
@@ -67,6 +67,7 b'' | |||
|
67 | 67 | (define-key mq-global-map "i" 'mq-new) |
|
68 | 68 | (define-key mq-global-map "n" 'mq-next) |
|
69 | 69 | (define-key mq-global-map "p" 'mq-previous) |
|
70 | (define-key mq-global-map "s" 'mq-edit-series) | |
|
70 | 71 | (define-key mq-global-map "t" 'mq-top) |
|
71 | 72 | |
|
72 | 73 | (add-minor-mode 'mq-mode 'mq-mode) |
@@ -337,6 +338,14 b' directory is modified."' | |||
|
337 | 338 | (message "Creating patch... done.")) |
|
338 | 339 | (error "Creating patch... %s" (hg-chomp (cdr ret)))))) |
|
339 | 340 | |
|
341 | (defun mq-edit-series () | |
|
342 | "Edit the MQ series file directly." | |
|
343 | (interactive) | |
|
344 | (let ((root (hg-root))) | |
|
345 | (unless root | |
|
346 | (error "Not in an MQ repository!")) | |
|
347 | (find-file (concat root ".hg/patches/series")))) | |
|
348 | ||
|
340 | 349 | |
|
341 | 350 | (provide 'mq) |
|
342 | 351 |
General Comments 0
You need to be logged in to leave comments.
Login now