X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmenubar-items.el;h=088c4995ff9f35f872e824bf833bf74b3a23b1c1;hb=dedc107f8c0af33a05ff7b131c673ab71670b1cd;hp=11f695f719172c67ef625bc9ded3d77fd30b253f;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/menubar-items.el b/lisp/menubar-items.el
index 11f695f..088c499 100644
--- a/lisp/menubar-items.el
+++ b/lisp/menubar-items.el
@@ -121,7 +121,7 @@ which will not be used as accelerators."
 	(t "")))
 
 (defconst default-menubar
-  (purecopy-menubar
+; (purecopy-menubar ;purespace is dead
    ;; note backquote.
    `(
      ("%_File"
@@ -401,13 +401,13 @@ which will not be used as accelerators."
        ;; hack-o-matic, we can't force a load of package-base here
        ;; since it triggers dialog box interactions which we can't
        ;; deal with while using a menu
-       ("Using %_Custom" 
+       ("Using %_Custom"
 	:filter (lambda (&rest junk)
 		  (if package-get-base
 		      (submenu-generate-accelerator-spec
 		       (cdr (custom-menu-create 'packages)))
 		    '("Please load Package Index"))))
-       
+
        ["%_Help" (Info-goto-node "(xemacs)Packages")])
       ("%_Internet"
        ["Read Mail %_1 (VM)..." vm
@@ -932,7 +932,7 @@ which will not be used as accelerators."
 			(eq browse-url-browser-function 'browse-url-grail))
 	 :active (and (boundp 'browse-url-browser-function)
 		      (fboundp 'browse-url-grail))]
-	["%_Kfm" 
+	["%_Kfm"
 	 (customize-set-variable 'browse-url-browser-function
 				 'browse-url-kfm)
 	 :style radio
@@ -940,7 +940,7 @@ which will not be used as accelerators."
 			(eq browse-url-browser-function 'browse-url-kfm))
 	 :active (and (boundp 'browse-url-browser-function)
 		      (fboundp 'browse-url-kfm))]
-	))      
+	))
       ("%_Troubleshooting"
        ["%_Debug on Error"
 	(customize-set-variable 'debug-on-error (not debug-on-error))
@@ -968,17 +968,32 @@ which will not be used as accelerators."
 					(not scrollbars-visible-p))
 		:style toggle
 		:selected scrollbars-visible-p]))
-       ["%_3D Modeline"
-	(customize-set-variable 'modeline-3d-p
-				(not modeline-3d-p))
-	:style toggle
-	:selected modeline-3d-p]
        ["%_Wrap Long Lines"
 	(progn;; becomes buffer-local
 	  (setq truncate-lines (not truncate-lines))
 	  (customize-set-variable 'truncate-lines truncate-lines))
 	:style toggle
 	:selected (not truncate-lines)]
+       "----"
+       ["%_3D Modeline"
+	(customize-set-variable 'modeline-3d-p
+				(not modeline-3d-p))
+	:style toggle
+	:selected modeline-3d-p]
+       ("Modeline %_Horizontal Scrolling"
+	["%_None"
+	 (customize-set-variable 'modeline-scrolling-method nil)
+	 :style radio
+	 :selected (not modeline-scrolling-method)]
+	["As %_Text"
+	 (customize-set-variable 'modeline-scrolling-method t)
+	 :style radio
+	 :selected (eq modeline-scrolling-method t)]
+	["As %_Scrollbar"
+	 (customize-set-variable 'modeline-scrolling-method 'scrollbar)
+	 :style radio
+	 :selected (eq modeline-scrolling-method 'scrollbar)]
+	)
        ,@(if (featurep 'toolbar)
 	     '("---"
 	       ["%_Toolbars Visible"
@@ -1105,7 +1120,7 @@ which will not be used as accelerators."
 				  (not column-number-mode))
 	  (redraw-modeline))
 	:style toggle :selected column-number-mode]
-       
+
        ("\"Other %_Window\" Location"
 	["%_Always in Same Frame"
 	 (customize-set-variable
@@ -1156,7 +1171,7 @@ which will not be used as accelerators."
 	 :selected (and (boundp 'gnuserv-frame) (eq gnuserv-frame t))
 	 :active (boundp 'gnuserv-frame)]
 	)
-       )      
+       )
       ("%_Menubars"
        ["%_Frame-Local Font Menu"
 	(customize-set-variable 'font-menu-this-frame-only-p
@@ -1453,7 +1468,7 @@ which will not be used as accelerators."
        ["View %_Splash Screen" xemacs-splash-buffer]
        ["%_Unix Manual..." manual-entry])
       ["Send %_Bug Report..." report-emacs-bug
-       :active (fboundp 'report-emacs-bug)]))))
+       :active (fboundp 'report-emacs-bug)])))
 
 
 (defun maybe-add-init-button ()