Mercurial > hg > mercurial-crew-with-dirclash
comparison contrib/mq.el @ 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 |
comparison
equal
deleted
inserted
replaced
4422:7b0d0acea6d6 | 4423:2647f1fbc24c |
---|---|
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: |