Mercurial > emacs

diff lisp/facemenu.el @ 43412:ce181770fa8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2002-02-19 Per Abrahamsen <abraham@dina.kvl.dk> * facemenu.el (describe-text-mode-map): Removed bootstrap kludge. * toolbar/tool-bar.el (tool-bar-mode): Made the standard value t. * menu-bar.el (menu-bar-mode): Ditto.
author Per Abrahamsen <abraham@dina.kvl.dk>
date Tue, 19 Feb 2002 10:30:30 +0000
parents ce2590f06ba0
children e0e6df854822
line wrap: on
line diff
--- a/lisp/facemenu.el	Tue Feb 19 06:50:24 2002 +0000
+++ b/lisp/facemenu.el	Tue Feb 19 10:30:30 2002 +0000
@@ -478,18 +478,7 @@
 
 (defvar describe-text-mode-map 
   (let ((map (make-sparse-keymap)))
-    (if (boundp 'widget-keymap)
-	(set-keymap-parent map widget-keymap)
-      ;; Copy from wid-edit.el if widget-keymap isn't in loaddefs.el
-      ;; Needed for bootstrap purposes, can hopefully be removed when 
-      ;; loaddefs.el is updated.
-      ;; -- Per Abrahamsen <abraham@dina.kvl.dk>, 2002-02-14.
-      (define-key map "\t" 'widget-forward)
-      (define-key map [(shift tab)] '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))
-    (define-key map "q" 'describe-text-done)
+    (set-keymap-parent map widget-keymap)
     map)
   "Keymap for `describe-text-mode'.")