equal
deleted
inserted
replaced
65 (define-key mq-global-map "r" 'mq-refresh) |
65 (define-key mq-global-map "r" 'mq-refresh) |
66 (define-key mq-global-map "e" 'mq-refresh-edit) |
66 (define-key mq-global-map "e" 'mq-refresh-edit) |
67 (define-key mq-global-map "i" 'mq-new) |
67 (define-key mq-global-map "i" 'mq-new) |
68 (define-key mq-global-map "n" 'mq-next) |
68 (define-key mq-global-map "n" 'mq-next) |
69 (define-key mq-global-map "p" 'mq-previous) |
69 (define-key mq-global-map "p" 'mq-previous) |
|
70 (define-key mq-global-map "s" 'mq-edit-series) |
70 (define-key mq-global-map "t" 'mq-top) |
71 (define-key mq-global-map "t" 'mq-top) |
71 |
72 |
72 (add-minor-mode 'mq-mode 'mq-mode) |
73 (add-minor-mode 'mq-mode 'mq-mode) |
73 |
74 |
74 |
75 |
335 (progn |
336 (progn |
336 (hg-update-mode-lines (buffer-file-name)) |
337 (hg-update-mode-lines (buffer-file-name)) |
337 (message "Creating patch... done.")) |
338 (message "Creating patch... done.")) |
338 (error "Creating patch... %s" (hg-chomp (cdr ret)))))) |
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 (provide 'mq) |
350 (provide 'mq) |
342 |
351 |
343 |
352 |
344 ;;; Local Variables: |
353 ;;; Local Variables: |