Mercurial > emacs

comparison lisp/version.el @ 73429:c24e4c92d898

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(emacs-version): Use mac-carbon-version-string.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Thu, 19 Oct 2006 08:00:30 +0000
parents 3bd95f4f2941
children 16133e335cb5
comparison
equal deleted inserted replaced
73428:c78fdfe68241 73429:c24e4c92d898
62 (cond ((featurep 'motif) 62 (cond ((featurep 'motif)
63 (concat ", " (substring motif-version-string 4))) 63 (concat ", " (substring motif-version-string 4)))
64 ((featurep 'gtk) 64 ((featurep 'gtk)
65 (concat ", GTK+ Version " gtk-version-string)) 65 (concat ", GTK+ Version " gtk-version-string))
66 ((featurep 'x-toolkit) ", X toolkit") 66 ((featurep 'x-toolkit) ", X toolkit")
67 ((boundp 'mac-carbon-version-string)
68 (concat ", Carbon Version " mac-carbon-version-string))
67 (t "")) 69 (t ""))
68 (if (and (boundp 'x-toolkit-scroll-bars) 70 (if (and (boundp 'x-toolkit-scroll-bars)
69 (memq x-toolkit-scroll-bars '(xaw xaw3d))) 71 (memq x-toolkit-scroll-bars '(xaw xaw3d)))
70 (format ", %s scroll bars" 72 (format ", %s scroll bars"
71 (capitalize (symbol-name x-toolkit-scroll-bars))) 73 (capitalize (symbol-name x-toolkit-scroll-bars)))