Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mq.el @ 4423:2647f1fbc24c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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: