diff options
| author | Richard M. Stallman | 2006-01-26 17:59:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-01-26 17:59:01 +0000 |
| commit | cd8990c1d71fab74089875854d2a9e826b5b3e80 (patch) | |
| tree | 889638a819bb79bbb87db3e1e64f7f347e13d6a8 | |
| parent | 02c88f477e3741e034d3fe702af9ffb5d3507279 (diff) | |
| download | emacs-cd8990c1d71fab74089875854d2a9e826b5b3e80.tar.gz emacs-cd8990c1d71fab74089875854d2a9e826b5b3e80.zip | |
(advertised-widget-backward): New alias.
(widget-keymap): Use advertised-widget-backward for S-TAB.
| -rw-r--r-- | lisp/wid-edit.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 01b82b685c1..21cbf72797e 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -850,11 +850,14 @@ button end points." | |||
| 850 | ;;; Keymap and Commands. | 850 | ;;; Keymap and Commands. |
| 851 | 851 | ||
| 852 | ;;;###autoload | 852 | ;;;###autoload |
| 853 | (defalias 'advertised-widget-backward 'widget-backward) | ||
| 854 | |||
| 855 | ;;;###autoload | ||
| 853 | (defvar widget-keymap | 856 | (defvar widget-keymap |
| 854 | (let ((map (make-sparse-keymap))) | 857 | (let ((map (make-sparse-keymap))) |
| 855 | (define-key map "\t" 'widget-forward) | 858 | (define-key map "\t" 'widget-forward) |
| 856 | (define-key map "\e\t" 'widget-backward) | 859 | (define-key map "\e\t" 'widget-backward) |
| 857 | (define-key map [(shift tab)] 'widget-backward) | 860 | (define-key map [(shift tab)] 'advertised-widget-backward) |
| 858 | (define-key map [backtab] 'widget-backward) | 861 | (define-key map [backtab] 'widget-backward) |
| 859 | (define-key map [down-mouse-2] 'widget-button-click) | 862 | (define-key map [down-mouse-2] 'widget-button-click) |
| 860 | (define-key map "\C-m" 'widget-button-press) | 863 | (define-key map "\C-m" 'widget-button-press) |