From cd8990c1d71fab74089875854d2a9e826b5b3e80 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 26 Jan 2006 17:59:01 +0000 Subject: [PATCH] (advertised-widget-backward): New alias. (widget-keymap): Use advertised-widget-backward for S-TAB. --- lisp/wid-edit.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 @@ -849,12 +849,15 @@ button end points." ;;; Keymap and Commands. +;;;###autoload +(defalias 'advertised-widget-backward 'widget-backward) + ;;;###autoload (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) -- 2.39.2