aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDan Nicolaescu2008-09-26 17:42:20 +0000
committerDan Nicolaescu2008-09-26 17:42:20 +0000
commitb082f79218f688fc122c784ec85ec0239fef2723 (patch)
tree2743e7812237fa2a291e9e1c055e2adf03684170
parent1ed6e04d06ea2ed21c0bcf66e0a75ade77658abc (diff)
downloademacs-b082f79218f688fc122c784ec85ec0239fef2723.tar.gz
emacs-b082f79218f688fc122c784ec85ec0239fef2723.zip
(command-line): Turn on menu-bar-mode and
tool-bar-mode when running as a daemon.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/startup.el26
2 files changed, 20 insertions, 11 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0652a238fdd..290b6b227e0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12008-09-26 Dan Nicolaescu <dann@ics.uci.edu>
2
3 * startup.el (command-line): Turn on menu-bar-mode and
4 tool-bar-mode when running as a daemon.
5
12008-09-26 Eli Zaretskii <eliz@gnu.org> 62008-09-26 Eli Zaretskii <eliz@gnu.org>
2 7
3 * makefile.w32-in ($(lisp)/progmodes/cc-mode.elc): Remove. 8 * makefile.w32-in ($(lisp)/progmodes/cc-mode.elc): Remove.
diff --git a/lisp/startup.el b/lisp/startup.el
index dd8fce06a48..0833f98d4dd 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -899,19 +899,23 @@ opening the first frame (e.g. open a connection to an X server).")
899 '("off" "false"))))) 899 '("off" "false")))))
900 (setq no-blinking-cursor t)) 900 (setq no-blinking-cursor t))
901 901
902 ;; If frame was created with a menu bar, set menu-bar-mode on. 902 ;; If we run as a daemon, or frame was created with a menu bar, set
903 (unless (or noninteractive 903 ;; menu-bar-mode on.
904 emacs-basic-display 904 (when (or (daemonp)
905 (and (memq initial-window-system '(x w32)) 905 (not (or noninteractive
906 (<= (frame-parameter nil 'menu-bar-lines) 0))) 906 emacs-basic-display
907 (and (memq initial-window-system '(x w32))
908 (<= (frame-parameter nil 'menu-bar-lines) 0)))))
907 (menu-bar-mode 1)) 909 (menu-bar-mode 1))
908 910
909 ;; If frame was created with a tool bar, switch tool-bar-mode on. 911 ;; If we run as a daemon or frame was created with a tool bar,
910 (unless (or noninteractive 912 ;; switch tool-bar-mode on.
911 emacs-basic-display 913 (when (or (daemonp)
912 (not (display-graphic-p)) 914 (not (or noninteractive
913 (<= (frame-parameter nil 'tool-bar-lines) 0)) 915 emacs-basic-display
914 (tool-bar-mode 1)) 916 (not (display-graphic-p))
917 (<= (frame-parameter nil 'tool-bar-lines) 0))))
918 (tool-bar-mode 1))
915 919
916 ;; Can't do this init in defcustom because the relevant variables 920 ;; Can't do this init in defcustom because the relevant variables
917 ;; are not set. 921 ;; are not set.