[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 81059cb: Make TAB and M-TAB run widget-forward and
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 81059cb: Make TAB and M-TAB run widget-forward and widget-backward (bug#25091) |
Date: |
Mon, 5 Dec 2016 23:32:55 +0000 (UTC) |
branch: master
commit 81059cb970f95362eb52d6f53bbf02c70172048b
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
Make TAB and M-TAB run widget-forward and widget-backward (bug#25091)
* lisp/gnus/mm-decode (mm-convert-shr-links): Avoid `shr-next-link'
and `shr-previous-link' so TAB and M-TAB run `widget-forward' and
`widget-backward' instead (bug#25091).
---
lisp/gnus/mm-decode.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 4b3f10c..3127a22 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1859,6 +1859,10 @@ If RECURSIVE, search recursively."
(dolist (key (where-is-internal #'widget-button-click widget-keymap))
(unless (lookup-key keymap key)
(define-key keymap key #'ignore)))
+ ;; Avoid `shr-next-link' and `shr-previous-link' in `keymap' so
+ ;; TAB and M-TAB run `widget-forward' and `widget-backward' instead.
+ (substitute-key-definition 'shr-next-link nil keymap)
+ (substitute-key-definition 'shr-previous-link nil keymap)
(dolist (overlay (overlays-at start))
(overlay-put overlay 'face nil))
(setq start end)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 81059cb: Make TAB and M-TAB run widget-forward and widget-backward (bug#25091),
Katsumi Yamaoka <=