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
44416f23
Commit
44416f23
authored
Apr 23, 2004
by
Kenichi Handa
Browse files
(char-displayable-p): Simplified by using internal-char-font.
parent
cf14fd6e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
21 deletions
+1
-21
lisp/international/mule-util.el
lisp/international/mule-util.el
+1
-21
No files found.
lisp/international/mule-util.el
View file @
44416f23
...
...
@@ -373,27 +373,7 @@ basis, this may not be accurate."
;; On a window system, a character is displayable if we have
;; a font for that character in the default face of the
;; currently selected frame.
(
let
((
fontset
(
frame-parameter
(
selected-frame
)
'font
))
font-pattern
)
(
if
(
query-fontset
fontset
)
(
setq
font-pattern
(
fontset-font
fontset
char
)))
(
or
font-pattern
(
setq
font-pattern
(
fontset-font
"fontset-default"
char
)))
(
if
font-pattern
(
progn
;; Now FONT-PATTERN is a string or a cons of family
;; field pattern and registry field pattern.
(
or
(
stringp
font-pattern
)
(
let
((
family
(
or
(
car
font-pattern
)
"*"
))
(
registry
(
or
(
cdr
font-pattern
)
"*"
)))
(
or
(
string-match
"-"
family
)
(
setq
family
(
concat
"*-"
family
)))
(
or
(
string-match
"-"
registry
)
(
setq
registry
(
concat
registry
"-*"
)))
(
setq
font-pattern
(
format
"-%s-*-*-*-*-*-*-*-*-*-*-%s"
family
registry
))))
(
x-list-fonts
font-pattern
'default
(
selected-frame
)
1
)))))
(
car
(
internal-char-font
nil
char
)))
(
t
(
let
((
coding
(
terminal-coding-system
)))
(
if
coding
...
...
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