[Emacs-diffs] Changes to emacs/lisp/international/mule-util.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/02/20 04:41:25

Index: mule-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-util.el,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -b -r1.69 -r1.70
--- mule-util.el        1 Feb 2008 16:01:20 -0000       1.69
+++ mule-util.el        20 Feb 2008 04:41:25 -0000      1.70
@@ -356,8 +356,8 @@
 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 @@
         ;; 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