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)