From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 12 Oct 2008 16:59:01 +0000 (+0000)
Subject: (command-line): If toolbar is disabled but ought to be initialized,
X-Git-Tag: emacs-pretest-23.0.90~2520
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2b2930a59174f3240b07e843346dc5d8acc2d3a;p=emacs.git

(command-line): If toolbar is disabled but ought to be initialized,
call tool-bar-setup.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 09b21a325a9..6185cd5975a 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -691,6 +691,7 @@ opening the first frame (e.g. open a connection to an X server).")
 (declare-function x-get-resource "frame.c"
 		  (attribute class &optional component subclass))
 (declare-function tool-bar-mode "tool-bar" (&optional arg))
+(declare-function tool-bar-setup "tool-bar")
 
 (defun command-line ()
   (setq before-init-time (current-time)
@@ -896,17 +897,17 @@ opening the first frame (e.g. open a connection to an X server).")
                    (<= (frame-parameter nil 'menu-bar-lines) 0)))
     (menu-bar-mode 1))
 
-  ;; Enable tool-bar-mode if necessary.  Note that we might enable it
-  ;; even in tty frames, which means that there is a tool-bar if Emacs
-  ;; later opens a graphical frame.
-  (unless (or noninteractive emacs-basic-display
-	      (not (fboundp 'tool-bar-mode))
-  	      ;; The tool-bar-lines parameter is nil if starting on a
-  	      ;; tty; it is 0 if starting on a graphical display with
-  	      ;; the toolbar disabled via X resources.
-  	      (and (numberp (frame-parameter nil 'tool-bar-lines))
-  		   (<= (frame-parameter nil 'tool-bar-lines) 0)))
-    (tool-bar-mode 1))
+  (unless (or noninteractive (not (fboundp 'tool-bar-mode)))
+    ;; Set up the tool-bar.  Do this even in tty frames, so that there
+    ;; is a tool-bar if Emacs later opens a graphical frame.
+    (if (or emacs-basic-display
+	    (and (numberp (frame-parameter nil 'tool-bar-lines))
+		 (<= (frame-parameter nil 'tool-bar-lines) 0)))
+	;; On a graphical display with the toolbar disabled via X
+	;; resources, set up the toolbar without enabling it.
+	(tool-bar-setup)
+      ;; Otherwise, enable tool-bar-mode.
+      (tool-bar-mode 1)))
 
   ;; Can't do this init in defcustom because the relevant variables
   ;; are not set.