annotate man/lispref/specifiers.texi @ 1135:9eddcb9548e2

[xemacs-hg @ 2002-12-02 17:56:58 by stephent] texinfo improvements <87d6okxq4i.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 02 Dec 2002 17:57:09 +0000
parents 576fb035e263
children 05ed51332340
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 @c -*-texinfo-*-
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 @c This is part of the XEmacs Lisp Reference Manual.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 @c Copyright (C) 1995, 1996 Ben Wing.
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
4 @c Copyright (C) 2002 Free Software Foundation, Inc.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 @c See the file lispref.texi for copying conditions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 @setfilename ../../info/specifiers.info
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 @node Specifiers, Faces and Window-System Objects, Extents, top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 @chapter Specifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 @cindex specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 A specifier is an object used to keep track of a property whose value
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
12 should vary according to @emph{display context}, a window, a frame, or
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
13 device. The value of many built-in properties, such as the font,
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
14 foreground, background, and such properties of a face and variables
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
15 such as @code{modeline-shadow-thickness} and
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
16 @code{top-toolbar-height}, is actually a specifier object. The
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
17 specifier object, in turn, is ``instanced'' in a particular situation
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
18 to yield the real value of the property in the current context.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 @defun specifierp object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 This function returns non-@code{nil} if @var{object} is a specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 @menu
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
25 * Introduction to Specifiers:: Specifiers provide a clean way for
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
26 display and other properties to vary
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
27 (under user control) in a wide variety
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
28 of contexts.
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
29 * Simple Specifier Usage:: Getting started with specifiers.
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
30 * Specifiers In-Depth:: Gory details about specifier innards.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
31 * Specifier Instancing:: Instancing means obtaining the ``value'' of
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
32 a specifier in a particular context.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
33 * Specifier Types:: Specifiers come in different flavors.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
34 * Adding Specifications:: Specifications control a specifier's ``value''
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
35 by giving conditions under which a
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
36 particular value is valid.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
37 * Retrieving Specifications:: Querying a specifier's specifications.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
38 * Specifier Tag Functions:: Working with specifier tags.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 * Specifier Instancing Functions::
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
40 Functions to instance a specifier.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
41 * Specifier Example:: Making all this stuff clearer.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
42 * Creating Specifiers:: Creating specifiers for your own use.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 * Specifier Validation Functions::
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
44 Validating the components of a specifier.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 * Other Specification Functions::
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
46 Other ways of working with specifications.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 @end menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 @node Introduction to Specifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 @section Introduction to Specifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
52 Perhaps the most useful way to explain specifiers is via an analogy.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
53 Emacs Lisp programmers are used to @emph{buffer-local variables}
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
54 @ref{buffer-local variables}. For example, the variable
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 @code{modeline-format}, which controls the format of the modeline, can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 have different values depending on the particular buffer being edited.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 The variable has a default value which most modes will use, but a
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
58 specialized package such as Calendar might change the variable so as
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
59 to tailor the modeline to its own purposes. Other variables are
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
60 perhaps best thought of as ``mode local,'' such as font-lock keywords,
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
61 but they are implemented as buffer locals.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 Other properties (such as those that can be changed by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 @code{modify-frame-parameters} function, for example the color of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 text cursor) can have frame-local values, although it might also make
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 sense for them to have buffer-local values. In other cases, you might
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 want the property to vary depending on the particular window within the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 frame that applies (e.g. the top or bottom window in a split frame), the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 device type that that frame appears on (X or tty), etc. Perhaps you can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 envision some more complicated scenario where you want a particular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 value in a specified buffer, another value in all other buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 displayed on a particular frame, another value in all other buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 displayed in all other frames on any mono (two-color, e.g. black and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 white only) displays, and a default value in all other circumstances.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
76 Specifiers generalize both buffer- and frame-local properties.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
77 Specifiers vary according to the @emph{display} context. Font-lock
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
78 keywords in a buffer will be the same no matter which window the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
79 buffer is displayed in, but windows on TTY devices will simply not be
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
80 capable of the flexibility that windows on modern GUI devices are.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
81 Specifiers provide a way for the programmer to @emph{declare} that a
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
82 emphasized text should be italic on GUI devices and inverse video on
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
83 TTYs. They also provide a way for the programmer to declare
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
84 fallbacks, so that a color specified as ``chartreuse'' where possible
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
85 can fall back to ``yellow'' on devices where only ANSI (4-bit) color
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
86 is available. The complex calculations and device querying are
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
87 transparent to both user and programmer. You ask for what you want;
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
88 it's up to XEmacs to provide it, or a reasonable approximation.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
89
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
90 We call such a declaration a @dfn{specification}. A @dfn{specification}
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
91 applies in a particular @dfn{locale}, which is a window, buffer, frame,
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
92 device, or the global locale. The value part of the specification is
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
93 called an @dfn{instantiator}. The process of determining the value in a
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
94 particular context, or @dfn{domain}, is called @dfn{instantiation} or
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
95 @dfn{instancing}. A domain is a window, frame, or device.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
96
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
97 The difference between @dfn{locale} and @dfn{domain} is somewhat subtle.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
98 You may think of a locale as a class of domains, which may span
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
99 different devices. Since the specification is abstract (a Lisp form),
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
100 you can state it without reference to a device. On the other hand, when
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
101 you instantiate a specification, you must know the type of the device.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
102 It is useless to specify that ``blue mean italic'' on a monochrome
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
103 device. Thus instantiation requires specification of the device on
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
104 which it will be rendered.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
105
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
106 Thus a @dfn{specifier} allows a great deal of flexibility in
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
107 controlling exactly what value a property has in which circumstances.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
108 It is most commonly used for display properties, such as an image or
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
109 the foreground color of a face. As a simple example, you can specify
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
110 that the foreground of the default face be
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 @itemize @bullet
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 blue for a particular buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 green for all other buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 @end itemize
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 As a more complicated example, you could specify that the foreground of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 the default face be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 @itemize @bullet
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 forest green for all buffers displayed in a particular Emacs window, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 green if the X server doesn't recognize the color @samp{forest green}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 blue for all buffers displayed in a particular frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 red for all other buffers displayed on a color device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 white for all other buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 @end itemize
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
134 @node Simple Specifier Usage
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
135 @section Simple Specifier Usage
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
136 @cindex specifier examples
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
137 @cindex examples, specifier
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
138 @cindex adding a button to a toolbar
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
139 @cindex toolbar button, adding
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
140
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
141 A useful specifier application is adding a button to a toolbar. XEmacs
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
142 provides several toolbars, one along each edge of the frame. Normally
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
143 only one is used at a time, the default. The default toolbar is
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
144 actually a specifier object which is the value of @code{default-toolbar}.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
145
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
146 The specification of a toolbar is simple: it is a list of buttons.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
147 Each button is a vector with four elements: an icon, a command, the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
148 enabled flag, and a help string. Let's retrieve the instance of the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
149 toolbar you see in the selected frame.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
150
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
151 @example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
152 (specifier-instance default-toolbar)
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
153 @end example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
154
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
155 The value returned is, as promised, a list of vectors. Now let's build
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
156 up a button, and add it to the toolbar. Our button will invoke the last
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
157 defined keyboard macro. This is an alternative to
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
158 @code{name-last-kbd-macro} for creating a persistent macro, rather than
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
159 an alias for @kbd{C-x e}.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
160
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
161 A toolbar button icon can be quite sophisticated, with different images
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
162 for button up, button down, and disabled states, and a similar set with
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
163 captions. We'll use a very simple icon, but we have to jump through a
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
164 few non-obvious hoops designed to support the sophisticated applications.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
165 The rest of the button descriptor is straightforward.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
166
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
167 @example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
168 (setq toolbar-my-kbd-macro-button
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
169 `[ (list (make-glyph "MyKbdMac"))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
170 (lambda () (interactive) (execute-kbd-macro ,last-kbd-macro))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
171 t
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
172 "Execute a previously defined keyboard macro." ])
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
173
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
174 (set-specifier default-toolbar
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
175 (cons toolbar-my-kbd-macro-button
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
176 (specifier-specs default-toolbar 'global))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
177 'global)
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
178 @end example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
179
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
180 To remove the button, just substitute the function @code{delete} for the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
181 @code{cons} above.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
182
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
183 What is the difference between @code{specifier-instance}, which we used
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
184 in the example of retrieving the toolbar descriptor, and
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
185 @code{specifier-specs}, which was used in the toolbar manipulating code?
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
186 @code{specifier-specs} retrieves a copy of the instantiator, which is
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
187 abstract and does not depend on context. @code{specifier-instance}, on
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
188 the other hand, actually instantiates the specification, and returns the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
189 result for the given context. Another way to express this is:
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
190 @code{specifier-specs} takes a @emph{locale} as an argument, while
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
191 @code{specifier-instance} takes a @emph{domain}. The reason for
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
192 providing @code{specifier-instance} is that sometimes you wish to see
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
193 the object that XEmacs will actually use. @code{specifier-specs}, on
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
194 the other hand, shows you what the programmer (or user) requested. When
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
195 a program manipulates specifications, clearly it's the latter that is
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
196 desirable.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
197
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
198 In the case of the toolbar descriptor, it turns out that these are the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
199 same: the instancing process is trivial. However, many specifications
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
200 have non-trivial instancing. Compare the results of the following forms
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
201 on my system. (The @samp{(cdr (first ...))} form is due to my use of
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
202 Mule. On non-Mule XEmacsen, just use @code{specifier-specs}.)
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
203
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
204 @example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
205 (cdr (first (specifier-specs (face-font 'default) 'global)))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
206 => "-*--14-*jisx0208*-0"
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
207
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
208 (specifier-instance (face-font 'default))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
209 #<font-instance "-*--14-*jisx0208*-0" on #<x-device on ":0.0" 0x970> 0xe0028b 0x176b>
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
210 @end example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
211
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
212 In this case, @code{specifier-instance} returns an opaque object;
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
213 programs can't work on it, they can only pass it around. Worse, in some
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
214 environments the instantiation will fail, resulting in a different value
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
215 (when another instantiation succeeds), or worse yet, an error, if all
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
216 attempts to instance the specifier fail. @code{specifier-instance} is
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
217 context-dependent, even for the exact same specification.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
218 @code{specifier-specs} is deterministic, and only depends on the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
219 specifications.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
220
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
221 Note that in the toolbar-changing code we operate in the global locale.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
222 This means that narrower locales, if they have specifications, will
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
223 shadow our changes. (Specifier instancing does not merge
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
224 specifications. It selects the "highest-priority successful
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
225 specification" and instances that.)
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
226
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
227 In fact, in our example, it seems pretty likely that different buffers
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
228 @emph{should} have different buttons. (The icon can be the same, but
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
229 the keyboard macro you create in a Dired buffer is highly unlikely to be
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
230 useful in a LaTeX buffer!) Here's one way to implement this:
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
231
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
232 @example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
233 (setq toolbar-my-kbd-macro-button
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
234 `[ (list (make-glyph "MyKbdMac"))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
235 (lambda () (interactive) (execute-kbd-macro ,last-kbd-macro))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
236 t
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
237 "Execute a previously defined keyboard macro." ])
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
238
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
239 (set-specifier default-toolbar
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
240 (cons toolbar-my-kbd-macro-button
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
241 (cond ((specifier-specs default-toolbar
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
242 (current-buffer)))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
243 ((specifier-specs default-toolbar
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
244 'global)))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
245 (current-buffer))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
246 @end example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
247
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
248 Finally, a cautionary note: the use of @code{specifier-specs} in the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
249 code above is for expository purposes. Don't use it in production code.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
250 In fact, the @code{set-specifier} form above is likely to fail
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
251 occasionally, because you can add many specifications for the same
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
252 locale.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
253
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
254 In these cases, @code{specifier-specs} will return a list. A further
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
255 refinement is that a specification may be associated with a set of
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
256 @dfn{specifier tags}. If the list of specifier tags is non-nil, then
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
257 @code{specifier-specs} will return a cons of the tag set and the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
258 instantiator. Evidently @code{specifier-specs} is a bit unreliable.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
259 (For toolbars, the code above should work 99% of the time, because
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
260 toolbars are rarely changed. Since instantiation is trivial, multiple
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
261 specs are not useful---the first one always succeeds.)
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
262
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
263 In fact, @code{specifier-specs} is intended to be used to display specs
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
264 to humans with a minimum of clutter. The robust way to access
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
265 specifications is via @code{specifier-spec-list}. @xref{Adding
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
266 Specifications}, for the definition of @dfn{spec-list}.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
267 @xref{Retrieving Specifications} for documentation of
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
268 @code{specifier-specs} and @code{specifier-spec-list}. To get the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
269 desired effect, replace the form @code{(specifier-spec default-toolbar
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
270 'global)} with
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
271
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
272 @example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
273 (cdr (second (first (specifier-spec-list default-toolbar 'global))))
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
274 @end example
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
275
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
276 (It should be obvious why the example uses the lazy unreliable method!)
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
277
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 @node Specifiers In-Depth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 @section In-Depth Overview of a Specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 @cindex specification (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 @cindex domain (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 @cindex locale (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 @cindex instantiator (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 @cindex instancing (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 @cindex instance (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 @cindex inst-list (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 @cindex inst-pair (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 @cindex tag (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 @cindex tag set (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 @cindex specifier, specification
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 @cindex specifier, domain
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 @cindex specifier, locale
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 @cindex specifier, instantiator
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 @cindex specifier, instancing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 @cindex specifier, instance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 @cindex specifier, inst-list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 @cindex specifier, inst-pair
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 @cindex specifier, tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 @cindex specifier, tag set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
301 Having variables vary according the editing context is very useful, and
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
302 the buffer is the natural ``atomic'' unit of editing context. In a GUI
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
303 environment, it can be similarly useful to have variables whose values
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
304 vary according to display context. The atomic unit of display context
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
305 is the Emacs window. Buffers are cleanly grouped by modes, but windows
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
306 are not so easily pigeonholed. On the one hand, a window displays a
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
307 buffer, and thus one possible hierarchy is window, buffer, mode. On the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
308 other, a window is a component of a frame. This generates the window,
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
309 frame, device hierarchy. Finally, there are objects such as toolbars
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
310 whose properties are described by specifiers. These do not fit
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
311 naturally into either hierarchy. This problem is as yet not cleanly
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
312 solved.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
313
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
314 Another potential source of conceptual confusion is the instantiation
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
315 process. Instantiating a buffer-local variable is simple: at any given
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
316 point in time there is a current buffer, and its local values are used
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
317 and set whenever the variable is accessed, unless the programmer goes to
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
318 some special effort (uses @code{default-value} and @code{set-default}.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
319 However, a specifier object encapsulates a set of @dfn{specifications},
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
320 each of which says what its value should be if a particular condition
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
321 applies. Several such conditions might apply simultaneously in a given
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
322 window.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
323
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 For example, one specification might be ``The value should be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 darkseagreen2 on X devices'' another might be ``The value should be blue
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
326 in the *Help* buffer''. So what do we do for "the *Help* buffer on an X
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
327 device"? The answer is simple: give each type of locale a priority and
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
328 check them in priority order, returning the first instantiator that
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
329 successfully instantiates a value.
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
330
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 Given a specifier, a logical question is ``What is its value in a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 particular situation?'' This involves looking through the specifications
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 to see which ones apply to this particular situation, and perhaps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 preferring one over another if more than one applies. In specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 terminology, a ``particular situation'' is called a @dfn{domain}, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 determining its value in a particular domain is called @dfn{instancing}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 Most of the time, a domain is identified by a particular window. For
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 example, if the redisplay engine is drawing text in the default face in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 a particular window, it retrieves the specifier for the foreground color
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 of the default face and @dfn{instances} it in the domain given by that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 window; in other words, it asks the specifier, ``What is your value in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 this window?''.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
344 Note that the redisplay example is in a sense canonical. That is,
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
345 specifiers are designed to present a uniform and @emph{efficient} API
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
346 to redisplay. It is the efficiency constraint that motivates the
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
347 introduction of specifier tags, and many restrictions on access (for
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
348 example, a buffer is not a domain, and you cannot instantiate a
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
349 specifier over a buffer).
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
350
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 More specifically, a specifier contains a set of @dfn{specifications},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 each of which associates a @dfn{locale} (a window object, a buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 object, a frame object, a device object, or the symbol @code{global})
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 with an @dfn{inst-list}, which is a list of one or more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 @dfn{inst-pairs}. (For each possible locale, there can be at most one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 specification containing that locale.) Each inst-pair is a cons of a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 @dfn{tag set} (an unordered list of zero or more symbols, or @dfn{tags})
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 and an @dfn{instantiator} (the allowed form of this varies depending on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 the type of specifier). In a given specification, there may be more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 than one inst-pair with the same tag set; this is unlike for locales.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 The tag set is used to restrict the sorts of devices over which the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 instantiator is valid and to uniquely identify instantiators added by a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 particular application, so that different applications can work on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 same specifier and not interfere with each other. Each tag can have a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 @dfn{predicate} associated with it, which is a function of one argument
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 (a device) that specifies whether the tag matches that particular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 device. (If a tag does not have a predicate, it matches all devices.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 All tags in a tag set must match a device for the associated inst-pair
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 to be instantiable over that device. (A null tag set is perfectly
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
371 valid, and trivially matches all devices.)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372
1135
9eddcb9548e2 [xemacs-hg @ 2002-12-02 17:56:58 by stephent]
stephent
parents: 444
diff changeset
373 @c #### don't we have more device types now, gtk, ms-windows, mac-carbon?
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 The valid device types (normally @code{x}, @code{tty}, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 @code{stream}) and device classes (normally @code{color},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 @code{grayscale}, and @code{mono}) can always be used as tags, and match
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 devices of the associated type or class (@pxref{Consoles and Devices}).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 User-defined tags may be defined, with an optional predicate specified.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 An application can create its own tag, use it to mark all its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 instantiators, and be fairly confident that it will not interfere with
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
381 other applications that modify the same specifier---Functions that add
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 a specification to a specifier usually only overwrite existing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 inst-pairs with the same tag set as was given, and a particular tag or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 tag set can be specified when removing instantiators.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 When a specifier is instanced in a domain, both the locale and the tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 set can be viewed as specifying necessary conditions that must apply in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 that domain for an instantiator to be considered as a possible result of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 the instancing. More specific locales always override more general
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 locales (thus, there is no particular ordering of the specifications in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 a specifier); however, the tag sets are simply considered in the order
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 that the inst-pairs occur in the specification's inst-list.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 Note also that the actual object that results from the instancing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 (called an @dfn{instance object}) may not be the same as the instantiator
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 from which it was derived. For some specifier types (such as integer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 specifiers and boolean specifiers), the instantiator will be returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 directly as the instance object. For other types, however, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 is not the case. For example, for font specifiers, the instantiator
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 is a font-description string and the instance object is a font-instance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 object, which describes how the font is displayed on a particular device.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 A font-instance object encapsulates such things as the actual font name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403 used to display the font on that device (a font-description string
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 under X is usually a wildcard specification that may resolve to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 different font names, with possibly different foundries, widths, etc.,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 on different devices), the extra properties of that font on that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 device, etc. Furthermore, this conversion (called @dfn{instantiation})
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
408 might fail---a font or color might not exist on a particular device,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 for example.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 @node Specifier Instancing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 @section How a Specifier Is Instanced
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 @cindex fallback (in a specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 @cindex specifier, fallback
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 Instancing of a specifier in a particular window domain proceeds as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 follows:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 @itemize @bullet
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 First, XEmacs searches for a specification whose locale is the same as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 the window. If that fails, the search is repeated, looking for a locale
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 that is the same as the window's buffer. If that fails, the search is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 repeated using the window's frame, then using the device that frame is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 on. Finally, the specification whose locale is the symbol @code{global}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 (if there is such a specification) is considered.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 The inst-pairs contained in the specification that was found are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 considered in their order in the inst-list, looking for one whose tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 set matches the device that is derived from the window domain. (The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 tag set is an unordered list of zero or more tag symbols. For all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 tags that have predicates associated with them, the predicate must
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 match the device.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 If a matching tag set is found, the corresponding instantiator is passed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 to the specifier's instantiation method, which is specific to the type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 of the specifier. If it succeeds, the resulting instance object is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 returned as the result of the instancing and the instancing is done.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 Otherwise, the operation continues, looking for another matching
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 inst-pair in the current specification.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 When there are no more inst-pairs to be considered in the current
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 specification, the search starts over, looking for another specification
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 as in the first step above.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 If all specifications are exhausted and no instance object can be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 derived, the instancing fails. (Actually, this is not completely true.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 Some specifier objects for built-in properties have a @dfn{fallback}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 value, which is either an inst-list or another specifier object, that is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 consulted if the instancing is about to fail. If it is an inst-list,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 the searching proceeds using the inst-pairs in that list. If it is a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 specifier, the entire instancing starts over using that specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 instead of the given one. Fallback values are set by the C code and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 cannot be modified, except perhaps indirectly, using any Lisp functions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 The purpose of them is to supply some values to make sure that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 instancing of built-in properties can't fail and to implement some basic
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 specifier inheritance, such as the fact that faces inherit their
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 properties from the @code{default} face.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 @end itemize
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 It is also possible to instance a specifier over a frame domain or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 device domain instead of over a window domain. The C code, for example,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 instances the @code{top-toolbar-height} variable over a frame domain in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 order to determine the height of a frame's top toolbar. Instancing over
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 a frame or device is similar to instancing over a window except that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 specifications for locales that cannot be derived from the domain are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 ignored. Specifically, instancing over a frame looks first for frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 locales, then device locales, then the @code{global} locale. Instancing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 over a device domain looks only for device locales and the @code{global}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 locale.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 @node Specifier Types
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 @section Specifier Types
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 There are various different types of specifiers. The type of a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 specifier controls what sorts of instantiators are valid, how an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 instantiator is instantiated, etc. Here is a list of built-in specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 types:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 @table @code
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 @item boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 The valid instantiators are the symbols @code{t} and @code{nil}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 Instance objects are the same as instantiators so no special
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 instantiation function is needed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 @item integer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 The valid instantiators are integers. Instance objects are the same as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 instantiators so no special instantiation function is needed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 @code{modeline-shadow-thickness} is an example of an integer specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 (negative thicknesses indicate that the shadow is drawn recessed instead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 of raised).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 @item natnum
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 The valid instantiators are natnums (non-negative integers). Instance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 objects are the same as instantiators so no special instantiation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 function is needed. Natnum specifiers are used for dimension variables
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 such as @code{top-toolbar-height}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 @item generic
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 All Lisp objects are valid instantiators. Instance objects are the same
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 as instantiators so no special instantiation function is needed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 @item font
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 The valid instantiators are strings describing fonts or vectors
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 indicating inheritance from the font of some face. Instance objects are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 font-instance objects, which are specific to a particular device. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 instantiation method for font specifiers can fail, unlike for integer,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 natnum, boolean, and generic specifiers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 @item color
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 The valid instantiators are strings describing colors or vectors
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 indicating inheritance from the foreground or background of some face.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 Instance objects are color-instance objects, which are specific to a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 particular device. The instantiation method for color specifiers can fail,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 as for font specifiers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 @item image
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 Images are perhaps the most complicated type of built-in specifier. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 valid instantiators are strings (a filename, inline data for a pixmap,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 or text to be displayed in a text glyph) or vectors describing inline
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 data of various sorts or indicating inheritance from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 background-pixmap property of some face. Instance objects are either
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 strings (for text images), image-instance objects (for pixmap images),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 or subwindow objects (for subwindow images). The instantiation method
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 for image specifiers can fail, as for font and color specifiers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 @item face-boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 The valid instantiators are the symbols @code{t} and @code{nil} and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 vectors indicating inheritance from a boolean property of some face.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 Specifiers of this sort are used for all of the built-in boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 properties of faces. Instance objects are either the symbol @code{t}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 or the symbol @code{nil}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 @item toolbar
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 The valid instantiators are toolbar descriptors, which are lists
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 of toolbar-button descriptors (each of which is a vector of two
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 or four elements). @xref{Toolbar}, for more information.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 @end table
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 Color and font instance objects can also be used in turn as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 instantiators for a new color or font instance object. Since these
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 instance objects are device-specific, the instantiator can be used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 directly as the new instance object, but only if they are of the same
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 device. If the devices differ, the base color or font of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 instantiating object is effectively used instead as the instantiator.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 @xref{Faces and Window-System Objects}, for more information on fonts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 colors, and face-boolean specifiers. @xref{Glyphs}, for more information
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 about image specifiers. @xref{Toolbar}, for more information on toolbar
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 specifiers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 @defun specifier-type specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 This function returns the type of @var{specifier}. The returned value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 will be a symbol: one of @code{integer}, @code{boolean}, etc., as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 listed in the above table.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 Functions are also provided to query whether an object is a particular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 kind of specifier:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 @defun boolean-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 This function returns non-@code{nil} if @var{object} is a boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 @defun integer-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 This function returns non-@code{nil} if @var{object} is an integer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 @defun natnum-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 This function returns non-@code{nil} if @var{object} is a natnum
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 @defun generic-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 This function returns non-@code{nil} if @var{object} is a generic
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 @defun face-boolean-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 This function returns non-@code{nil} if @var{object} is a face-boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 @defun toolbar-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 This function returns non-@code{nil} if @var{object} is a toolbar
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 @defun font-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 This function returns non-@code{nil} if @var{object} is a font
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 @defun color-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 This function returns non-@code{nil} if @var{object} is a color
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 @defun image-specifier-p object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 This function returns non-@code{nil} if @var{object} is an image
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 @node Adding Specifications
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 @section Adding specifications to a Specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 @defun add-spec-to-specifier specifier instantiator &optional locale tag-set how-to-add
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610 This function adds a specification to @var{specifier}. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 specification maps from @var{locale} (which should be a window, buffer,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 frame, device, or the symbol @code{global}, and defaults to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 @code{global}) to @var{instantiator}, whose allowed values depend on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 type of the specifier. Optional argument @var{tag-set} limits the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 instantiator to apply only to the specified tag set, which should be a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 list of tags all of which must match the device being instantiated over
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 (tags are a device type, a device class, or tags defined with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 @code{define-specifier-tag}). Specifying a single symbol for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 @var{tag-set} is equivalent to specifying a one-element list containing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 that symbol. Optional argument @var{how-to-add} specifies what to do if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 there are already specifications in the specifier. It should be one of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 @table @code
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 @item prepend
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 Put at the beginning of the current list of instantiators for @var{locale}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 @item append
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 Add to the end of the current list of instantiators for @var{locale}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 @item remove-tag-set-prepend
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 This is the default. Remove any existing instantiators whose tag set is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 the same as @var{tag-set}; then put the new instantiator at the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 beginning of the current list.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 @item remove-tag-set-append
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 Remove any existing instantiators whose tag set is the same as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 @var{tag-set}; then put the new instantiator at the end of the current
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 list.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 @item remove-locale
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 Remove all previous instantiators for this locale before adding the new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638 spec.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 @item remove-locale-type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 Remove all specifications for all locales of the same type as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 @var{locale} (this includes @var{locale} itself) before adding the new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 spec.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 @item remove-all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 Remove all specifications from the specifier before adding the new spec.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 @end table
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 @code{remove-tag-set-prepend} is the default.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 You can retrieve the specifications for a particular locale or locale type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 with the function @code{specifier-spec-list} or @code{specifier-specs}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 @defun add-spec-list-to-specifier specifier spec-list &optional how-to-add
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 This function adds a @dfn{spec-list} (a list of specifications) to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 @var{specifier}. The format of a spec-list is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 @example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 @code{((@var{locale} (@var{tag-set} . @var{instantiator}) ...) ...)}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 @end example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661 where
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 @itemize @bullet
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 @var{locale} := a window, a buffer, a frame, a device, or @code{global}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 @var{tag-set} := an unordered list of zero or more @var{tags}, each of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 which is a symbol
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 @var{tag} := a device class (@pxref{Consoles and Devices}), a device type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 or a tag defined with @code{define-specifier-tag}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 @var{instantiator} := format determined by the type of specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 @end itemize
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 The pair @code{(@var{tag-set} . @var{instantiator})} is called an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677 @dfn{inst-pair}. A list of inst-pairs is called an @dfn{inst-list}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 The pair @code{(@var{locale} . @var{inst-list})} is called a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 @dfn{specification}. A spec-list, then, can be viewed as a list of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 specifications.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 @var{how-to-add} specifies how to combine the new specifications with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 the existing ones, and has the same semantics as for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 @code{add-spec-to-specifier}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 In many circumstances, the higher-level function @code{set-specifier} is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 more convenient and should be used instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
690 @defspec let-specifier specifier-list &rest body
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 This special form temporarily adds specifications to specifiers,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 evaluates forms in @var{body} and restores the specifiers to their
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 previous states. The specifiers and their temporary specifications are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 listed in @var{specifier-list}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 The format of @var{specifier-list} is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 @example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 ((@var{specifier} @var{value} &optional @var{locale} @var{tag-set} @var{how-to-add}) ...)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 @end example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 @var{specifier} is the specifier to be temporarily modified.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 @var{value} is the instantiator to be temporarily added to specifier in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 @var{locale}. @var{locale}, @var{tag-set} and @var{how-to-add} have the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 same meaning as in @code{add-spec-to-specifier}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 This special form is implemented as a macro; the code resulting from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 macro expansion will add specifications to specifiers using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 @code{add-spec-to-specifier}. After forms in @var{body} are evaluated,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 the temporary specifications are removed and old specifier spec-lists
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 are restored.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713 @var{locale}, @var{tag-set} and @var{how-to-add} may be omitted, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 default to @code{nil}. The value of the last form in @var{body} is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 NOTE: If you want the specifier's instance to change in all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 circumstances, use @code{(selected-window)} as the @var{locale}. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 @var{locale} is @code{nil} or omitted, it defaults to @code{global}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 The following example removes the 3D modeline effect in the currently
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 selected window for the duration of a second:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 @example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 (let-specifier ((modeline-shadow-thickness 0 (selected-window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 (sit-for 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 @end example
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
728 @end defspec
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
730 @defun set-specifier specifier value &optional locale tag-set how-to-add
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731 This function adds some specifications to @var{specifier}. @var{value}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 can be a single instantiator or tagged instantiator (added as a global
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 specification), a list of tagged and/or untagged instantiators (added as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 a global specification), a cons of a locale and instantiator or locale
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 and instantiator list, a list of such conses, or nearly any other
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 reasonable form. More specifically, @var{value} can be anything
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 accepted by @code{canonicalize-spec-list}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
739 @var{locale}, @var{tag-set}, and @var{how-to-add} are the same as in
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
740 @code{add-spec-to-specifier}.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 Note that @code{set-specifier} is exactly complementary to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 @code{specifier-specs} except in the case where @var{specifier} has no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 specs at all in it but @code{nil} is a valid instantiator (in that case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 @code{specifier-specs} will return @code{nil} (meaning no specs) and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 @code{set-specifier} will interpret the @code{nil} as meaning ``I'm
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 adding a global instantiator and its value is @code{nil}''), or in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 strange cases where there is an ambiguity between a spec-list and an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 inst-list, etc. (The built-in specifier types are designed in such a way
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 as to avoid any such ambiguities.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 If you want to work with spec-lists, you should probably not use these
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 functions, but should use the lower-level functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 @code{specifier-spec-list} and @code{add-spec-list-to-specifier}. These
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 functions always work with fully-qualified spec-lists; thus, there is no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 ambiguity.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 @defun canonicalize-inst-pair inst-pair specifier-type &optional noerror
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 This function canonicalizes the given @var{inst-pair}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 @var{specifier-type} specifies the type of specifier that this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 @var{spec-list} will be used for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 Canonicalizing means converting to the full form for an inst-pair, i.e.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 @code{(@var{tag-set} . @var{instantiator})}. A single, untagged
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 instantiator is given a tag set of @code{nil} (the empty set), and a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 single tag is converted into a tag set consisting only of that tag.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 If @var{noerror} is non-@code{nil}, signal an error if the inst-pair is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 invalid; otherwise return @code{t}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 @defun canonicalize-inst-list inst-list specifier-type &optional noerror
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 This function canonicalizes the given @var{inst-list} (a list of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 inst-pairs).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 @var{specifier-type} specifies the type of specifier that this @var{inst-list}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 will be used for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 Canonicalizing means converting to the full form for an inst-list, i.e.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 @code{((@var{tag-set} . @var{instantiator}) ...)}. This function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 accepts a single inst-pair or any abbreviation thereof or a list of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 (possibly abbreviated) inst-pairs. (See @code{canonicalize-inst-pair}.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 If @var{noerror} is non-@code{nil}, signal an error if the inst-list is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 invalid; otherwise return @code{t}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 @defun canonicalize-spec spec specifier-type &optional noerror
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791 This function canonicalizes the given @var{spec} (a specification).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 @var{specifier-type} specifies the type of specifier that this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 @var{spec-list} will be used for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 Canonicalizing means converting to the full form for a spec, i.e.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 @code{(@var{locale} (@var{tag-set} . @var{instantiator}) ...)}. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 function accepts a possibly abbreviated inst-list or a cons of a locale
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 and a possibly abbreviated inst-list. (See
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 @code{canonicalize-inst-list}.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 If @var{noerror} is @code{nil}, signal an error if the specification is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 invalid; otherwise return @code{t}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 @defun canonicalize-spec-list spec-list specifier-type &optional noerror
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 This function canonicalizes the given @var{spec-list} (a list of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 specifications).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 @var{specifier-type} specifies the type of specifier that this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 @var{spec-list} will be used for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 Canonicalizing means converting to the full form for a spec-list, i.e.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814 @code{((@var{locale} (@var{tag-set} . @var{instantiator}) ...) ...)}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 This function accepts a possibly abbreviated specification or a list of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 such things. (See @code{canonicalize-spec}.) This is the function used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 to convert spec-lists accepted by @code{set-specifier} and such into a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 form suitable for @code{add-spec-list-to-specifier}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 This function tries extremely hard to resolve any ambiguities,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 and the built-in specifier types (font, image, toolbar, etc.) are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 designed so that there won't be any ambiguities.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 If @var{noerror} is @code{nil}, signal an error if the spec-list is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 invalid; otherwise return @code{t}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 @node Retrieving Specifications
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 @section Retrieving the Specifications from a Specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 @defun specifier-spec-list specifier &optional locale tag-set exact-p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 This function returns the spec-list of specifications for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 @var{specifier} in @var{locale}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 If @var{locale} is a particular locale (a window, buffer, frame, device,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 or the symbol @code{global}), a spec-list consisting of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 specification for that locale will be returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
839 If @var{locale} is a locale type (i.e. one of the symbols @code{window},
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 @code{buffer}, @code{frame}, or @code{device}), a spec-list of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 specifications for all locales of that type will be returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 If @var{locale} is @code{nil} or the symbol @code{all}, a spec-list of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844 all specifications in @var{specifier} will be returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 @var{locale} can also be a list of locales, locale types, and/or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 @code{all}; the result is as if @code{specifier-spec-list} were called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 on each element of the list and the results concatenated together.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 Only instantiators where @var{tag-set} (a list of zero or more tags) is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 a subset of (or possibly equal to) the instantiator's tag set are
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
852 returned. (The default value of @code{nil} is a subset of all tag sets,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 so in this case no instantiators will be screened out.) If @var{exact-p}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 is non-@code{nil}, however, @var{tag-set} must be equal to an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 instantiator's tag set for the instantiator to be returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 @defun specifier-specs specifier &optional locale tag-set exact-p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 This function returns the specification(s) for @var{specifier} in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 @var{locale}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 If @var{locale} is a single locale or is a list of one element
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 containing a single locale, then a ``short form'' of the instantiators
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 for that locale will be returned. Otherwise, this function is identical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 to @code{specifier-spec-list}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 The ``short form'' is designed for readability and not for ease of use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 in Lisp programs, and is as follows:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 @enumerate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 If there is only one instantiator, then an inst-pair (i.e. cons of tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 and instantiator) will be returned; otherwise a list of inst-pairs will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 be returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 For each inst-pair returned, if the instantiator's tag is @code{any},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 the tag will be removed and the instantiator itself will be returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 instead of the inst-pair.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 If there is only one instantiator, its value is @code{nil}, and its tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 is @code{any}, a one-element list containing @code{nil} will be returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 rather than just @code{nil}, to distinguish this case from there being
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 no instantiators at all.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 @end enumerate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 @defun specifier-fallback specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 This function returns the fallback value for @var{specifier}. Fallback
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 values are provided by the C code for certain built-in specifiers to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 make sure that instancing won't fail even if all specs are removed from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 the specifier, or to implement simple inheritance behavior (e.g. this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 method is used to ensure that faces other than @code{default} inherit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 their attributes from @code{default}). By design, you cannot change the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 fallback value, and specifiers created with @code{make-specifier} will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 never have a fallback (although a similar, Lisp-accessible capability
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 may be provided in the future to allow for inheritance).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 The fallback value will be an inst-list that is instanced like
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 any other inst-list, a specifier of the same type as @var{specifier}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 (results in inheritance), or @code{nil} for no fallback.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 When you instance a specifier, you can explicitly request that the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 fallback not be consulted. (The C code does this, for example, when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 merging faces.) See @code{specifier-instance}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 @node Specifier Tag Functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 @section Working With Specifier Tags
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911 A specifier tag set is an entity that is attached to an instantiator
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 and can be used to restrict the scope of that instantiator to a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 particular device class or device type and/or to mark instantiators
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 added by a particular package so that they can be later removed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
916 A specifier tag set consists of a list of zero or more specifier tags,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 each of which is a symbol that is recognized by XEmacs as a tag. (The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 valid device types and device classes are always tags, as are any tags
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 defined by @code{define-specifier-tag}.) It is called a ``tag set'' (as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 opposed to a list) because the order of the tags or the number of times
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 a particular tag occurs does not matter.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 Each tag has a predicate associated with it, which specifies whether
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 that tag applies to a particular device. The tags which are device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 types and classes match devices of that type or class. User-defined
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 tags can have any predicate, or none (meaning that all devices match).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 When attempting to instance a specifier, a particular instantiator is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 only considered if the device of the domain being instanced over matches
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 all tags in the tag set attached to that instantiator.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 Most of the time, a tag set is not specified, and the instantiator gets
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 a null tag set, which matches all devices.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 @defun valid-specifier-tag-p tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 This function returns non-@code{nil} if @var{tag} is a valid specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 tag.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 @defun valid-specifier-tag-set-p tag-set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 This function returns non-@code{nil} if @var{tag-set} is a valid
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 specifier tag set.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 @defun canonicalize-tag-set tag-set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 This function canonicalizes the given tag set. Two canonicalized tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 sets can be compared with @code{equal} to see if they represent the same
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 tag set. (Specifically, canonicalizing involves sorting by symbol name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 and removing duplicates.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 @defun device-matches-specifier-tag-set-p device tag-set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 This function returns non-@code{nil} if @var{device} matches specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 tag set @var{tag-set}. This means that @var{device} matches each tag in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 the tag set.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 @defun define-specifier-tag tag &optional predicate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 This function defines a new specifier tag. If @var{predicate} is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 specified, it should be a function of one argument (a device) that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 specifies whether the tag matches that particular device. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 @var{predicate} is omitted, the tag matches all devices.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 You can redefine an existing user-defined specifier tag. However, you
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 cannot redefine the built-in specifier tags (the device types and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 classes) or the symbols @code{nil}, @code{t}, @code{all}, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 @code{global}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969 @defun device-matching-specifier-tag-list &optional device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 This function returns a list of all specifier tags matching
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 @var{device}. @var{device} defaults to the selected device if omitted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 @defun specifier-tag-list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 This function returns a list of all currently-defined specifier tags.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 This includes the built-in ones (the device types and classes).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 @defun specifier-tag-predicate tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 This function returns the predicate for the given specifier tag.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 @node Specifier Instancing Functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 @section Functions for Instancing a Specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 @defun specifier-instance specifier &optional domain default no-fallback
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 This function instantiates @var{specifier} (return its value) in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 @var{domain}. If no instance can be generated for this domain, return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 @var{default}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 @var{domain} should be a window, frame, or device. Other values that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 are legal as a locale (e.g. a buffer) are not valid as a domain because
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 they do not provide enough information to identify a particular device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 (see @code{valid-specifier-domain-p}). @var{domain} defaults to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 selected window if omitted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 @dfn{Instantiating} a specifier in a particular domain means determining
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 the specifier's ``value'' in that domain. This is accomplished by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 searching through the specifications in the specifier that correspond to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 all locales that can be derived from the given domain, from specific to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 general. In most cases, the domain is an Emacs window. In that case
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 specifications are searched for as follows:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 @enumerate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 A specification whose locale is the window itself;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 A specification whose locale is the window's buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010 A specification whose locale is the window's frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 A specification whose locale is the window's frame's device;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014 A specification whose locale is the symbol @code{global}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 @end enumerate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 If all of those fail, then the C-code-provided fallback value for this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 specifier is consulted (see @code{specifier-fallback}). If it is an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 inst-list, then this function attempts to instantiate that list just as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 when a specification is located in the first five steps above. If the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 fallback is a specifier, @code{specifier-instance} is called recursively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 on this specifier and the return value used. Note, however, that if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 optional argument @var{no-fallback} is non-@code{nil}, the fallback
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 value will not be consulted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 Note that there may be more than one specification matching a particular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1027 locale; all such specifications are considered before looking for any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 specifications for more general locales. Any particular specification
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 that is found may be rejected because it is tagged to a particular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 device class (e.g. @code{color}) or device type (e.g. @code{x}) or both
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 and the device for the given domain does not match this, or because the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 specification is not valid for the device of the given domain (e.g. the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 font or color name does not exist for this particular X server).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 The returned value is dependent on the type of specifier. For example,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 for a font specifier (as returned by the @code{face-font} function), the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 returned value will be a font-instance object. For images, the returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 value will be a string, pixmap, or subwindow.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041 @defun specifier-instance-from-inst-list specifier domain inst-list &optional default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 This function attempts to convert a particular inst-list into an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043 instance. This attempts to instantiate @var{inst-list} in the given
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 @var{domain}, as if @var{inst-list} existed in a specification in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 @var{specifier}. If the instantiation fails, @var{default} is returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 In most circumstances, you should not use this function; use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 @code{specifier-instance} instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 @node Specifier Example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 @section Example of Specifier Usage
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 Now let us present an example to clarify the theoretical discussions we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 have been through. In this example, we will use the general specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 functions for clarity. Keep in mind that many types of specifiers, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 some other types of objects that are associated with specifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1057 (e.g. faces), provide convenience functions making it easier to work
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 with objects of that type.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1060 Let us consider the background color of the default face. A specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061 is used to specify how that color will appear in different domains.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 First, let's retrieve the specifier:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064 @example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065 (setq sp (face-property 'default 'background))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1066 @result{} #<color-specifier 0x3da>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 @end example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 @example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070 (specifier-specs sp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1071 @result{} ((#<buffer "device.c"> (nil . "forest green"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072 (#<window on "Makefile" 0x8a2b> (nil . "hot pink"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1073 (#<x-frame "emacs" 0x4ac> (nil . "puke orange")
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1074 (nil . "moccasin"))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 (#<x-frame "VM" 0x4ac> (nil . "magenta"))
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1076 (global ((tty) . "cyan") (nil . "white"))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1077 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1078 @end example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 Then, say we want to determine what the background color of the default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081 face is for the window currently displaying the buffer @samp{*scratch*}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 We call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 @example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 (get-buffer-window "*scratch*")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 @result{} #<window on "*scratch*" 0x4ad>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087 (window-frame (get-buffer-window "*scratch*"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1088 @result{} #<x-frame "emacs" 0x4ac>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 (specifier-instance sp (get-buffer-window "*scratch*"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 @result{} #<color-instance moccasin 47=(FFFF,E4E4,B5B5) 0x6309>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 @end example
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1093 Note that we passed a window to @code{specifier-instance}, not a buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094 We cannot pass a buffer because a buffer by itself does not provide enough
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 information. The buffer might not be displayed anywhere at all, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 could be displayed in many different frames on different devices.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 The result is arrived at like this:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 @enumerate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 First, we look for a specification matching the buffer displayed in the
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1103 window, i.e. @samp{*scratch*}. There are none, so we proceed.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 Then, we look for a specification matching the window itself. Again, there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 are none.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 Then, we look for a specification matching the window's frame. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109 specification @code{(#<x-frame "emacs" 0x4ac> . "puke orange")} is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 found. We call the instantiation method for colors, passing it the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 locale we were searching over (i.e. the window, in this case) and the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 instantiator (@samp{"puke orange"}). However, the particular device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 which this window is on (let's say it's an X connection) doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114 recognize the color @samp{"puke orange"}, so the specification is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 rejected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 @item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 So we continue looking for a specification matching the window's frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 We find @samp{(#<x-frame "emacs" 0x4ac> . "moccasin")}. Again, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 call the instantiation method for colors. This time, the X server
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 our window is on recognizes the color @samp{moccasin}, and so the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 instantiation method succeeds and returns a color instance.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 @end enumerate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124 @node Creating Specifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125 @section Creating New Specifier Objects
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 @defun make-specifier type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 This function creates a new specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 A specifier is an object that can be used to keep track of a property
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131 whose value can be per-buffer, per-window, per-frame, or per-device,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1132 and can further be restricted to a particular device-type or device-class.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 Specifiers are used, for example, for the various built-in properties of a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134 face; this allows a face to have different values in different frames,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1135 buffers, etc. For more information, see @code{specifier-instance},
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1136 @code{specifier-specs}, and @code{add-spec-to-specifier}; or, for a detailed
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 description of specifiers, including how they are instantiated over a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 particular domain (i.e. how their value in that domain is determined),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 see the chapter on specifiers in the XEmacs Lisp Reference Manual.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141 @var{type} specifies the particular type of specifier, and should be one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142 of the symbols @code{generic}, @code{integer}, @code{natnum},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 @code{boolean}, @code{color}, @code{font}, @code{image},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144 @code{face-boolean}, or @code{toolbar}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146 For more information on particular types of specifiers, see the
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1147 functions @code{make-generic-specifier}, @code{make-integer-specifier},
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1148 @code{make-natnum-specifier}, @code{make-boolean-specifier},
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1149 @code{make-color-specifier}, @code{make-font-specifier},
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1150 @code{make-image-specifier}, @code{make-face-boolean-specifier}, and
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1151 @code{make-toolbar-specifier}.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 @defun make-specifier-and-init type spec-list &optional dont-canonicalize
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 This function creates and initialize a new specifier.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 This is a front-end onto @code{make-specifier} that allows you to create
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158 a specifier and add specs to it at the same time. @var{type} specifies
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159 the specifier type. @var{spec-list} supplies the specification(s) to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 added to the specifier. Normally, almost any reasonable abbreviation of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 the full spec-list form is accepted, and is converted to the full form;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 however, if optional argument @var{dont-canonicalize} is non-@code{nil},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 this conversion is not performed, and the @var{spec-list} must already
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 be in full form. See @code{canonicalize-spec-list}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1167 @defun make-integer-specifier spec-list
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1168
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1169 Return a new @code{integer} specifier object with the given
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1170 specification list. @var{spec-list} can be a list of specifications
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1171 (each of which is a cons of a locale and a list of instantiators), a
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1172 single instantiator, or a list of instantiators.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1173
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1174 Valid instantiators for integer specifiers are integers.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1175 @end defun
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1176
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1177 @defun make-boolean-specifier spec-list
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1178
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1179 Return a new @code{boolean} specifier object with the given
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1180 specification list. @var{spec-list} can be a list of specifications
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1181 (each of which is a cons of a locale and a list of instantiators), a
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1182 single instantiator, or a list of instantiators.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1183
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1184 Valid instantiators for boolean specifiers are @code{t} and @code{nil}.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1185 @end defun
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1186
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1187 @defun make-natnum-specifier spec-list
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1188
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1189 Return a new @code{natnum} specifier object with the given specification
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1190 list. @var{spec-list} can be a list of specifications (each of which is
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1191 a cons of a locale and a list of instantiators), a single instantiator,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1192 or a list of instantiators.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1193
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1194 Valid instantiators for natnum specifiers are non-negative integers.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1195 @end defun
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1196
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1197 @defun make-generic-specifier spec-list
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1198
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1199 Return a new @code{generic} specifier object with the given
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1200 specification list. @var{spec-list} can be a list of specifications
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1201 (each of which is a cons of a locale and a list of instantiators), a
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1202 single instantiator, or a list of instantiators.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1203
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1204 Valid instantiators for generic specifiers are all Lisp values. They
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1205 are returned back unchanged when a specifier is instantiated.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1206 @end defun
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1207
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1208 @defun make-display-table-specifier spec-list
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1209
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1210 Return a new @code{display-table} specifier object with the given spec
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1211 list. @var{spec-list} can be a list of specifications (each of which is
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1212 a cons of a locale and a list of instantiators), a single instantiator,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1213 or a list of instantiators.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1214
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1215 Valid instantiators for display-table specifiers are described in detail
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1216 in the doc string for @code{current-display-table} (@pxref{Active
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1217 Display Table}).
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1218 @end defun
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1219
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 @node Specifier Validation Functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1221 @section Functions for Checking the Validity of Specifier Components
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1222
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 @defun valid-specifier-domain-p domain
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 This function returns non-@code{nil} if @var{domain} is a valid
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 specifier domain. A domain is used to instance a specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226 (i.e. determine the specifier's value in that domain). Valid domains
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 are a window, frame, or device. (@code{nil} is not valid.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 @defun valid-specifier-locale-p locale
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 This function returns non-@code{nil} if @var{locale} is a valid
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 specifier locale. Valid locales are a device, a frame, a window, a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 buffer, and @code{global}. (@code{nil} is not valid.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 @defun valid-specifier-locale-type-p locale-type
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1237 Given a specifier @var{locale-type}, this function returns non-@code{nil} if it
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 is valid. Valid locale types are the symbols @code{global},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 @code{device}, @code{frame}, @code{window}, and @code{buffer}. (Note,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240 however, that in functions that accept either a locale or a locale type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 @code{global} is considered an individual locale.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 @defun valid-specifier-type-p specifier-type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245 Given a @var{specifier-type}, this function returns non-@code{nil} if it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246 is valid. Valid types are @code{generic}, @code{integer},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 @code{boolean}, @code{color}, @code{font}, @code{image},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248 @code{face-boolean}, and @code{toolbar}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251 @defun valid-specifier-tag-p tag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 This function returns non-@code{nil} if @var{tag} is a valid specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1253 tag.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 @defun valid-instantiator-p instantiator specifier-type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 This function returns non-@code{nil} if @var{instantiator} is valid for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 @var{specifier-type}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 @defun valid-inst-list-p inst-list type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1262 This function returns non-@code{nil} if @var{inst-list} is valid for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 specifier type @var{type}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 @defun valid-spec-list-p spec-list type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 This function returns non-@code{nil} if @var{spec-list} is valid for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 specifier type @var{type}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 @defun check-valid-instantiator instantiator specifier-type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272 This function signals an error if @var{instantiator} is invalid for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 @var{specifier-type}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 @defun check-valid-inst-list inst-list type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277 This function signals an error if @var{inst-list} is invalid for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1278 specifier type @var{type}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 @defun check-valid-spec-list spec-list type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 This function signals an error if @var{spec-list} is invalid for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 specifier type @var{type}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286 @node Other Specification Functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 @section Other Functions for Working with Specifications in a Specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1288
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 @defun copy-specifier specifier &optional dest locale tag-set exact-p how-to-add
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1290 This function copies @var{specifier} to @var{dest}, or creates a new one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 if @var{dest} is @code{nil}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1293 If @var{dest} is @code{nil} or omitted, a new specifier will be created
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1294 and the specifications copied into it. Otherwise, the specifications
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1295 will be copied into the existing specifier in @var{dest}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 If @var{locale} is @code{nil} or the symbol @code{all}, all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1298 specifications will be copied. If @var{locale} is a particular locale,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 the specification for that particular locale will be copied. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 @var{locale} is a locale type, the specifications for all locales of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1301 that type will be copied. @var{locale} can also be a list of locales,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 locale types, and/or @code{all}; this is equivalent to calling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 @code{copy-specifier} for each of the elements of the list. See
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 @code{specifier-spec-list} for more information about @var{locale}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 Only instantiators where @var{tag-set} (a list of zero or more tags) is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 a subset of (or possibly equal to) the instantiator's tag set are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 copied. (The default value of @code{nil} is a subset of all tag sets,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 so in this case no instantiators will be screened out.) If @var{exact-p}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 is non-@code{nil}, however, @var{tag-set} must be equal to an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311 instantiator's tag set for the instantiator to be copied.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313 Optional argument @var{how-to-add} specifies what to do with existing
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1314 specifications in @var{dest}. If @code{nil}, then whichever locales or locale
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 types are copied will first be completely erased in @var{dest}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316 Otherwise, it is the same as in @code{add-spec-to-specifier}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1319 @defun remove-specifier specifier &optional locale tag-set exact-p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1320 This function removes specification(s) for @var{specifier}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1321
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 If @var{locale} is a particular locale (a buffer, window, frame, device,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1323 or the symbol @code{global}), the specification for that locale will be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324 removed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326 If instead, @var{locale} is a locale type (i.e. a symbol @code{buffer},
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1327 @code{window}, @code{frame}, or @code{device}), the specifications for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1328 all locales of that type will be removed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330 If @var{locale} is @code{nil} or the symbol @code{all}, all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331 specifications will be removed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333 @var{locale} can also be a list of locales, locale types, and/or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334 @code{all}; this is equivalent to calling @code{remove-specifier} for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335 each of the elements in the list.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337 Only instantiators where @var{tag-set} (a list of zero or more tags) is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 a subset of (or possibly equal to) the instantiator's tag set are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339 removed. (The default value of @code{nil} is a subset of all tag sets,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 so in this case no instantiators will be screened out.) If @var{exact-p}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341 is non-@code{nil}, however, @var{tag-set} must be equal to an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 instantiator's tag set for the instantiator to be removed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1345 @defun map-specifier specifier func &optional locale maparg
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1346 This function applies @var{func} to the specification(s) for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1347 @var{locale} in @var{specifier}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1349 If @var{locale} is a locale, @var{func} will be called for that locale.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1350 If @var{locale} is a locale type, @var{func} will be mapped over all
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1351 locales of that type. If @var{locale} is @code{nil} or the symbol
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 @code{all}, @var{func} will be mapped over all locales in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 @var{specifier}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1355 @var{func} is called with four arguments: the @var{specifier}, the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356 locale being mapped over, the inst-list for that locale, and the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1357 optional @var{maparg}. If any invocation of @var{func} returns
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 non-@code{nil}, the mapping will stop and the returned value becomes the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359 value returned from @code{map-specifier}. Otherwise,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360 @code{map-specifier} returns @code{nil}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363 @defun specifier-locale-type-from-locale locale
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 Given a specifier @var{locale}, this function returns its type.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365 @end defun
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1366