Mercurial > emacs
comparison lisp/international/mule-diag.el @ 29187:a51adf4f0b66
(describe-char-after): Use
display-graphic-p instead of window-system, so that this function
works on MS-DOS.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Thu, 25 May 2000 13:34:01 +0000 |
parents | 9b29679df993 |
children | 0b31a133aa22 |
comparison
equal
deleted
inserted
replaced
29186:cafa055e7a89 | 29187:a51adf4f0b66 |
---|---|
525 (if encoded | 525 (if encoded |
526 (list (encoded-string-description encoded coding) | 526 (list (encoded-string-description encoded coding) |
527 (format "(encoded by coding system %S)" coding)) | 527 (format "(encoded by coding system %S)" coding)) |
528 (list "not encodable by coding system" | 528 (list "not encodable by coding system" |
529 (symbol-name coding))))) | 529 (symbol-name coding))))) |
530 ,(if window-system | 530 ,(if (display-graphic-p (selected-frame)) |
531 (list "font" (or (internal-char-font (point)) | 531 (list "font" (or (internal-char-font (point)) |
532 "-- none --")) | 532 "-- none --")) |
533 (list "terminal code" | 533 (list "terminal code" |
534 (let* ((coding (terminal-coding-system)) | 534 (let* ((coding (terminal-coding-system)) |
535 (encoded (encode-coding-char char coding))) | 535 (encoded (encode-coding-char char coding))) |