852 |
(defvar widget-keymap |
(defvar widget-keymap |
853 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
854 |
(define-key map "\t" 'widget-forward) |
(define-key map "\t" 'widget-forward) |
855 |
|
(define-key map "\e\t" 'widget-backward) |
856 |
(define-key map [(shift tab)] 'widget-backward) |
(define-key map [(shift tab)] 'widget-backward) |
857 |
(define-key map [backtab] 'widget-backward) |
(define-key map [backtab] 'widget-backward) |
858 |
(define-key map [down-mouse-2] 'widget-button-click) |
(define-key map [down-mouse-2] 'widget-button-click) |