(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index c05e430aa294f36ad76eddded9e133f947227a5a..8cfac376101204a6045ec51227ccbc776b19848a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,10 @@
 
        * menu-bar.el (menu-bar-help-menu): Change menu-item "Show Emacs
        Version" to "About Emacs".
+       (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'.
 
        * startup.el (normal-splash-screen, display-splash-screen):
        New functions (separated from command-line-1).

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 95bc9a8f0067dc47d80dece45225c3abe23fcb0b..69a8bf3433d672ccb2cfb9c40a5901e25dec1c3e 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -484,82 +484,6 @@ Do the same for the keys of the same name."
 \f
 ;; 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]
-  '("--"))
-
-\f
 (defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))
 
 (define-key menu-bar-custom-menu [customize-apropos-groups]
@@ -624,7 +548,8 @@ Do the same for the keys of the same name."
   (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 @@ Do the same for the keys of the same name."
 (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