From ed98afe1e0cf89f116b90e3073ab58da24120ba2 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 20 Feb 2008 04:41:25 +0000 Subject: [PATCH] (char-displayable-p): Fix for Latin-1 characters and terminal case. --- lisp/international/mule-util.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 30faf6c7a0c..899bedfc1ec 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -356,8 +356,8 @@ On a multi-font display, the test is only whether there is an appropriate font from the selected frame's fontset to display CHAR's charset in general. Since fonts may be specified on a per-character basis, this may not be accurate." - (cond ((< char 256) - ;; Single byte characters are always displayable. + (cond ((< char 128) + ;; ASCII characters are always displayable. t) ((not enable-multibyte-characters) ;; Maybe there's a font for it, but we can't put it in the buffer. @@ -368,7 +368,9 @@ basis, this may not be accurate." ;; currently selected frame. (car (internal-char-font nil char))) (t - (let ((coding 'iso-2022-7bit)) + ;; On a terminal, a character is displayable if the coding + ;; system for the terminal can encode it. + (let ((coding (terminal-coding-system))) (if coding (let ((cs-list (coding-system-get coding :charset-list))) (cond -- 2.39.2