From 8fccff249687308542d490ed00d1e0a68a44b9f2 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 29 May 2015 22:33:20 -0400 Subject: Use avy instead of ace-jump-mode --- lisp/init-gnus.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'lisp/init-gnus.el') diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index e556b53..6abfd04 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -94,11 +94,10 @@ is off." (setq gnus-thread-hide-subtree t gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-number)) -(add-hook 'gnus-summary-mode-hook 'km/gnus-setup-local-ace-jump) - -(defun km/gnus-setup-local-ace-jump () - (add-hook 'ace-jump-mode-end-hook (lambda () (gnus-summary-scroll-up 0)) - nil t)) +(defun km/gnus-avy-goto-subword-and-select () + (interactive) + (call-interactively #'avy-goto-subword-1) + (gnus-summary-scroll-up 0)) (defun km/gnus-follow-last-message-link (copy) "Follow shr link at bottom of message. @@ -173,7 +172,7 @@ to group buffer instead of moving to next group." ;; 'S p'. (define-key gnus-summary-mode-map "c" 'km/gnus-summary-catchup) (define-key gnus-summary-mode-map "e" 'gnus-summary-scroll-up) -(define-key gnus-summary-mode-map "j" 'ace-jump-mode) +(define-key gnus-summary-mode-map "j" 'km/gnus-avy-goto-subword-and-select) (define-key gnus-article-mode-map (kbd "C-c l") 'km/gnus-follow-last-message-link) -- cgit v1.2.3