(describe-char-after): Use

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

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1af2eaeac42..5e3b3688aca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 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):
         Remove the eight-bit-graphic and eight-bit-control charsets from
         the list of charsets which we convert into `?'.
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 67554dd180a..bfe64a7ffda 100644
--- 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"