diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-06-03 05:57:28 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-06-03 05:57:28 +0000 |
| commit | 37470f4dfe60ca47bc9765d11635094219abd35e (patch) | |
| tree | 14c73a3e869cac2b14f4e49bee3bae7bf9f0d610 /src/xfont.c | |
| parent | 913f26c2a47d10a49b48565317151da92971b256 (diff) | |
| download | emacs-37470f4dfe60ca47bc9765d11635094219abd35e.tar.gz | |
(xfont_list): Try an alias.
Diffstat (limited to 'src/xfont.c')
| -rw-r--r-- | src/xfont.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/xfont.c b/src/xfont.c index e6f0bde5114..8684af43122 100644 --- a/src/xfont.c +++ b/src/xfont.c @@ -345,6 +345,7 @@ xfont_list (frame, spec) } if (NILP (list) && ! NILP (registry)) { + /* Try alternate registries. */ Lisp_Object alter; if ((alter = Fassoc (SYMBOL_NAME (registry), @@ -365,6 +366,13 @@ xfont_list (frame, spec) } } } + if (NILP (list)) + { + /* Try alias. */ + val = assq_no_quit (QCname, AREF (spec, FONT_EXTRA_INDEX)); + if (CONSP (val) && STRINGP (XCDR (val))) + list = xfont_list_pattern (frame, display, SDATA (XCDR (val))); + } return list; } |