projects
/
dotfiles.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
7c8d787
)
emacs - gnus group mappings
author
Peng Li
<seudut@gmail.com>
Sat, 9 Jul 2016 12:47:09 +0000
(20:47 +0800)
committer
Peng Li
<seudut@gmail.com>
Sat, 9 Jul 2016 12:47:09 +0000
(20:47 +0800)
emacs.d/config.org
patch
|
blob
|
history
diff --git
a/emacs.d/config.org
b/emacs.d/config.org
index
cffcecd
..
b388ed7
100644
(file)
--- a/
emacs.d/config.org
+++ b/
emacs.d/config.org
@@
-1949,15
+1949,12
@@
Then Run =M-x gnus=
(t . my-group-face-5))))
(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
#+END_SRC
#+BEGIN_SRC emacs-lisp :tangle yes :results silent