X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fmodeline.el;h=c6e6a09ec0262abcb55c88d7c088ca16e0fe07fe;hp=c5e428d8232702aa5d6a24dc687ff7cbe843936d;hb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;hpb=3890a2e3064a7f562107c58e59d928284ec04741

diff --git a/lisp/modeline.el b/lisp/modeline.el
index c5e428d..c6e6a09 100644
--- a/lisp/modeline.el
+++ b/lisp/modeline.el
@@ -39,6 +39,23 @@
   "Modeline customizations."
   :group 'environment)
 
+(defcustom modeline-3d-p ;; added for the options menu
+  (let ((thickness
+	 (specifier-instance modeline-shadow-thickness)))
+    (and (integerp thickness)
+	 (> thickness 0)))
+  "Whether the default toolbar is globally visible. This option can be
+customized through the options menu."
+  :group 'display
+  :type 'boolean
+  :set #'(lambda (var val)
+	   (if val
+	       (set-specifier modeline-shadow-thickness 2)
+	     (set-specifier modeline-shadow-thickness 0))
+	   (redraw-modeline t)
+	   (setq modeline-3d-p val))
+  )
+
 (defcustom drag-divider-event-lag 150
   "*The pause (in msecs) between divider drag events before redisplaying.
 If this value is too small, dragging will be choppy because redisplay cannot
@@ -575,8 +592,13 @@ parentheses on the modeline."
 					; this used to be "XEmacs:"
 	(cons modeline-buffer-id-right-extent (purecopy " %17b")))
   "Modeline control for identifying the buffer being displayed.
-Its default value is \"XEmacs: %17b\" (NOT!).  Major modes that edit things
-other than ordinary files may change this (e.g. Info, Dired,...)")
+Its default value is
+
+  (list (cons modeline-buffer-id-left-extent (purecopy \"XEmacs%N:\"))
+	(cons modeline-buffer-id-right-extent (purecopy \" %17b\")))
+
+Major modes that edit things other than ordinary files may change this
+(e.g. Info, Dired,...).")
 (make-variable-buffer-local 'modeline-buffer-identification)
 
 ;; These are for the sake of minor mode menu.  #### All of this is