Commit cd8990c1 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(advertised-widget-backward): New alias.

(widget-keymap): Use advertised-widget-backward for S-TAB.
parent 02c88f47
......@@ -849,12 +849,15 @@ button end points."
;;; Keymap and Commands.
(defalias 'advertised-widget-backward 'widget-backward)
(defvar widget-keymap
(let ((map (make-sparse-keymap)))
(define-key map "\t" 'widget-forward)
(define-key map "\e\t" 'widget-backward)
(define-key map [(shift tab)] 'widget-backward)
(define-key map [(shift tab)] 'advertised-widget-backward)
(define-key map [backtab] 'widget-backward)
(define-key map [down-mouse-2] 'widget-button-click)
(define-key map "\C-m" 'widget-button-press)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment