diff options
| author | Kenichi Handa <handa@etlken> | 2010-07-26 13:29:08 +0900 |
|---|---|---|
| committer | Kenichi Handa <handa@etlken> | 2010-07-26 13:29:08 +0900 |
| commit | 50efd41b43c9b1b540c49c53d4e7824468ec7879 (patch) | |
| tree | 4a3be8d0322c537816f47a0c6450fc13495edf35 /src/font.c | |
| parent | dfe3c90fa5974e200483297e11bb889d0589b8f5 (diff) | |
| parent | 7d383292d10b876efec43e77fd51c2665e912688 (diff) | |
| download | emacs-50efd41b43c9b1b540c49c53d4e7824468ec7879.tar.gz emacs-50efd41b43c9b1b540c49c53d4e7824468ec7879.tar.bz2 emacs-50efd41b43c9b1b540c49c53d4e7824468ec7879.zip | |
merge trunk
Diffstat (limited to 'src/font.c')
| -rw-r--r-- | src/font.c | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/font.c b/src/font.c index ed4da9c75ac..c35716c7c67 100644 --- a/src/font.c +++ b/src/font.c @@ -980,39 +980,6 @@ font_expand_wildcards (Lisp_Object *field, int n) } -#ifdef ENABLE_CHECKING -/* Match a 14-field XLFD pattern against a full XLFD font name. */ -static int -font_match_xlfd (char *pattern, char *name) -{ - while (*pattern && *name) - { - if (*pattern == *name) - pattern++; - else if (*pattern == '*') - if (*name == pattern[1]) - pattern += 2; - else - ; - else - return 0; - name++; - } - return 1; -} - -/* Make sure the font object matches the XLFD font name. */ -static int -font_check_xlfd_parse (Lisp_Object font, char *name) -{ - char name_check[256]; - font_unparse_xlfd (font, 0, name_check, 255); - return font_match_xlfd (name_check, name); -} - -#endif - - /* Parse NAME (null terminated) as XLFD and store information in FONT (font-spec or font-entity). Size property of FONT is set as follows: |