diff options
| author | Dan Nicolaescu | 2008-09-26 17:42:20 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2008-09-26 17:42:20 +0000 |
| commit | b082f79218f688fc122c784ec85ec0239fef2723 (patch) | |
| tree | 2743e7812237fa2a291e9e1c055e2adf03684170 | |
| parent | 1ed6e04d06ea2ed21c0bcf66e0a75ade77658abc (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/startup.el | 26 |
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 @@ | |||
| 1 | 2008-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 | |||
| 1 | 2008-09-26 Eli Zaretskii <eliz@gnu.org> | 6 | 2008-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. |