# HG changeset patch # User Pavel Jank # Date 1012313846 0 # Node ID 9a93c325183ae6c0fc466dc86096627b43d34fc1 # Parent b03bfca3fc6e80cd8acbe742a20b045c4b3e8d75 (menu-bar-options-save): Add `default-frame-alist' to saved variables. (menu-bar-showhide-scroll-bar-menu): Use frame-parameters instead of the variable `scroll-bar-mode'. diff -r b03bfca3fc6e -r 9a93c325183a lisp/menu-bar.el --- a/lisp/menu-bar.el Tue Jan 29 13:55:43 2002 +0000 +++ b/lisp/menu-bar.el Tue Jan 29 14:17:26 2002 +0000 @@ -484,82 +484,6 @@ ;; The "Options" menu items -;; The "Show/Hide" submenu of menu "Options" - -(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) -(defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) - -(defun menu-bar-scroll-bar-right () - "Turn on the scroll-bar on the right side." - (interactive) - (set-scroll-bar-mode 'right)) - -(defun menu-bar-scroll-bar-left () - "Turn on the scroll-bar on the left side." - (interactive) - (set-scroll-bar-mode 'left)) - -(defun menu-bar-scroll-bar-none () - "Turn off the scroll-bar." - (interactive) - (set-scroll-bar-mode nil)) - -(define-key menu-bar-showhide-scroll-bar-menu [right] - '(menu-item "On the Right" menu-bar-scroll-bar-right - :help "Scroll-bar on the right side" - :visible window-system - :button (:radio . (eq scroll-bar-mode 'right)))) - -(define-key menu-bar-showhide-scroll-bar-menu [left] - '(menu-item "On the Left" menu-bar-scroll-bar-left - :help "Scroll-bar on the left side" - :visible window-system - :button (:radio . (eq scroll-bar-mode 'left)))) - -(define-key menu-bar-showhide-scroll-bar-menu [none] - '(menu-item "None" menu-bar-scroll-bar-none - :help "Turn off scroll-bar" - :visible window-system - :button (:radio . (eq scroll-bar-mode nil)))) - -(define-key menu-bar-showhide-menu [showhide-scroll-bar] - (list 'menu-item "Scroll-Bar" menu-bar-showhide-scroll-bar-menu - :visible 'window-system - :help "Select scroll-bar mode")) - -(defun showhide-menu-bar () - "Toggle whether to turn menu-bar on/off." - (interactive) - (if (menu-bar-mode) - (message "Menu-bar mode enabled.") - (message "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))) - -(define-key menu-bar-showhide-menu [showhide-menu-bar] - '(menu-item "Menu-bar" showhide-menu-bar - :help "Toggle menu-bar on/off" - :button (:toggle . menu-bar-mode))) - -(defun showhide-tool-bar () - "Toggle whether to turn tool-bar on/off." - (interactive) - (if (tool-bar-mode) - (message "Tool-bar mode enabled.") - (message "Tool-bar mode disabled."))) - -(define-key menu-bar-showhide-menu [showhide-tool-bar] - '(menu-item "Tool-bar" showhide-tool-bar - :help "Turn tool-bar on/off" - :visible window-system - :button (:toggle . tool-bar-mode))) - -(define-key menu-bar-options-menu [showhide] - (list 'menu-item "Show/Hide" menu-bar-showhide-menu - :help "Toggle on/off various display features")) - -(define-key menu-bar-options-menu [showhide-separator] - '("--")) - - (defvar menu-bar-custom-menu (make-sparse-keymap "Customize")) (define-key menu-bar-custom-menu [customize-apropos-groups] @@ -624,7 +548,8 @@ (dolist (elt '(debug-on-quit debug-on-error auto-compression-mode case-fold-search truncate-lines show-paren-mode transient-mark-mode global-font-lock-mode - current-language-environment default-input-method)) + current-language-environment default-input-method + default-frame-alist)) (if (default-value elt) (customize-save-variable elt (default-value elt)))) (if (memq 'turn-on-auto-fill text-mode-hook) @@ -643,6 +568,82 @@ (define-key menu-bar-options-menu [custom-separator] '("--")) +;; The "Show/Hide" submenu of menu "Options" + +(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) +(defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) + +(defun menu-bar-scroll-bar-right () + "Turn on the scroll-bar on the right side." + (interactive) + (set-scroll-bar-mode 'right)) + +(defun menu-bar-scroll-bar-left () + "Turn on the scroll-bar on the left side." + (interactive) + (set-scroll-bar-mode 'left)) + +(defun menu-bar-scroll-bar-none () + "Turn off the scroll-bar." + (interactive) + (set-scroll-bar-mode nil)) + +(define-key menu-bar-showhide-scroll-bar-menu [right] + '(menu-item "On the Right" menu-bar-scroll-bar-right + :help "Scroll-bar on the right side" + :visible window-system + :button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) 'right)))) + +(define-key menu-bar-showhide-scroll-bar-menu [left] + '(menu-item "On the Left" menu-bar-scroll-bar-left + :help "Scroll-bar on the left side" + :visible window-system + :button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) 'left)))) + +(define-key menu-bar-showhide-scroll-bar-menu [none] + '(menu-item "None" menu-bar-scroll-bar-none + :help "Turn off scroll-bar" + :visible window-system + :button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) nil)))) + +(define-key menu-bar-showhide-menu [showhide-scroll-bar] + (list 'menu-item "Scroll-Bar" menu-bar-showhide-scroll-bar-menu + :visible 'window-system + :help "Select scroll-bar mode")) + +(defun showhide-menu-bar () + "Toggle whether to turn menu-bar on/off." + (interactive) + (menu-bar-mode) + (if menu-bar-mode + (message "Menu-bar mode enabled.") + (message "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))) + +(define-key menu-bar-showhide-menu [showhide-menu-bar] + '(menu-item "Menu-bar" showhide-menu-bar + :help "Toggle menu-bar on/off" + :button (:toggle . menu-bar-mode))) + +(defun showhide-tool-bar () + "Toggle whether to turn tool-bar on/off." + (interactive) + (if (tool-bar-mode) + (message "Tool-bar mode enabled.") + (message "Tool-bar mode disabled."))) + +(define-key menu-bar-showhide-menu [showhide-tool-bar] + '(menu-item "Tool-bar" showhide-tool-bar + :help "Turn tool-bar on/off" + :visible window-system + :button (:toggle . tool-bar-mode))) + +(define-key menu-bar-options-menu [showhide] + (list 'menu-item "Show/Hide" menu-bar-showhide-menu + :help "Toggle on/off various display features")) + +(define-key menu-bar-options-menu [showhide-separator] + '("--")) + (define-key menu-bar-options-menu [mule] ;; It is better not to use backquote here, ;; because that makes a bootstrapping problem