annotate src/x-list-font.c @ 33127:eca95f9d7f05

(base64): Require unconditionally. (message-posting-charset): Defvar when compiling. (rfc2047-encode-message-header, rfc2047-encodable-p): Require message.
author Dave Love <fx@gnu.org>
date Wed, 01 Nov 2000 19:07:36 +0000
parents 6303fc8c3e7c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
18753
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 DEFUN ("x-list-fonts", Fx_list_fonts, Sx_list_fonts, 1, 5, 0,
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2 "Return a list of the names of available fonts matching PATTERN.\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3 If optional arguments FACE and FRAME are specified, return only fonts\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4 the same size as FACE on FRAME.\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 PATTERN is a string, perhaps with wildcard characters;\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 the * character matches any substring, and\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 the ? character matches any single character.\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 PATTERN is case-insensitive.\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 FACE is a face name--a symbol.\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 \n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 The return value is a list of strings, suitable as arguments to\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 set-face-font.\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 \n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 Fonts Emacs can't use (i.e. proportional fonts) may or may not be excluded\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 even if they match PATTERN and FACE.\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 The optional fourth argument MAXIMUM sets a limit on how many\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 fonts to match. The first MAXIMUM fonts are reported.\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 The optional fifth argument WIDTH, if specified, is a number of columns\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 occupied by a character of a font. In that case, return only fonts\n\
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 the WIDTH times as wide as FACE on FRAME.")
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 (pattern, face, frame, maximum, width)
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 Lisp_Object pattern, face, frame, maximum, width;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 {
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 FRAME_PTR f;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 int size, cols;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 int maxnames;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
23518
6303fc8c3e7c (Fx_list_fonts): Access frame parameters throught
Kenichi Handa <handa@m17n.org>
parents: 18754
diff changeset
28 (*check_window_system_func) ();
18753
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 CHECK_STRING (pattern, 0);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 if (!NILP (face))
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 CHECK_SYMBOL (face, 1);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 if (NILP (maximum))
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 maxnames = 2000;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 else
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 {
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 CHECK_NATNUM (maximum, 0);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 maxnames = XINT (maximum);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 }
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 if (!NILP (width))
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 CHECK_NUMBER (width, 4);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 /* We can't simply call check_x_frame because this function may be
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 called before any frame is created. */
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 if (NILP (frame))
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 f = selected_frame;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 else
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 {
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 CHECK_LIVE_FRAME (frame, 0);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 f = XFRAME (frame);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 }
23518
6303fc8c3e7c (Fx_list_fonts): Access frame parameters throught
Kenichi Handa <handa@m17n.org>
parents: 18754
diff changeset
53 if (! FRAME_WINDOW_P (f))
18753
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 {
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 /* Perhaps we have not yet created any frame. */
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 f = NULL;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 face = Qnil;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 }
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 /* Determine the width standard for comparison with the fonts we find. */
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 if (NILP (face))
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 size = 0;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 else
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 {
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 int face_id;
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 face_id = face_name_id_number (f, face);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 if (face_id < 0 || face_id >= FRAME_N_PARAM_FACES (f)
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 || FRAME_PARAM_FACES (f) [face_id] == 0
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 || FRAME_PARAM_FACES (f) [face_id]->font == (XFontStruct *) (~0))
23518
6303fc8c3e7c (Fx_list_fonts): Access frame parameters throught
Kenichi Handa <handa@m17n.org>
parents: 18754
diff changeset
73 size = FONT_WIDTH (FRAME_FONT (f));
18753
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 else
23518
6303fc8c3e7c (Fx_list_fonts): Access frame parameters throught
Kenichi Handa <handa@m17n.org>
parents: 18754
diff changeset
75 size = FONT_WIDTH (FRAME_PARAM_FACES (f) [face_id]->font);
18753
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 if (!NILP (width))
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 size *= XINT (width);
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 }
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 {
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 Lisp_Object args[2];
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83
23518
6303fc8c3e7c (Fx_list_fonts): Access frame parameters throught
Kenichi Handa <handa@m17n.org>
parents: 18754
diff changeset
84 args[0] = (*list_fonts_func) (f, pattern, size, maxnames);
18753
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 if (f == NULL)
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 /* We don't have to check fontsets. */
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 return args[0];
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 args[1] = list_fontsets (f, pattern, size);
18754
f21dd94faebc (Fx_list_fonts): Fix Fnconc argument.
Richard M. Stallman <rms@gnu.org>
parents: 18753
diff changeset
89 return Fnconc (2, args);
18753
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 }
4f23c695a4f5 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 }