mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Make TAB and M-TAB run widget-forward and widget-backward (bug#25091)

Browse Source 
* 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).
This commit is contained in:
Katsumi Yamaoka 2016-12-05 23:32:36 +00:00
parent 1b762de166
commit 81059cb970
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/mm-decode.el
View File

@ -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)))))