diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-12-27 14:34:09 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-12-27 14:34:09 +0000 |
| commit | 3fac5d64cc29de5fd3237004cd76276ec8261672 (patch) | |
| tree | bdd72305132b50b19af84fba5443bb74b12e05f7 | |
| parent | 5bf045202fc9b22fb4f1d4d1fafb6d4066f418c6 (diff) | |
| download | emacs-3fac5d64cc29de5fd3237004cd76276ec8261672.tar.gz | |
(emacs-version): Print X scroll bar information.
| -rw-r--r-- | lisp/version.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/version.el b/lisp/version.el index d2dc8518a7d..b90ce7ffad7 100644 --- a/lisp/version.el +++ b/lisp/version.el @@ -53,13 +53,18 @@ to the system configuration; look at `system-configuration' instead." (interactive "P") (let ((version-string (format (if (not (interactive-p)) - "GNU Emacs %s (%s%s)\n of %s on %s" - "GNU Emacs %s (%s%s) of %s on %s") + "GNU Emacs %s (%s%s%s)\n of %s on %s" + "GNU Emacs %s (%s%s%s) of %s on %s") emacs-version system-configuration (cond ((featurep 'motif) ", Motif") ((featurep 'x-toolkit) ", X toolkit") (t "")) + (if (and (boundp 'x-toolkit-scroll-bars) + (memq x-toolkit-scroll-bars '(xaw xaw3d))) + (format ", %s scroll bars" + (capitalize (symbol-name x-toolkit-scroll-bars))) + "") (format-time-string "%Y-%m-%d" emacs-build-time) emacs-build-system))) (if here |