mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

; * src/fontset.c: Remove extraneous portion of last change.

Browse Source
This commit is contained in:
Po Lu 2023-09-08 10:37:53 +08:00
parent c933f5081f
commit 3fb671c88e
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/fontset.c
View File

@ -1839,19 +1839,11 @@ fontset_from_font (Lisp_Object font_object)
Vfontset_alias_alist);
xlfd = AREF (font_object, FONT_NAME_INDEX);
/* XLFD can be nil if the font's registry or family name gives rise
to an XLFD name that cannot be represented within 255
characters. (bug#65800) */
if (!NILP (xlfd))
{
alias = Fdowncase (xlfd);
Vfontset_alias_alist
= Fcons (Fcons (name, alias), Vfontset_alias_alist);
auto_fontset_alist
= Fcons (Fcons (font_spec, fontset), auto_fontset_alist);
}
alias = Fdowncase (xlfd);
Vfontset_alias_alist
= Fcons (Fcons (name, alias), Vfontset_alias_alist);
auto_fontset_alist
= Fcons (Fcons (font_spec, fontset), auto_fontset_alist);
font_spec = Ffont_spec (0, NULL);
ASET (font_spec, FONT_REGISTRY_INDEX, registry);