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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 517a2a69665025e57d89cb85d473600c237c4bdd..2f1eed421c521ac90deb28baee389c4035ec2a56 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+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.
+
 2002-02-18  Andreas Schwab  <schwab@suse.de>
 
        * replace.el (query-replace-regexp-eval): Doc fix.

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 59e27e2dbd5c94965af50811a65d07cff2d6a611..2e1e6c7538b4fb01288cfe3513852f95abde186b 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -478,18 +478,7 @@ These special properties include `invisible', `intangible' and `read-only'."
 
 (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'.")
   

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index e6814a4e76c41d4b7473e30779003e4c85018013..2e085759eab081244e800865d0557a107dd11f79 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1438,7 +1438,7 @@ key (or menu-item)"))
     (list 'menu-item "Enter" 'exit-minibuffer
          :help "Terminate input and exit minibuffer")))
 \f
-(defcustom menu-bar-mode nil
+(defcustom menu-bar-mode t
   "Toggle display of a menu bar on each frame.
 Setting this variable directly does not take effect;
 use either \\[customize] or the function `menu-bar-mode'."
@@ -1448,12 +1448,6 @@ use either \\[customize] or the function `menu-bar-mode'."
   :type 'boolean
   :group 'frames)
 
-;;; `menu-bar-mode' doesn't really have a standard value, as it depend
-;;; on where and how Emacs was started.  By removing the standard
-;;; value, we ensure that customize will always save it.
-;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11.
-(put 'menu-bar-mode 'standard-value nil)
-
 (defun menu-bar-mode (&optional flag)
   "Toggle display of a menu bar on each frame.
 This command applies to all frames that exist and frames to be

diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el
index 3d2ded136f593683a4d59d18500c46b4f8c53505..5f563be810a940773119409d8ac0a65e9bcfe415 100644 (file)
--- a/lisp/toolbar/tool-bar.el
+++ b/lisp/toolbar/tool-bar.el
@@ -47,6 +47,7 @@ With numeric ARG, display the tool bar if and only if ARG is positive.
 
 See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for
 conveniently adding tool bar items."
+  :init-value t
   :global t
   :group 'mouse
   :group 'frames
@@ -67,12 +68,6 @@ conveniently adding tool bar items."
                (= 1 (length (default-value 'tool-bar-map)))) ; not yet setup
           (tool-bar-setup))))
 
-;;; `tool-bar-mode' doesn't really have a standard value, as it depend
-;;; on where and how Emacs was started.  By removing the standard
-;;; value, we ensure that customize will always save it.
-;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11.
-(put 'tool-bar-mode 'standard-value nil)
-
 (defvar tool-bar-map (make-sparse-keymap)
   "Keymap for the tool bar.
 Define this locally to override the global tool bar.")