Mercurial > hg
changeset 5468:24eb1bf8dd83
mq.el: define keymaps as convensions
| author | NIIMI Satoshi <sa2c@sa2c.net> |
|---|---|
| date | Thu, 11 Oct 2007 06:13:17 +0900 |
| parents | 521284cdbcb4 |
| children | b12432b1c2c7 |
| files | contrib/mq.el |
| diffstat | 1 files changed, 24 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/mq.el Thu Oct 11 06:10:45 2007 +0900 +++ b/contrib/mq.el Thu Oct 11 06:13:17 2007 +0900 @@ -69,32 +69,36 @@ ;;; Global keymap. -(defvar mq-global-map (make-sparse-keymap)) -(fset 'mq-global-map mq-global-map) -(global-set-key mq-global-prefix 'mq-global-map) -(define-key mq-global-map "." 'mq-push) -(define-key mq-global-map ">" 'mq-push-all) -(define-key mq-global-map "," 'mq-pop) -(define-key mq-global-map "<" 'mq-pop-all) -(define-key mq-global-map "=" 'mq-diff) -(define-key mq-global-map "r" 'mq-refresh) -(define-key mq-global-map "e" 'mq-refresh-edit) -(define-key mq-global-map "i" 'mq-new) -(define-key mq-global-map "n" 'mq-next) -(define-key mq-global-map "o" 'mq-signoff) -(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) +(defvar mq-global-map + (let ((map (make-sparse-keymap))) + (define-key map "." 'mq-push) + (define-key map ">" 'mq-push-all) + (define-key map "," 'mq-pop) + (define-key map "<" 'mq-pop-all) + (define-key map "=" 'mq-diff) + (define-key map "r" 'mq-refresh) + (define-key map "e" 'mq-refresh-edit) + (define-key map "i" 'mq-new) + (define-key map "n" 'mq-next) + (define-key map "o" 'mq-signoff) + (define-key map "p" 'mq-previous) + (define-key map "s" 'mq-edit-series) + (define-key map "t" 'mq-top) + map)) + +(global-set-key mq-global-prefix mq-global-map) (add-minor-mode 'mq-mode 'mq-mode) ;;; Refresh edit mode keymap. -(defvar mq-edit-mode-map (make-sparse-keymap)) -(define-key mq-edit-mode-map "\C-c\C-c" 'mq-edit-finish) -(define-key mq-edit-mode-map "\C-c\C-k" 'mq-edit-kill) -(define-key mq-edit-mode-map "\C-c\C-s" 'mq-signoff) +(defvar mq-edit-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "\C-c\C-c" 'mq-edit-finish) + (define-key map "\C-c\C-k" 'mq-edit-kill) + (define-key map "\C-c\C-s" 'mq-signoff) + map)) ;;; Helper functions.