andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(advertised-widget-backward): New alias.

Browse source 
(widget-keymap): Use advertised-widget-backward for S-TAB.
This commit is contained in:
Richard M. Stallman 2006-01-26 17:59:01 +00:00
parent 02c88f477e
commit cd8990c1d7
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/wid-edit.el
View file

@ -849,12 +849,15 @@ button end points."
;;; Keymap and Commands. ;;; Keymap and Commands.
;;;###autoload
(defalias 'advertised-widget-backward 'widget-backward)
;;;###autoload ;;;###autoload
(defvar widget-keymap (defvar widget-keymap
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map "\t" 'widget-forward) (define-key map "\t" 'widget-forward)
(define-key map "\e\t" 'widget-backward) (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 [backtab] 'widget-backward)
(define-key map [down-mouse-2] 'widget-button-click) (define-key map [down-mouse-2] 'widget-button-click)
(define-key map "\C-m" 'widget-button-press) (define-key map "\C-m" 'widget-button-press)