Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ed98afe1
Commit
ed98afe1
authored
Feb 20, 2008
by
Kenichi Handa
Browse files
(char-displayable-p): Fix for Latin-1
characters and terminal case.
parent
43bad2da
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
3 deletions
+5
-3
lisp/international/mule-util.el
lisp/international/mule-util.el
+5
-3
No files found.
lisp/international/mule-util.el
View file @
ed98afe1
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment