From 41edc2ca720b5468fb20f0776255c9d40251e9af Mon Sep 17 00:00:00 2001 From: Peng Li Date: Sat, 9 Jul 2016 20:47:09 +0800 Subject: [PATCH] emacs - gnus group mappings --- emacs.d/config.org | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/emacs.d/config.org b/emacs.d/config.org index cffcecd..b388ed7 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -1949,15 +1949,12 @@ Then Run =M-x gnus= (t . my-group-face-5)))) - ;; key-remapping - (defun sd/gnus-map () - (interactive) - (define-key gnus-group-mode-map "k" 'gnus-group-prev-group) - (define-key gnus-group-mode-map "j" 'gnus-group-next-group) - (define-key gnus-group-mode-map "g" 'gnus-group-jump-to-group) - (define-key gnus-group-mode-map "v" (lambda () (interactive) (gnus-group-select-group t)))) - - (add-hook 'gnus-group-mode-hook 'sd/gnus-map) + ;; key- + (add-hook 'gnus-group-mode-hook (lambda () + (define-key gnus-group-mode-map "k" 'gnus-group-prev-group) + (define-key gnus-group-mode-map "j" 'gnus-group-next-group) + (define-key gnus-group-mode-map "g" 'gnus-group-jump-to-group) + (define-key gnus-group-mode-map "v" (lambda () (interactive) (gnus-group-select-group t))))) #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent -- 2.11.0