Mercurial > emacs
comparison lisp/startup.el @ 32206:c743497a67e3
(command-line): For now, activate tool-bar-mode only
if XPM images are supported.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 06 Oct 2000 11:42:45 +0000 |
parents | 70cdcabc7bbc |
children | ecede095f3ac |
comparison
equal
deleted
inserted
replaced
32205:dfa83e0eb90e | 32206:c743497a67e3 |
---|---|
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. | 655 ;; If frame was created with a tool bar, switch tool-bar-mode on. |
656 (when (and (not noninteractive) | 656 (when (and (not noninteractive) |
657 (memq window-system '(x w32)) | 657 (memq window-system '(x w32)) |
658 (image-type-available-p 'xpm) | |
658 (> (frame-parameter nil 'tool-bar-lines) 0)) | 659 (> (frame-parameter nil 'tool-bar-lines) 0)) |
659 (tool-bar-mode t)) | 660 (tool-bar-mode t)) |
660 | 661 |
661 ;; Can't do this init in defcustom because window-system isn't set. | 662 ;; Can't do this init in defcustom because window-system isn't set. |
662 (when (and (not noninteractive) | 663 (when (and (not noninteractive) |