(describe-char-after): Use

display-graphic-p instead of window-system, so that this function
works on MS-DOS.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1af2eaeac42b269792aa466f4389a8e3c612919a..5e3b3688acad1e6f4a32ecdef8f4af1b52d13389 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-05-25  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * international/mule-diag.el (describe-char-after): Use
+       display-graphic-p instead of window-system, so that this function
+       works on MS-DOS.
+
 2000-05-25  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * international/codepage.el (cp-make-coding-systems-for-codepage):

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 67554dd180a5e0bc4fe5c8da0d87293502951462..bfe64a7ffda7402d232055ca83d73e3dd17faeb5 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -527,7 +527,7 @@ which font is being used for displaying the character."
                             (format "(encoded by coding system %S)" coding))
                     (list "not encodable by coding system"
                           (symbol-name coding)))))
-             ,(if window-system
+             ,(if (display-graphic-p (selected-frame))
                   (list "font" (or (internal-char-font (point))
                                    "-- none --"))
                 (list "terminal code"