From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 26 Jan 2006 17:59:01 +0000 (+0000)
Subject: (advertised-widget-backward): New alias.
X-Git-Tag: emacs-pretest-22.0.90~4565
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd8990c1d71fab74089875854d2a9e826b5b3e80;p=emacs.git

(advertised-widget-backward): New alias.
(widget-keymap): Use advertised-widget-backward for S-TAB.
---

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)