(match-string-no-properties): Use substring-no-properties.

[gnu-emacs] / lisp / version.el

diff --git a/lisp/version.el b/lisp/version.el
index e5c1017a6594b1010636c39c224cafc2a75e44a9..42dbb3f9c2565e7a22e9d0a18ebf436f77207d99 100644 (file)
--- a/lisp/version.el
+++ b/lisp/version.el
@@ -53,15 +53,17 @@ If optional argument HERE is non-nil, insert string at point.
 Don't use this function in programs to choose actions according
 to the system configuration; look at `system-configuration' instead."
   (interactive "P")
-  (let ((version-string 
+  (let ((version-string
          (format (if (not (interactive-p))
                     "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) 
+                (cond ((featurep 'motif)
                        (concat ", " (substring motif-version-string 4)))
                       ((featurep 'x-toolkit) ", X toolkit")
+                      ((featurep 'gtk)
+                       (concat ", GTK+ Version " gtk-version-string))
                       (t ""))
                 (if (and (boundp 'x-toolkit-scroll-bars)
                          (memq x-toolkit-scroll-bars '(xaw xaw3d)))
@@ -70,7 +72,7 @@ to the system configuration; look at `system-configuration' instead."
                   "")
                 (format-time-string "%Y-%m-%d" emacs-build-time)
                  emacs-build-system)))
-    (if here 
+    (if here
         (insert version-string)
       (if (interactive-p)
           (message "%s" version-string)
@@ -88,4 +90,5 @@ to the system configuration; look at `system-configuration' instead."
 ;;version-control: never
 ;;End:
 
+;;; arch-tag: e60dc445-6218-4a4c-a7df-f15a818642a0
 ;;; version.el ends here