Mercurial > emacs

comparison lisp/version.el @ 55567:f5732b5fb78b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(emacs-version): Check for `gtk' feature before `x-toolkit' feature.
author John Paul Wallington <jpw@pobox.com>
date Thu, 13 May 2004 13:00:02 +0000
parents 695cf19ef79e
children aac0a33f5772 ad01ab3c6f4d 4c90ffeb71c5
comparison
equal deleted inserted replaced
55566:345e8d954dfc 55567:f5732b5fb78b
59 "GNU Emacs %s (%s%s%s) of %s on %s") 59 "GNU Emacs %s (%s%s%s) of %s on %s")
60 emacs-version 60 emacs-version
61 system-configuration 61 system-configuration
62 (cond ((featurep 'motif) 62 (cond ((featurep 'motif)
63 (concat ", " (substring motif-version-string 4))) 63 (concat ", " (substring motif-version-string 4)))
64 ((featurep 'x-toolkit) ", X toolkit")
65 ((featurep 'gtk) 64 ((featurep 'gtk)
66 (concat ", GTK+ Version " gtk-version-string)) 65 (concat ", GTK+ Version " gtk-version-string))
66 ((featurep 'x-toolkit) ", X toolkit")
67 (t "")) 67 (t ""))
68 (if (and (boundp 'x-toolkit-scroll-bars) 68 (if (and (boundp 'x-toolkit-scroll-bars)
69 (memq x-toolkit-scroll-bars '(xaw xaw3d))) 69 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
70 (format ", %s scroll bars" 70 (format ", %s scroll bars"
71 (capitalize (symbol-name x-toolkit-scroll-bars))) 71 (capitalize (symbol-name x-toolkit-scroll-bars)))