diff options
| author | Gerd Moellmann | 2000-09-21 18:38:53 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-09-21 18:38:53 +0000 |
| commit | 7d1eb6a4c09b9ca535e19aae43a221ee8916bbad (patch) | |
| tree | 1e57327ff2ffb0ec1462e5e1592ac4e345a66bdf | |
| parent | 80585273bd164c0eca43fc6225d43b326a9f27e2 (diff) | |
| download | emacs-7d1eb6a4c09b9ca535e19aae43a221ee8916bbad.tar.gz emacs-7d1eb6a4c09b9ca535e19aae43a221ee8916bbad.zip | |
(command-line): If frame was created with a non-zero
tool-bar-lines parameter, switch tool-bar-mode on.
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index c1344f6f7b9..3353330a198 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -652,6 +652,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 652 | (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))) | 652 | (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))) |
| 653 | (menu-bar-mode t)) | 653 | (menu-bar-mode t)) |
| 654 | 654 | ||
| 655 | ;; If frame was created with a tool bar, switch tool-bar-mode on. | ||
| 656 | (when (and (not noninteractive) | ||
| 657 | (memq window-system '(x w32)) | ||
| 658 | (> (frame-parameter nil 'tool-bar-lines) 0)) | ||
| 659 | (tool-bar-mode t)) | ||
| 660 | |||
| 655 | ;; Can't do this init in defcustom because window-system isn't set. | 661 | ;; Can't do this init in defcustom because window-system isn't set. |
| 656 | (when (and (not noninteractive) | 662 | (when (and (not noninteractive) |
| 657 | (not (eq system-type 'ms-dos)) | 663 | (not (eq system-type 'ms-dos)) |