Mercurial > emacs
changeset 43412:ce181770fa8e
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 | 796cc474ce32 |
| children | 0f448bd1bf9a |
| files | lisp/ChangeLog lisp/facemenu.el lisp/menu-bar.el lisp/toolbar/tool-bar.el |
| diffstat | 4 files changed, 10 insertions(+), 25 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Feb 19 06:50:24 2002 +0000 +++ b/lisp/ChangeLog Tue Feb 19 10:30:30 2002 +0000 @@ -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.
--- 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'.")
--- a/lisp/menu-bar.el Tue Feb 19 06:50:24 2002 +0000 +++ b/lisp/menu-bar.el Tue Feb 19 10:30:30 2002 +0000 @@ -1438,7 +1438,7 @@ (list 'menu-item "Enter" 'exit-minibuffer :help "Terminate input and exit minibuffer"))) -(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 @@ :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
--- a/lisp/toolbar/tool-bar.el Tue Feb 19 06:50:24 2002 +0000 +++ b/lisp/toolbar/tool-bar.el Tue Feb 19 10:30:30 2002 +0000 @@ -47,6 +47,7 @@ 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 @@ (= 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.")