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))) |