diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-02-20 04:41:25 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-02-20 04:41:25 +0000 |
| commit | ed98afe1e0cf89f116b90e3073ab58da24120ba2 (patch) | |
| tree | 53efa586a3c587fea61c0173d47e6494f5ae23a5 /lisp/international/mule-util.el | |
| parent | 43bad2da064ef33df2c7036eab150f6bd07fdf7d (diff) | |
| download | emacs-ed98afe1e0cf89f116b90e3073ab58da24120ba2.tar.gz | |
(char-displayable-p): Fix for Latin-1
characters and terminal case.
Diffstat (limited to 'lisp/international/mule-util.el')
| -rw-r--r-- | lisp/international/mule-util.el | 8 |
1 files 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 |