Mercurial > emacs
comparison lisp/version.el @ 73429:c24e4c92d898
(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))) |