aboutsummaryrefslogtreecommitdiffstats
path: root/src/fontset.c
diff options
context:
space:
mode:
authorPaul Eggert2011-04-10 22:58:27 -0700
committerPaul Eggert2011-04-10 22:58:27 -0700
commit9247002884de0c64febb0807db428088800c39ff (patch)
treef96de259de91109b0999e3b4b3a31691346ada9a /src/fontset.c
parent244ed9077fe7ccebbc15c7157cb45832f46a46d3 (diff)
downloademacs-9247002884de0c64febb0807db428088800c39ff.tar.gz
emacs-9247002884de0c64febb0807db428088800c39ff.zip
font.c: Make copy_font_spec and merge_font_spec ordinary C functions.
* font.c (copy_font_spec): Rename from Fcopy_font_spec, since it was inaccessible from Lisp. (merge_font_spec): Likewise, renaming from Fmerge_font_spec. * font.c, font.h, fontset.c, xfaces.c, xfont.c: Change all uses.
Diffstat (limited to 'src/fontset.c')
-rw-r--r--src/fontset.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fontset.c b/src/fontset.c
index 4a9cc9393bf..c8452979eee 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -1709,7 +1709,7 @@ int
1709fontset_from_font (Lisp_Object font_object) 1709fontset_from_font (Lisp_Object font_object)
1710{ 1710{
1711 Lisp_Object font_name = font_get_name (font_object); 1711 Lisp_Object font_name = font_get_name (font_object);
1712 Lisp_Object font_spec = Fcopy_font_spec (font_object); 1712 Lisp_Object font_spec = copy_font_spec (font_object);
1713 Lisp_Object registry = AREF (font_spec, FONT_REGISTRY_INDEX); 1713 Lisp_Object registry = AREF (font_spec, FONT_REGISTRY_INDEX);
1714 Lisp_Object fontset_spec, alias, name, fontset; 1714 Lisp_Object fontset_spec, alias, name, fontset;
1715 Lisp_Object val; 1715 Lisp_Object val;
@@ -1726,7 +1726,7 @@ fontset_from_font (Lisp_Object font_object)
1726 sprintf (temp, "fontset-auto%d", num_auto_fontsets - 1); 1726 sprintf (temp, "fontset-auto%d", num_auto_fontsets - 1);
1727 alias = intern (temp); 1727 alias = intern (temp);
1728 } 1728 }
1729 fontset_spec = Fcopy_font_spec (font_spec); 1729 fontset_spec = copy_font_spec (font_spec);
1730 ASET (fontset_spec, FONT_REGISTRY_INDEX, alias); 1730 ASET (fontset_spec, FONT_REGISTRY_INDEX, alias);
1731 name = Ffont_xlfd_name (fontset_spec, Qnil); 1731 name = Ffont_xlfd_name (fontset_spec, Qnil);
1732 if (NILP (name)) 1732 if (NILP (name))