# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 959261641 0
# Node ID a51adf4f0b66dfdd44a238384e770a6c3b73625b
# Parent  cafa055e7a89a27879e35a672ffbec0310b4b49b
(describe-char-after): Use
display-graphic-p instead of window-system, so that this function
works on MS-DOS.

diff -r cafa055e7a89 -r a51adf4f0b66 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Thu May 25 11:59:11 2000 +0000
+++ b/lisp/international/mule-diag.el	Thu May 25 13:34:01 2000 +0000
@@ -527,7 +527,7 @@
 			     (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"