diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-12-05 23:32:36 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-12-05 23:32:36 +0000 |
| commit | 81059cb970f95362eb52d6f53bbf02c70172048b (patch) | |
| tree | c13e30ba71391ed6061158f8cc561c774cad929d /lisp | |
| parent | 1b762de16642cd08a7fbc47e2e0c058af2e09a11 (diff) | |
| download | emacs-81059cb970f95362eb52d6f53bbf02c70172048b.tar.gz emacs-81059cb970f95362eb52d6f53bbf02c70172048b.tar.bz2 emacs-81059cb970f95362eb52d6f53bbf02c70172048b.zip | |
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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/mm-decode.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 4b3f10c2e19..3127a22e41d 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))))) |