diff options
| author | Paul Eggert | 2011-04-10 22:58:27 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-04-10 22:58:27 -0700 |
| commit | 9247002884de0c64febb0807db428088800c39ff (patch) | |
| tree | f96de259de91109b0999e3b4b3a31691346ada9a /src/fontset.c | |
| parent | 244ed9077fe7ccebbc15c7157cb45832f46a46d3 (diff) | |
| download | emacs-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.c | 4 |
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 | |||
| 1709 | fontset_from_font (Lisp_Object font_object) | 1709 | fontset_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)) |