# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1138298341 0
# Node ID 3f56050552c31a40aaefaf1e66290b2bc87e720c
# Parent  68bc4d8721122e2c42e8ca4a942a3cc095c760a2
(advertised-widget-backward): New alias.
(widget-keymap): Use advertised-widget-backward for S-TAB.

diff -r 68bc4d872112 -r 3f56050552c3 lisp/wid-edit.el
--- a/lisp/wid-edit.el	Thu Jan 26 17:58:14 2006 +0000
+++ b/lisp/wid-edit.el	Thu Jan 26 17:59:01 2006 +0000
@@ -850,11 +850,14 @@
 ;;; 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)