* international/mule-diag.el (mule-diag): Display the window

  system version in a less laconic way.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b3e77a6c7b625611dade60f3797647fa17715cf2..90aea8fa6f2dda54e000cd7c94acd72d9cc63fa2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-12-05  Juanma Barranquero  <lekktu@gmail.com>
+
+       * international/mule-diag.el (mule-diag): Display the window
+       system version in a less laconic way.
+
 2008-12-04  Juanma Barranquero  <lekktu@gmail.com>
 
        * ibuffer.el (ibuffer-sort-bufferlist): Require ibuf-ext

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index b0cad2118b9eeb2f373e4a4db8a76185d3d18f52..e5a4b11b11cc1df689e1bc4899455d65e4c575a2 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1057,9 +1057,8 @@ system which uses fontsets)."
 
       (insert-section 2 "Display")
       (if window-system
-         (insert "Window-system: "
-                 (symbol-name window-system)
-                 (format "%s" window-system-version))
+         (insert (format "Window-system: %s, version %s"
+                         window-system window-system-version))
        (insert "Terminal: " (getenv "TERM")))
       (insert "\n\n")