Mercurial > hg > xemacs-beta
annotate man/lispref/objects.texi @ 4885:6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
lisp/ChangeLog addition:
2010-01-24 Aidan Kehoe <kehoea@parhasard.net>
Correct the semantics of #'member*, #'eql, #'assoc* in the
presence of bignums; change the integerp byte code to fixnump
semantics.
* bytecomp.el (fixnump, integerp, byte-compile-integerp):
Change the integerp byte code to fixnump; add a byte-compile
method to integerp using fixnump and numberp and avoiding a
funcall most of the time, since in the non-core contexts where
integerp is used, it's mostly distinguishing between fixnums and
things that are not numbers at all.
* byte-optimize.el (side-effect-free-fns, byte-after-unbind-ops)
(byte-compile-side-effect-and-error-free-ops):
Replace the integerp bytecode with fixnump; add fixnump to the
side-effect-free-fns. Add the other extended number type
predicates to the list in passing.
* obsolete.el (floatp-safe): Mark this as obsolete.
* cl.el (eql): Go into more detail in the docstring here. Don't
bother checking whether both arguments are numbers; one is enough,
#'equal will fail correctly if they have distinct types.
(subst): Replace a call to #'integerp (deciding whether to use
#'memq or not) with one to #'fixnump.
Delete most-positive-fixnum, most-negative-fixnum from this file;
they're now always in C, so they can't be modified from Lisp.
* cl-seq.el (member*, assoc*, rassoc*):
Correct these functions in the presence of bignums.
* cl-macs.el (cl-make-type-test): The type test for a fixnum is
now fixnump. Ditch floatp-safe, use floatp instead.
(eql): Correct this compiler macro in the presence of bignums.
(assoc*): Correct this compiler macro in the presence of bignums.
* simple.el (undo):
Change #'integerp to #'fixnump here, since we use #'delq with the
same value as ELT a few lines down.
src/ChangeLog addition:
2010-01-24 Aidan Kehoe <kehoea@parhasard.net>
Fix problems with #'eql, extended number types, and the hash table
implementation; change the Bintegerp bytecode to fixnump semantics
even on bignum builds, since #'integerp can have a fast
implementation in terms of #'fixnump for most of its extant uses,
but not vice-versa.
* lisp.h: Always #include number.h; we want the macros provided in
it, even if the various number types are not available.
* number.h (NON_FIXNUM_NUMBER_P): New macro, giving 1 when its
argument is of non-immediate number type. Equivalent to FLOATP if
WITH_NUMBER_TYPES is not defined.
* elhash.c (lisp_object_eql_equal, lisp_object_eql_hash):
Use NON_FIXNUM_NUMBER_P in these functions, instead of FLOATP,
giving more correct behaviour in the presence of the extended
number types.
* bytecode.c (Bfixnump, execute_optimized_program):
Rename Bintegerp to Bfixnump; change its semantics to reflect the
new name on builds with bignum support.
* data.c (Ffixnump, Fintegerp, syms_of_data, vars_of_data):
Always make #'fixnump available, even on non-BIGNUM builds;
always implement #'integerp in this file, even on BIGNUM builds.
Move most-positive-fixnum, most-negative-fixnum here from
number.c, so they are Lisp constants even on builds without number
types, and attempts to change or bind them error.
Use the NUMBERP and INTEGERP macros even on builds without
extended number types.
* data.c (fixnum_char_or_marker_to_int):
Rename this function from integer_char_or_marker_to_int, to better
reflect the arguments it accepts.
* number.c (Fevenp, Foddp, syms_of_number):
Never provide #'integerp in this file. Remove #'oddp,
#'evenp; their implementations are overridden by those in cl.el.
* number.c (vars_of_number):
most-positive-fixnum, most-negative-fixnum are no longer here.
man/ChangeLog addition:
2010-01-23 Aidan Kehoe <kehoea@parhasard.net>
Generally: be careful to say fixnum, not integer, when talking
about fixed-precision integral types. I'm sure I've missed
instances, both here and in the docstrings, but this is a decent
start.
* lispref/text.texi (Columns):
Document where only fixnums, not integers generally, are accepted.
(Registers):
Remove some ancient char-int confoundance here.
* lispref/strings.texi (Creating Strings, Creating Strings):
Be more exact in describing where fixnums but not integers in
general are accepted.
(Creating Strings): Use a more contemporary example to illustrate
how concat deals with lists including integers about #xFF. Delete
some obsolete documentation on same.
(Char Table Types): Document that only fixnums are accepted as
values in syntax tables.
* lispref/searching.texi (String Search, Search and Replace):
Be exact in describing where fixnums but not integers in general
are accepted.
* lispref/range-tables.texi (Range Tables): Be exact in describing
them; only fixnums are accepted to describe ranges.
* lispref/os.texi (Killing XEmacs, User Identification)
(Time of Day, Time Conversion):
Be more exact about using fixnum where only fixed-precision
integers are accepted.
* lispref/objects.texi (Integer Type): Be more exact (and
up-to-date) about the possible values for
integers. Cross-reference to documentation of the bignum extension.
(Equality Predicates):
(Range Table Type):
(Array Type): Use fixnum, not integer, to describe a
fixed-precision integer.
(Syntax Table Type): Correct some English syntax here.
* lispref/numbers.texi (Numbers): Change the phrasing here to use
fixnum to mean the fixed-precision integers normal in emacs.
Document that our terminology deviates from that of Common Lisp,
and that we're working on it.
(Compatibility Issues): Reiterate the Common Lisp versus Emacs
Lisp compatibility issues.
(Comparison of Numbers, Arithmetic Operations):
* lispref/commands.texi (Command Loop Info, Working With Events):
* lispref/buffers.texi (Modification Time):
Be more exact in describing where fixnums but not integers in
general are accepted.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 24 Jan 2010 15:21:27 +0000 |
| parents | e6dec75ded0e |
| children | 755ae5b97edb |
| rev | line source |
|---|---|
| 428 | 1 @c -*-texinfo-*- |
| 2 @c This is part of the XEmacs Lisp Reference Manual. | |
| 3 @c Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. | |
| 4 @c See the file lispref.texi for copying conditions. | |
| 5 @setfilename ../../info/objects.info | |
| 693 | 6 @node Lisp Data Types, Numbers, Packaging, Top |
| 428 | 7 @chapter Lisp Data Types |
| 8 @cindex object | |
| 9 @cindex Lisp object | |
| 10 @cindex type | |
| 11 @cindex data type | |
| 12 | |
| 13 A Lisp @dfn{object} is a piece of data used and manipulated by Lisp | |
| 14 programs. For our purposes, a @dfn{type} or @dfn{data type} is a set of | |
| 15 possible objects. | |
| 16 | |
| 17 Every object belongs to at least one type. Objects of the same type | |
| 18 have similar structures and may usually be used in the same contexts. | |
| 19 Types can overlap, and objects can belong to two or more types. | |
| 20 Consequently, we can ask whether an object belongs to a particular type, | |
| 21 but not for ``the'' type of an object. | |
| 22 | |
| 23 @cindex primitive type | |
| 24 A few fundamental object types are built into XEmacs. These, from | |
| 25 which all other types are constructed, are called @dfn{primitive types}. | |
| 26 Each object belongs to one and only one primitive type. These types | |
| 27 include @dfn{integer}, @dfn{character} (starting with XEmacs 20.0), | |
| 28 @dfn{float}, @dfn{cons}, @dfn{symbol}, @dfn{string}, @dfn{vector}, | |
| 29 @dfn{bit-vector}, @dfn{subr}, @dfn{compiled-function}, @dfn{hash-table}, | |
| 30 @dfn{range-table}, @dfn{char-table}, @dfn{weak-list}, and several | |
| 31 special types, such as @dfn{buffer}, that are related to editing. | |
| 32 (@xref{Editing Types}.) | |
| 33 | |
| 34 Each primitive type has a corresponding Lisp function that checks | |
| 35 whether an object is a member of that type. | |
| 36 | |
| 37 Note that Lisp is unlike many other languages in that Lisp objects are | |
| 38 @dfn{self-typing}: the primitive type of the object is implicit in the | |
| 39 object itself. For example, if an object is a vector, nothing can treat | |
| 40 it as a number; Lisp knows it is a vector, not a number. | |
| 41 | |
| 42 In most languages, the programmer must declare the data type of each | |
| 43 variable, and the type is known by the compiler but not represented in | |
| 44 the data. Such type declarations do not exist in XEmacs Lisp. A Lisp | |
| 45 variable can have any type of value, and it remembers whatever value | |
| 46 you store in it, type and all. | |
| 47 | |
| 48 This chapter describes the purpose, printed representation, and read | |
| 49 syntax of each of the standard types in Emacs Lisp. Details on how | |
| 50 to use these types can be found in later chapters. | |
| 51 | |
| 52 @menu | |
| 53 * Printed Representation:: How Lisp objects are represented as text. | |
| 54 * Comments:: Comments and their formatting conventions. | |
| 55 * Primitive Types:: List of all primitive types in XEmacs. | |
| 56 * Programming Types:: Types found in all Lisp systems. | |
| 57 * Editing Types:: Types specific to XEmacs. | |
| 58 * Window-System Types:: Types specific to windowing systems. | |
| 59 * Type Predicates:: Tests related to types. | |
| 60 * Equality Predicates:: Tests of equality between any two objects. | |
| 61 @end menu | |
| 62 | |
| 63 @node Printed Representation | |
| 64 @section Printed Representation and Read Syntax | |
| 65 @cindex printed representation | |
| 66 @cindex read syntax | |
| 67 | |
| 68 The @dfn{printed representation} of an object is the format of the | |
| 69 output generated by the Lisp printer (the function @code{prin1}) for | |
| 70 that object. The @dfn{read syntax} of an object is the format of the | |
| 71 input accepted by the Lisp reader (the function @code{read}) for that | |
| 72 object. Most objects have more than one possible read syntax. Some | |
| 73 types of object have no read syntax; except for these cases, the printed | |
| 74 representation of an object is also a read syntax for it. | |
| 75 | |
| 76 In other languages, an expression is text; it has no other form. In | |
| 77 Lisp, an expression is primarily a Lisp object and only secondarily the | |
| 78 text that is the object's read syntax. Often there is no need to | |
| 79 emphasize this distinction, but you must keep it in the back of your | |
| 80 mind, or you will occasionally be very confused. | |
| 81 | |
| 82 @cindex hash notation | |
| 83 Every type has a printed representation. Some types have no read | |
| 84 syntax, since it may not make sense to enter objects of these types | |
| 85 directly in a Lisp program. For example, the buffer type does not have | |
| 86 a read syntax. Objects of these types are printed in @dfn{hash | |
| 87 notation}: the characters @samp{#<} followed by a descriptive string | |
| 88 (typically the type name followed by the name of the object), and closed | |
| 89 with a matching @samp{>}. Hash notation cannot be read at all, so the | |
| 90 Lisp reader signals the error @code{invalid-read-syntax} whenever it | |
| 91 encounters @samp{#<}. | |
| 92 @kindex invalid-read-syntax | |
| 93 | |
| 94 @example | |
| 95 (current-buffer) | |
| 96 @result{} #<buffer "objects.texi"> | |
| 97 @end example | |
| 98 | |
| 99 When you evaluate an expression interactively, the Lisp interpreter | |
| 100 first reads the textual representation of it, producing a Lisp object, | |
| 101 and then evaluates that object (@pxref{Evaluation}). However, | |
| 102 evaluation and reading are separate activities. Reading returns the | |
| 103 Lisp object represented by the text that is read; the object may or may | |
| 104 not be evaluated later. @xref{Input Functions}, for a description of | |
| 105 @code{read}, the basic function for reading objects. | |
| 106 | |
| 107 @node Comments | |
| 108 @section Comments | |
| 109 @cindex comments | |
| 110 @cindex @samp{;} in comment | |
| 111 | |
| 112 A @dfn{comment} is text that is written in a program only for the sake | |
| 113 of humans that read the program, and that has no effect on the meaning | |
| 114 of the program. In Lisp, a semicolon (@samp{;}) starts a comment if it | |
| 115 is not within a string or character constant. The comment continues to | |
| 116 the end of line. The Lisp reader discards comments; they do not become | |
| 117 part of the Lisp objects which represent the program within the Lisp | |
| 118 system. | |
| 119 | |
| 120 The @samp{#@@@var{count}} construct, which skips the next @var{count} | |
| 121 characters, is useful for program-generated comments containing binary | |
| 122 data. The XEmacs Lisp byte compiler uses this in its output files | |
| 123 (@pxref{Byte Compilation}). It isn't meant for source files, however. | |
| 124 | |
| 125 @xref{Comment Tips}, for conventions for formatting comments. | |
| 126 | |
| 127 @node Primitive Types | |
| 128 @section Primitive Types | |
| 129 @cindex primitive types | |
| 130 | |
| 131 For reference, here is a list of all the primitive types that may | |
| 132 exist in XEmacs. Note that some of these types may not exist | |
| 133 in some XEmacs executables; that depends on the options that | |
| 134 XEmacs was configured with. | |
| 135 | |
| 136 @itemize @bullet | |
| 137 @item | |
| 138 bit-vector | |
| 139 @item | |
| 140 buffer | |
| 141 @item | |
| 142 char-table | |
| 143 @item | |
| 144 character | |
| 145 @item | |
| 146 charset | |
| 147 @item | |
| 148 coding-system | |
| 149 @item | |
| 150 cons | |
| 151 @item | |
| 152 color-instance | |
| 153 @item | |
| 154 compiled-function | |
| 155 @item | |
| 156 console | |
| 157 @item | |
| 158 database | |
| 159 @item | |
| 160 device | |
| 161 @item | |
| 162 event | |
| 163 @item | |
| 164 extent | |
| 165 @item | |
| 166 face | |
| 167 @item | |
| 168 float | |
| 169 @item | |
| 170 font-instance | |
| 171 @item | |
| 172 frame | |
| 173 @item | |
| 174 glyph | |
| 175 @item | |
| 176 hash-table | |
| 177 @item | |
| 178 image-instance | |
| 179 @item | |
| 180 integer | |
| 181 @item | |
| 182 keymap | |
| 183 @item | |
| 184 marker | |
| 185 @item | |
| 186 process | |
| 187 @item | |
| 188 range-table | |
| 189 @item | |
| 190 specifier | |
| 191 @item | |
| 192 string | |
| 193 @item | |
| 194 subr | |
| 195 @item | |
| 196 subwindow | |
| 197 @item | |
| 198 symbol | |
| 199 @item | |
| 200 toolbar-button | |
| 201 @item | |
| 202 tooltalk-message | |
| 203 @item | |
| 204 tooltalk-pattern | |
| 205 @item | |
| 206 vector | |
| 207 @item | |
| 208 weak-list | |
| 209 @item | |
| 210 window | |
| 211 @item | |
| 212 window-configuration | |
| 213 @item | |
| 214 x-resource | |
| 215 @end itemize | |
| 216 | |
| 217 In addition, the following special types are created internally | |
| 218 but will never be seen by Lisp code. You may encounter them, | |
| 219 however, if you are debugging XEmacs. The printed representation | |
| 220 of these objects begins @samp{#<INTERNAL EMACS BUG}, which indicates | |
| 221 to the Lisp programmer that he has found an internal bug in XEmacs | |
| 222 if he ever encounters any of these objects. | |
| 223 | |
| 224 @itemize @bullet | |
| 225 @item | |
| 226 char-table-entry | |
| 227 @item | |
| 228 command-builder | |
| 229 @item | |
| 230 extent-auxiliary | |
| 231 @item | |
| 232 extent-info | |
| 233 @item | |
| 234 lcrecord-list | |
| 235 @item | |
| 236 lstream | |
| 237 @item | |
| 238 opaque | |
| 239 @item | |
| 240 opaque-list | |
| 241 @item | |
| 242 popup-data | |
| 243 @item | |
| 244 symbol-value-buffer-local | |
| 245 @item | |
| 246 symbol-value-forward | |
| 247 @item | |
| 248 symbol-value-lisp-magic | |
| 249 @item | |
| 250 symbol-value-varalias | |
| 251 @item | |
| 252 toolbar-data | |
| 253 @end itemize | |
| 254 | |
| 255 @node Programming Types | |
| 256 @section Programming Types | |
| 257 @cindex programming types | |
| 258 | |
| 259 There are two general categories of types in XEmacs Lisp: those having | |
| 260 to do with Lisp programming, and those having to do with editing. The | |
| 261 former exist in many Lisp implementations, in one form or another. The | |
| 262 latter are unique to XEmacs Lisp. | |
| 263 | |
| 264 @menu | |
| 265 * Integer Type:: Numbers without fractional parts. | |
| 266 * Floating Point Type:: Numbers with fractional parts and with a large range. | |
| 267 * Character Type:: The representation of letters, numbers and | |
| 268 control characters. | |
| 269 * Symbol Type:: A multi-use object that refers to a function, | |
| 270 variable, or property list, and has a unique identity. | |
| 271 * Sequence Type:: Both lists and arrays are classified as sequences. | |
| 272 * Cons Cell Type:: Cons cells, and lists (which are made from cons cells). | |
| 273 * Array Type:: Arrays include strings and vectors. | |
| 274 * String Type:: An (efficient) array of characters. | |
| 275 * Vector Type:: One-dimensional arrays. | |
| 276 * Bit Vector Type:: An (efficient) array of bits. | |
| 277 * Function Type:: A piece of executable code you can call from elsewhere. | |
| 278 * Macro Type:: A method of expanding an expression into another | |
| 279 expression, more fundamental but less pretty. | |
| 280 * Primitive Function Type:: A function written in C, callable from Lisp. | |
| 281 * Compiled-Function Type:: A function written in Lisp, then compiled. | |
| 282 * Autoload Type:: A type used for automatically loading seldom-used | |
| 283 functions. | |
| 284 * Char Table Type:: A mapping from characters to Lisp objects. | |
| 285 * Hash Table Type:: A fast mapping between Lisp objects. | |
| 286 * Range Table Type:: A mapping from ranges of integers to Lisp objects. | |
| 287 * Weak List Type:: A list with special garbage-collection properties. | |
| 288 @end menu | |
| 289 | |
| 290 @node Integer Type | |
| 291 @subsection Integer Type | |
| 292 | |
|
4885
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
293 In XEmacs Lisp, integers can be fixnums (that is, fixed-precision |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
294 integers) or bignums (arbitrary-precision integers), if compile-time |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
295 configuration supports this. The read syntax for the two types is the |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
296 same, the type chosen depending on the numeric values involved. |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
297 |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
298 The range of values for fixnums in XEmacs Lisp is given by the |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
299 constants @code{most-positive-fixnum} and @code{most-negative-fixnum}. |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
300 On 32-bit machines, these constants reflect 31 value bits, ranging from |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
301 @minus{}1073741824 to 1073741823. |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
302 |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
303 In the absence of @xref{The Bignum Extension}, XEmacs Lisp |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
304 arithmetic functions do not check for overflow; so the code snippet |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
305 @code{(= most-negative-fixnum (1+ most-positive-fixnum))} will give |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
306 @code{t}. However, you @emph{will} get an error if you attempt to read |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
307 an out-of-range number using the Lisp reader. |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
308 |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
309 The main read syntax for integers is a sequence of base ten digits |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
310 with an optional sign at the beginning. (The printed representation |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
311 produced by the Lisp interpreter never has a leading @samp{+}.) |
| 428 | 312 |
| 313 @example | |
| 314 @group | |
| 315 -1 ; @r{The integer -1.} | |
| 316 1 ; @r{The integer 1.} | |
| 317 +1 ; @r{Also the integer 1.} | |
| 318 268435457 ; @r{Causes an error on a 28-bit implementation.} | |
| 319 @end group | |
| 320 @end example | |
| 321 | |
| 322 @xref{Numbers}, for more information. | |
| 323 | |
| 324 @node Floating Point Type | |
| 325 @subsection Floating Point Type | |
| 326 | |
| 327 XEmacs supports floating point numbers. The precise range of floating | |
| 328 point numbers is machine-specific. | |
| 329 | |
| 330 The printed representation for floating point numbers requires either | |
| 331 a decimal point (with at least one digit following), an exponent, or | |
| 332 both. For example, @samp{1500.0}, @samp{15e2}, @samp{15.0e2}, | |
| 333 @samp{1.5e3}, and @samp{.15e4} are five ways of writing a floating point | |
| 334 number whose value is 1500. They are all equivalent. | |
| 335 | |
| 336 @xref{Numbers}, for more information. | |
| 337 | |
| 338 @node Character Type | |
| 339 @subsection Character Type | |
| 340 @cindex @sc{ascii} character codes | |
| 341 @cindex char-int confoundance disease | |
| 342 | |
| 343 In XEmacs version 19, and in all versions of FSF GNU Emacs, a | |
| 344 @dfn{character} in XEmacs Lisp is nothing more than an integer. | |
| 345 This is yet another holdover from XEmacs Lisp's derivation from | |
| 346 vintage-1980 Lisps; modern versions of Lisp consider this equivalence | |
| 347 a bad idea, and have separate character types. In XEmacs version 20, | |
| 348 the modern convention is followed, and characters are their own | |
| 349 primitive types. (This change was necessary in order for @sc{mule}, | |
| 350 i.e. Asian-language, support to be correctly implemented.) | |
| 351 | |
| 352 Even in XEmacs version 20, remnants of the equivalence between | |
| 353 characters and integers still exist; this is termed the @dfn{char-int | |
| 354 confoundance disease}. In particular, many functions such as @code{eq}, | |
| 355 @code{equal}, and @code{memq} have equivalent functions (@code{old-eq}, | |
| 356 @code{old-equal}, @code{old-memq}, etc.) that pretend like characters | |
| 357 are integers are the same. Byte code compiled under any version 19 | |
| 358 Emacs will have all such functions mapped to their @code{old-} equivalents | |
| 359 when the byte code is read into XEmacs 20. This is to preserve | |
| 440 | 360 compatibility---Emacs 19 converts all constant characters to the equivalent |
| 428 | 361 integer during byte-compilation, and thus there is no other way to preserve |
| 362 byte-code compatibility even if the code has specifically been written | |
| 363 with the distinction between characters and integers in mind. | |
| 364 | |
| 365 Every character has an equivalent integer, called the @dfn{character | |
| 366 code}. For example, the character @kbd{A} is represented as the | |
| 367 @w{integer 65}, following the standard @sc{ascii} representation of | |
| 368 characters. If XEmacs was not compiled with @sc{mule} support, the | |
| 440 | 369 range of this integer will always be 0 to 255---eight bits, or one |
| 428 | 370 byte. (Integers outside this range are accepted but silently truncated; |
| 371 however, you should most decidedly @emph{not} rely on this, because it | |
| 372 will not work under XEmacs with @sc{mule} support.) When @sc{mule} | |
| 373 support is present, the range of character codes is much | |
| 374 larger. (Currently, 19 bits are used.) | |
| 375 | |
| 376 FSF GNU Emacs uses kludgy character codes above 255 to represent | |
| 377 keyboard input of @sc{ascii} characters in combination with certain | |
| 378 modifiers. XEmacs does not use this (a more general mechanism is | |
| 379 used that does not distinguish between @sc{ascii} keys and other | |
| 380 keys), so you will never find character codes above 255 in a | |
| 381 non-@sc{mule} XEmacs. | |
| 382 | |
| 383 Individual characters are not often used in programs. It is far more | |
| 384 common to work with @emph{strings}, which are sequences composed of | |
| 385 characters. @xref{String Type}. | |
| 386 | |
| 387 @cindex read syntax for characters | |
| 388 @cindex printed representation for characters | |
| 389 @cindex syntax for characters | |
| 390 | |
| 391 The read syntax for characters begins with a question mark, followed | |
| 392 by the character (if it's printable) or some symbolic representation of | |
| 393 it. In XEmacs 20, where characters are their own type, this is also the | |
| 394 print representation. In XEmacs 19, however, where characters are | |
| 395 really integers, the printed representation of a character is a decimal | |
| 396 number. This is also a possible read syntax for a character, but | |
| 397 writing characters that way in Lisp programs is a very bad idea. You | |
| 398 should @emph{always} use the special read syntax formats that XEmacs Lisp | |
| 399 provides for characters. | |
| 400 | |
| 401 The usual read syntax for alphanumeric characters is a question mark | |
| 402 followed by the character; thus, @samp{?A} for the character | |
| 403 @kbd{A}, @samp{?B} for the character @kbd{B}, and @samp{?a} for the | |
| 404 character @kbd{a}. | |
| 405 | |
| 406 For example: | |
| 407 | |
| 408 @example | |
| 409 ;; @r{Under XEmacs 20:} | |
| 410 ?Q @result{} ?Q ?q @result{} ?q | |
| 411 (char-int ?Q) @result{} 81 | |
| 412 ;; @r{Under XEmacs 19:} | |
| 413 ?Q @result{} 81 ?q @result{} 113 | |
| 414 @end example | |
| 415 | |
| 416 You can use the same syntax for punctuation characters, but it is | |
| 417 often a good idea to add a @samp{\} so that the Emacs commands for | |
| 418 editing Lisp code don't get confused. For example, @samp{?\ } is the | |
| 419 way to write the space character. If the character is @samp{\}, you | |
| 420 @emph{must} use a second @samp{\} to quote it: @samp{?\\}. XEmacs 20 | |
| 421 always prints punctuation characters with a @samp{\} in front of them, | |
| 422 to avoid confusion. | |
| 423 | |
| 424 @cindex whitespace | |
| 425 @cindex bell character | |
| 426 @cindex @samp{\a} | |
| 427 @cindex backspace | |
| 428 @cindex @samp{\b} | |
| 429 @cindex tab | |
| 430 @cindex @samp{\t} | |
| 431 @cindex vertical tab | |
| 432 @cindex @samp{\v} | |
| 433 @cindex formfeed | |
| 434 @cindex @samp{\f} | |
| 435 @cindex newline | |
| 436 @cindex @samp{\n} | |
| 437 @cindex return | |
| 438 @cindex @samp{\r} | |
| 439 @cindex escape | |
| 440 @cindex @samp{\e} | |
| 441 You can express the characters Control-g, backspace, tab, newline, | |
| 442 vertical tab, formfeed, return, and escape as @samp{?\a}, @samp{?\b}, | |
| 443 @samp{?\t}, @samp{?\n}, @samp{?\v}, @samp{?\f}, @samp{?\r}, @samp{?\e}, | |
| 444 respectively. Their character codes are 7, 8, 9, 10, 11, 12, 13, and 27 | |
| 445 in decimal. Thus, | |
| 446 | |
| 447 @example | |
| 448 ;; @r{Under XEmacs 20:} | |
| 449 ?\a @result{} ?\^G ; @r{@kbd{C-g}} | |
| 450 (char-int ?\a) @result{} 7 | |
| 451 ?\b @result{} ?\^H ; @r{backspace, @key{BS}, @kbd{C-h}} | |
| 452 (char-int ?\b) @result{} 8 | |
| 453 ?\t @result{} ?\t ; @r{tab, @key{TAB}, @kbd{C-i}} | |
| 454 (char-int ?\t) @result{} 9 | |
| 455 ?\n @result{} ?\n ; @r{newline, @key{LFD}, @kbd{C-j}} | |
| 456 ?\v @result{} ?\^K ; @r{vertical tab, @kbd{C-k}} | |
| 457 ?\f @result{} ?\^L ; @r{formfeed character, @kbd{C-l}} | |
| 458 ?\r @result{} ?\r ; @r{carriage return, @key{RET}, @kbd{C-m}} | |
| 459 ?\e @result{} ?\^[ ; @r{escape character, @key{ESC}, @kbd{C-[}} | |
| 460 ?\\ @result{} ?\\ ; @r{backslash character, @kbd{\}} | |
| 461 ;; @r{Under XEmacs 19:} | |
| 462 ?\a @result{} 7 ; @r{@kbd{C-g}} | |
| 463 ?\b @result{} 8 ; @r{backspace, @key{BS}, @kbd{C-h}} | |
| 464 ?\t @result{} 9 ; @r{tab, @key{TAB}, @kbd{C-i}} | |
| 465 ?\n @result{} 10 ; @r{newline, @key{LFD}, @kbd{C-j}} | |
| 466 ?\v @result{} 11 ; @r{vertical tab, @kbd{C-k}} | |
| 467 ?\f @result{} 12 ; @r{formfeed character, @kbd{C-l}} | |
| 468 ?\r @result{} 13 ; @r{carriage return, @key{RET}, @kbd{C-m}} | |
| 469 ?\e @result{} 27 ; @r{escape character, @key{ESC}, @kbd{C-[}} | |
| 470 ?\\ @result{} 92 ; @r{backslash character, @kbd{\}} | |
| 471 @end example | |
| 472 | |
| 473 @cindex escape sequence | |
| 474 These sequences which start with backslash are also known as | |
| 475 @dfn{escape sequences}, because backslash plays the role of an escape | |
| 476 character; this usage has nothing to do with the character @key{ESC}. | |
| 477 | |
| 478 @cindex control characters | |
| 479 Control characters may be represented using yet another read syntax. | |
| 480 This consists of a question mark followed by a backslash, caret, and the | |
| 481 corresponding non-control character, in either upper or lower case. For | |
| 482 example, both @samp{?\^I} and @samp{?\^i} are valid read syntax for the | |
| 483 character @kbd{C-i}, the character whose value is 9. | |
| 484 | |
| 485 Instead of the @samp{^}, you can use @samp{C-}; thus, @samp{?\C-i} is | |
| 486 equivalent to @samp{?\^I} and to @samp{?\^i}: | |
| 487 | |
| 488 @example | |
| 489 ;; @r{Under XEmacs 20:} | |
| 490 ?\^I @result{} ?\t ?\C-I @result{} ?\t | |
| 491 (char-int ?\^I) @result{} 9 | |
| 492 ;; @r{Under XEmacs 19:} | |
| 493 ?\^I @result{} 9 ?\C-I @result{} 9 | |
| 494 @end example | |
| 495 | |
| 496 There is also a character read syntax beginning with @samp{\M-}. This | |
| 497 sets the high bit of the character code (same as adding 128 to the | |
| 498 character code). For example, @samp{?\M-A} stands for the character | |
| 499 with character code 193, or 128 plus 65. You should @emph{not} use this | |
| 500 syntax in your programs. It is a holdover of yet another confoundance | |
| 501 disease from earlier Emacsen. (This was used to represent keyboard input | |
| 502 with the @key{META} key set, thus the @samp{M}; however, it conflicts | |
| 503 with the legitimate @sc{iso}-8859-1 interpretation of the character code. | |
| 504 For example, character code 193 is a lowercase @samp{a} with an acute | |
| 505 accent, in @sc{iso}-8859-1.) | |
| 506 | |
| 3367 | 507 @cindex unicode character escape |
| 508 From version 21.5.25 onwards, XEmacs provides a syntax for specifying | |
| 509 characters by their Unicode code points. @samp{?\uABCD} will give you | |
| 510 an XEmacs character that maps to the code point @samp{U+ABCD} in | |
| 511 Unicode-based representations (UTF-8 text files, Unicode-oriented fonts, | |
| 512 etc.) Just as in the C# language, there is a slightly different syntax | |
| 513 for specifying characters with code points above @samp{#xFFFF}; | |
| 514 @samp{\U00ABCDEF} will give you an XEmacs character that maps to the | |
| 515 code point @samp{U+ABCDEF} in Unicode-based representations, if such an | |
| 516 XEmacs character exists. | |
| 517 | |
| 518 Unlike in C#, while this syntax is available for character literals, | |
| 519 and (see later) in strings, it is not available elsewhere in your Lisp | |
| 520 source code. | |
| 521 | |
| 428 | 522 @ignore @c None of this crap applies to XEmacs. |
| 523 For use in strings and buffers, you are limited to the control | |
| 524 characters that exist in @sc{ascii}, but for keyboard input purposes, | |
| 525 you can turn any character into a control character with @samp{C-}. The | |
| 526 character codes for these non-@sc{ascii} control characters include the | |
| 527 @iftex | |
| 528 $2^{26}$ | |
| 529 @end iftex | |
| 530 @ifinfo | |
| 531 2**26 | |
| 532 @end ifinfo | |
| 533 bit as well as the code for the corresponding non-control | |
| 534 character. Ordinary terminals have no way of generating non-@sc{ASCII} | |
| 535 control characters, but you can generate them straightforwardly using an | |
| 536 X terminal. | |
| 537 | |
| 538 For historical reasons, Emacs treats the @key{DEL} character as | |
| 539 the control equivalent of @kbd{?}: | |
| 540 | |
| 541 @example | |
| 542 ?\^? @result{} 127 ?\C-? @result{} 127 | |
| 543 @end example | |
| 544 | |
| 545 @noindent | |
| 546 As a result, it is currently not possible to represent the character | |
| 547 @kbd{Control-?}, which is a meaningful input character under X. It is | |
| 548 not easy to change this as various Lisp files refer to @key{DEL} in this | |
| 549 way. | |
| 550 | |
| 551 For representing control characters to be found in files or strings, | |
| 552 we recommend the @samp{^} syntax; for control characters in keyboard | |
| 553 input, we prefer the @samp{C-} syntax. This does not affect the meaning | |
| 554 of the program, but may guide the understanding of people who read it. | |
| 555 | |
| 556 @cindex meta characters | |
| 557 A @dfn{meta character} is a character typed with the @key{META} | |
| 558 modifier key. The integer that represents such a character has the | |
| 559 @iftex | |
| 560 $2^{27}$ | |
| 561 @end iftex | |
| 562 @ifinfo | |
| 563 2**27 | |
| 564 @end ifinfo | |
| 565 bit set (which on most machines makes it a negative number). We | |
| 566 use high bits for this and other modifiers to make possible a wide range | |
| 567 of basic character codes. | |
| 568 | |
| 569 In a string, the | |
| 570 @iftex | |
| 571 $2^{7}$ | |
| 572 @end iftex | |
| 573 @ifinfo | |
| 574 2**7 | |
| 575 @end ifinfo | |
| 576 bit indicates a meta character, so the meta | |
| 577 characters that can fit in a string have codes in the range from 128 to | |
| 578 255, and are the meta versions of the ordinary @sc{ASCII} characters. | |
| 579 (In Emacs versions 18 and older, this convention was used for characters | |
| 580 outside of strings as well.) | |
| 581 | |
| 582 The read syntax for meta characters uses @samp{\M-}. For example, | |
| 583 @samp{?\M-A} stands for @kbd{M-A}. You can use @samp{\M-} together with | |
| 584 octal character codes (see below), with @samp{\C-}, or with any other | |
| 585 syntax for a character. Thus, you can write @kbd{M-A} as @samp{?\M-A}, | |
| 586 or as @samp{?\M-\101}. Likewise, you can write @kbd{C-M-b} as | |
| 587 @samp{?\M-\C-b}, @samp{?\C-\M-b}, or @samp{?\M-\002}. | |
| 588 | |
| 589 The case of an ordinary letter is indicated by its character code as | |
| 590 part of @sc{ASCII}, but @sc{ASCII} has no way to represent whether a | |
| 591 control character is upper case or lower case. Emacs uses the | |
| 592 @iftex | |
| 593 $2^{25}$ | |
| 594 @end iftex | |
| 595 @ifinfo | |
| 596 2**25 | |
| 597 @end ifinfo | |
| 598 bit to indicate that the shift key was used for typing a control | |
| 599 character. This distinction is possible only when you use X terminals | |
| 600 or other special terminals; ordinary terminals do not indicate the | |
| 601 distinction to the computer in any way. | |
| 602 | |
| 603 @cindex hyper characters | |
| 604 @cindex super characters | |
| 605 @cindex alt characters | |
| 606 The X Window System defines three other modifier bits that can be set | |
| 607 in a character: @dfn{hyper}, @dfn{super} and @dfn{alt}. The syntaxes | |
| 608 for these bits are @samp{\H-}, @samp{\s-} and @samp{\A-}. Thus, | |
| 609 @samp{?\H-\M-\A-x} represents @kbd{Alt-Hyper-Meta-x}. | |
| 610 @iftex | |
| 611 Numerically, the | |
| 612 bit values are $2^{22}$ for alt, $2^{23}$ for super and $2^{24}$ for hyper. | |
| 613 @end iftex | |
| 614 @ifinfo | |
| 615 Numerically, the | |
| 616 bit values are 2**22 for alt, 2**23 for super and 2**24 for hyper. | |
| 617 @end ifinfo | |
| 618 @end ignore | |
| 619 | |
| 620 @cindex @samp{?} in character constant | |
| 621 @cindex question mark in character constant | |
| 622 @cindex @samp{\} in character constant | |
| 623 @cindex backslash in character constant | |
| 624 @cindex octal character code | |
| 1549 | 625 @cindex hexadecimal character code |
| 3367 | 626 |
| 1549 | 627 Finally, there are two read syntaxes involving character codes. |
| 628 It is not possible to represent multibyte or wide characters in this | |
| 629 way; the permissible range of codes is from 0 to 255 (@emph{i.e.}, | |
| 630 @samp{0377} octal or @samp{0xFF} hexadecimal). If you wish to convert | |
| 631 code points to other characters, you must use the @samp{make-char} or | |
| 632 @samp{unicode-to-char} primitives in Mule. (Non-Mule XEmacsen cannot | |
| 633 represent codes out of that range at all, although you can set the font | |
| 634 to a registry other than ISO 8859/1 to get the appearance of a greater | |
| 635 range of characters.) Although these syntaxes can represent any | |
| 636 @sc{ascii} or Latin-1 character, they are preferred only when the | |
| 637 precise integral value is more important than the @sc{ascii} | |
| 638 representation. | |
| 639 | |
| 640 The first consists of a question mark | |
| 428 | 641 followed by a backslash and the character code in octal (up to three |
| 642 octal digits); thus, @samp{?\101} for the character @kbd{A}, | |
| 643 @samp{?\001} for the character @kbd{C-a}, and @code{?\002} for the | |
|
4486
f9104f0e9b91
Document the error on over-long hex character constants.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4472
diff
changeset
|
644 character @kbd{C-b}. The reader will finalize the character and start |
|
f9104f0e9b91
Document the error on over-long hex character constants.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4472
diff
changeset
|
645 reading the next token when a non-octal-digit is encountered or three |
|
f9104f0e9b91
Document the error on over-long hex character constants.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4472
diff
changeset
|
646 octal digits are read. |
| 1549 | 647 |
| 648 The second consists of a question mark followed by a backslash, the | |
| 649 character @samp{x}, and the character code in hexadecimal (up to two | |
| 650 hexadecimal digits); thus, @samp{?\x41} for the character @kbd{A}, | |
| 651 @samp{?\x1} for the character @kbd{C-a}, and @code{?\x2} for the | |
|
4486
f9104f0e9b91
Document the error on over-long hex character constants.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4472
diff
changeset
|
652 character @kbd{C-b}. If more than two hexadecimal codes are given, the |
|
f9104f0e9b91
Document the error on over-long hex character constants.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4472
diff
changeset
|
653 reader signals an error. |
| 428 | 654 |
| 655 @example | |
| 656 @group | |
| 657 ;; @r{Under XEmacs 20:} | |
| 658 ?\012 @result{} ?\n ?\n @result{} ?\n ?\C-j @result{} ?\n | |
| 1549 | 659 ?\101 @result{} ?A ?A @result{} ?A ?\x0A @result{} ?\n |
| 660 ?\x41 @result{} ?A '(?\xAZ) @result{} '(?\n Z) '(?\0123) @result{} (?\n 3) | |
| 428 | 661 @end group |
| 662 @group | |
| 663 ;; @r{Under XEmacs 19:} | |
| 664 ?\012 @result{} 10 ?\n @result{} 10 ?\C-j @result{} 10 | |
| 665 ?\101 @result{} 65 ?A @result{} 65 | |
| 1549 | 666 ;; ?\x41 @r{is a syntax error.} |
| 428 | 667 @end group |
| 668 @end example | |
| 669 | |
| 670 A backslash is allowed, and harmless, preceding any character without | |
| 671 a special escape meaning; thus, @samp{?\+} is equivalent to @samp{?+}. | |
| 672 There is no reason to add a backslash before most characters. However, | |
| 673 you should add a backslash before any of the characters | |
| 674 @samp{()\|;'`"#.,} to avoid confusing the Emacs commands for editing | |
| 675 Lisp code. Also add a backslash before whitespace characters such as | |
| 676 space, tab, newline and formfeed. However, it is cleaner to use one of | |
| 677 the easily readable escape sequences, such as @samp{\t}, instead of an | |
| 678 actual whitespace character such as a tab. | |
| 679 | |
| 680 @node Symbol Type | |
| 681 @subsection Symbol Type | |
| 682 | |
| 683 A @dfn{symbol} in XEmacs Lisp is an object with a name. The symbol | |
| 684 name serves as the printed representation of the symbol. In ordinary | |
| 685 use, the name is unique---no two symbols have the same name. | |
| 686 | |
| 687 A symbol can serve as a variable, as a function name, or to hold a | |
| 688 property list. Or it may serve only to be distinct from all other Lisp | |
| 689 objects, so that its presence in a data structure may be recognized | |
| 690 reliably. In a given context, usually only one of these uses is | |
| 691 intended. But you can use one symbol in all of these ways, | |
| 692 independently. | |
| 693 | |
| 694 @cindex @samp{\} in symbols | |
| 695 @cindex backslash in symbols | |
| 696 A symbol name can contain any characters whatever. Most symbol names | |
| 697 are written with letters, digits, and the punctuation characters | |
| 698 @samp{-+=*/}. Such names require no special punctuation; the characters | |
| 699 of the name suffice as long as the name does not look like a number. | |
| 700 (If it does, write a @samp{\} at the beginning of the name to force | |
| 701 interpretation as a symbol.) The characters @samp{_~!@@$%^&:<>@{@}} are | |
| 702 less often used but also require no special punctuation. Any other | |
| 703 characters may be included in a symbol's name by escaping them with a | |
| 704 backslash. In contrast to its use in strings, however, a backslash in | |
| 705 the name of a symbol simply quotes the single character that follows the | |
| 706 backslash. For example, in a string, @samp{\t} represents a tab | |
| 707 character; in the name of a symbol, however, @samp{\t} merely quotes the | |
| 708 letter @kbd{t}. To have a symbol with a tab character in its name, you | |
| 709 must actually use a tab (preceded with a backslash). But it's rare to | |
| 710 do such a thing. | |
| 711 | |
| 712 @cindex CL note---case of letters | |
| 713 @quotation | |
| 714 @b{Common Lisp note:} In Common Lisp, lower case letters are always | |
| 715 ``folded'' to upper case, unless they are explicitly escaped. In Emacs | |
| 716 Lisp, upper case and lower case letters are distinct. | |
| 717 @end quotation | |
| 718 | |
| 719 Here are several examples of symbol names. Note that the @samp{+} in | |
| 720 the fifth example is escaped to prevent it from being read as a number. | |
| 721 This is not necessary in the sixth example because the rest of the name | |
| 722 makes it invalid as a number. | |
| 723 | |
| 724 @example | |
| 725 @group | |
| 726 foo ; @r{A symbol named @samp{foo}.} | |
| 727 FOO ; @r{A symbol named @samp{FOO}, different from @samp{foo}.} | |
| 728 char-to-string ; @r{A symbol named @samp{char-to-string}.} | |
| 729 @end group | |
| 730 @group | |
| 731 1+ ; @r{A symbol named @samp{1+}} | |
| 732 ; @r{(not @samp{+1}, which is an integer).} | |
| 733 @end group | |
| 734 @group | |
| 735 \+1 ; @r{A symbol named @samp{+1}} | |
| 736 ; @r{(not a very readable name).} | |
| 737 @end group | |
| 738 @group | |
| 739 \(*\ 1\ 2\) ; @r{A symbol named @samp{(* 1 2)} (a worse name).} | |
| 740 @c the @'s in this next line use up three characters, hence the | |
| 741 @c apparent misalignment of the comment. | |
| 742 +-*/_~!@@$%^&=:<>@{@} ; @r{A symbol named @samp{+-*/_~!@@$%^&=:<>@{@}}.} | |
| 743 ; @r{These characters need not be escaped.} | |
| 744 @end group | |
| 745 @end example | |
| 746 | |
| 747 @node Sequence Type | |
| 748 @subsection Sequence Types | |
| 749 | |
| 750 A @dfn{sequence} is a Lisp object that represents an ordered set of | |
| 751 elements. There are two kinds of sequence in XEmacs Lisp, lists and | |
| 752 arrays. Thus, an object of type list or of type array is also | |
| 753 considered a sequence. | |
| 754 | |
| 755 Arrays are further subdivided into strings, vectors, and bit vectors. | |
| 756 Vectors can hold elements of any type, but string elements must be | |
| 757 characters, and bit vector elements must be either 0 or 1. However, the | |
| 758 characters in a string can have extents (@pxref{Extents}) and text | |
| 759 properties (@pxref{Text Properties}) like characters in a buffer; | |
| 760 vectors do not support extents or text properties even when their | |
| 761 elements happen to be characters. | |
| 762 | |
| 763 Lists, strings, vectors, and bit vectors are different, but they have | |
| 764 important similarities. For example, all have a length @var{l}, and all | |
| 765 have elements which can be indexed from zero to @var{l} minus one. | |
| 766 Also, several functions, called sequence functions, accept any kind of | |
| 767 sequence. For example, the function @code{elt} can be used to extract | |
| 768 an element of a sequence, given its index. @xref{Sequences Arrays | |
| 769 Vectors}. | |
| 770 | |
| 771 It is impossible to read the same sequence twice, since sequences are | |
| 772 always created anew upon reading. If you read the read syntax for a | |
| 773 sequence twice, you get two sequences with equal contents. There is one | |
| 774 exception: the empty list @code{()} always stands for the same object, | |
| 775 @code{nil}. | |
| 776 | |
| 777 @node Cons Cell Type | |
| 778 @subsection Cons Cell and List Types | |
| 779 @cindex address field of register | |
| 780 @cindex decrement field of register | |
| 781 | |
| 782 A @dfn{cons cell} is an object comprising two pointers named the | |
| 783 @sc{car} and the @sc{cdr}. Each of them can point to any Lisp object. | |
| 784 | |
| 785 A @dfn{list} is a series of cons cells, linked together so that the | |
| 786 @sc{cdr} of each cons cell points either to another cons cell or to the | |
| 787 empty list. @xref{Lists}, for functions that work on lists. Because | |
| 788 most cons cells are used as part of lists, the phrase @dfn{list | |
| 789 structure} has come to refer to any structure made out of cons cells. | |
| 790 | |
| 791 The names @sc{car} and @sc{cdr} have only historical meaning now. The | |
| 792 original Lisp implementation ran on an @w{IBM 704} computer which | |
| 793 divided words into two parts, called the ``address'' part and the | |
| 794 ``decrement''; @sc{car} was an instruction to extract the contents of | |
| 795 the address part of a register, and @sc{cdr} an instruction to extract | |
| 796 the contents of the decrement. By contrast, ``cons cells'' are named | |
| 797 for the function @code{cons} that creates them, which in turn is named | |
| 798 for its purpose, the construction of cells. | |
| 799 | |
| 800 @cindex atom | |
| 801 Because cons cells are so central to Lisp, we also have a word for | |
| 802 ``an object which is not a cons cell''. These objects are called | |
| 803 @dfn{atoms}. | |
| 804 | |
| 805 @cindex parenthesis | |
| 806 The read syntax and printed representation for lists are identical, and | |
| 807 consist of a left parenthesis, an arbitrary number of elements, and a | |
| 808 right parenthesis. | |
| 809 | |
| 810 Upon reading, each object inside the parentheses becomes an element | |
| 811 of the list. That is, a cons cell is made for each element. The | |
| 812 @sc{car} of the cons cell points to the element, and its @sc{cdr} points | |
| 813 to the next cons cell of the list, which holds the next element in the | |
| 814 list. The @sc{cdr} of the last cons cell is set to point to @code{nil}. | |
| 815 | |
| 816 @cindex box diagrams, for lists | |
| 817 @cindex diagrams, boxed, for lists | |
| 818 A list can be illustrated by a diagram in which the cons cells are | |
| 819 shown as pairs of boxes. (The Lisp reader cannot read such an | |
| 820 illustration; unlike the textual notation, which can be understood by | |
| 821 both humans and computers, the box illustrations can be understood only | |
| 822 by humans.) The following represents the three-element list @code{(rose | |
| 823 violet buttercup)}: | |
| 824 | |
| 825 @example | |
| 826 @group | |
| 827 ___ ___ ___ ___ ___ ___ | |
| 828 |___|___|--> |___|___|--> |___|___|--> nil | |
| 829 | | | | |
| 830 | | | | |
| 831 --> rose --> violet --> buttercup | |
| 832 @end group | |
| 833 @end example | |
| 834 | |
| 835 In this diagram, each box represents a slot that can refer to any Lisp | |
| 836 object. Each pair of boxes represents a cons cell. Each arrow is a | |
| 837 reference to a Lisp object, either an atom or another cons cell. | |
| 838 | |
| 839 In this example, the first box, the @sc{car} of the first cons cell, | |
| 840 refers to or ``contains'' @code{rose} (a symbol). The second box, the | |
| 841 @sc{cdr} of the first cons cell, refers to the next pair of boxes, the | |
| 842 second cons cell. The @sc{car} of the second cons cell refers to | |
| 843 @code{violet} and the @sc{cdr} refers to the third cons cell. The | |
| 844 @sc{cdr} of the third (and last) cons cell refers to @code{nil}. | |
| 845 | |
| 846 Here is another diagram of the same list, @code{(rose violet | |
| 847 buttercup)}, sketched in a different manner: | |
| 848 | |
| 849 @smallexample | |
| 850 @group | |
| 851 --------------- ---------------- ------------------- | |
| 852 | car | cdr | | car | cdr | | car | cdr | | |
| 853 | rose | o-------->| violet | o-------->| buttercup | nil | | |
| 854 | | | | | | | | | | |
| 855 --------------- ---------------- ------------------- | |
| 856 @end group | |
| 857 @end smallexample | |
| 858 | |
| 859 @cindex @samp{(@dots{})} in lists | |
| 860 @cindex @code{nil} in lists | |
| 861 @cindex empty list | |
| 862 A list with no elements in it is the @dfn{empty list}; it is identical | |
| 863 to the symbol @code{nil}. In other words, @code{nil} is both a symbol | |
| 864 and a list. | |
| 865 | |
| 866 Here are examples of lists written in Lisp syntax: | |
| 867 | |
| 868 @example | |
| 869 (A 2 "A") ; @r{A list of three elements.} | |
| 870 () ; @r{A list of no elements (the empty list).} | |
| 871 nil ; @r{A list of no elements (the empty list).} | |
| 872 ("A ()") ; @r{A list of one element: the string @code{"A ()"}.} | |
| 873 (A ()) ; @r{A list of two elements: @code{A} and the empty list.} | |
| 874 (A nil) ; @r{Equivalent to the previous.} | |
| 875 ((A B C)) ; @r{A list of one element} | |
| 876 ; @r{(which is a list of three elements).} | |
| 877 @end example | |
| 878 | |
| 879 Here is the list @code{(A ())}, or equivalently @code{(A nil)}, | |
| 880 depicted with boxes and arrows: | |
| 881 | |
| 882 @example | |
| 883 @group | |
| 884 ___ ___ ___ ___ | |
| 885 |___|___|--> |___|___|--> nil | |
| 886 | | | |
| 887 | | | |
| 888 --> A --> nil | |
| 889 @end group | |
| 890 @end example | |
| 891 | |
| 892 @menu | |
| 893 * Dotted Pair Notation:: An alternative syntax for lists. | |
| 894 * Association List Type:: A specially constructed list. | |
| 895 @end menu | |
| 896 | |
| 897 @node Dotted Pair Notation | |
| 898 @subsubsection Dotted Pair Notation | |
| 899 @cindex dotted pair notation | |
| 900 @cindex @samp{.} in lists | |
| 901 | |
| 902 @dfn{Dotted pair notation} is an alternative syntax for cons cells | |
| 903 that represents the @sc{car} and @sc{cdr} explicitly. In this syntax, | |
| 904 @code{(@var{a} .@: @var{b})} stands for a cons cell whose @sc{car} is | |
| 905 the object @var{a}, and whose @sc{cdr} is the object @var{b}. Dotted | |
| 906 pair notation is therefore more general than list syntax. In the dotted | |
| 907 pair notation, the list @samp{(1 2 3)} is written as @samp{(1 . (2 . (3 | |
| 908 . nil)))}. For @code{nil}-terminated lists, the two notations produce | |
| 909 the same result, but list notation is usually clearer and more | |
| 910 convenient when it is applicable. When printing a list, the dotted pair | |
| 911 notation is only used if the @sc{cdr} of a cell is not a list. | |
| 912 | |
| 913 Here's how box notation can illustrate dotted pairs. This example | |
| 914 shows the pair @code{(rose . violet)}: | |
| 915 | |
| 916 @example | |
| 917 @group | |
| 918 ___ ___ | |
| 919 |___|___|--> violet | |
| 920 | | |
| 921 | | |
| 922 --> rose | |
| 923 @end group | |
| 924 @end example | |
| 925 | |
| 926 Dotted pair notation can be combined with list notation to represent a | |
| 927 chain of cons cells with a non-@code{nil} final @sc{cdr}. For example, | |
| 928 @code{(rose violet . buttercup)} is equivalent to @code{(rose . (violet | |
| 929 . buttercup))}. The object looks like this: | |
| 930 | |
| 931 @example | |
| 932 @group | |
| 933 ___ ___ ___ ___ | |
| 934 |___|___|--> |___|___|--> buttercup | |
| 935 | | | |
| 936 | | | |
| 937 --> rose --> violet | |
| 938 @end group | |
| 939 @end example | |
| 940 | |
| 941 These diagrams make it evident why @w{@code{(rose .@: violet .@: | |
| 942 buttercup)}} is invalid syntax; it would require a cons cell that has | |
| 943 three parts rather than two. | |
| 944 | |
| 945 The list @code{(rose violet)} is equivalent to @code{(rose . (violet))} | |
| 946 and looks like this: | |
| 947 | |
| 948 @example | |
| 949 @group | |
| 950 ___ ___ ___ ___ | |
| 951 |___|___|--> |___|___|--> nil | |
| 952 | | | |
| 953 | | | |
| 954 --> rose --> violet | |
| 955 @end group | |
| 956 @end example | |
| 957 | |
| 958 Similarly, the three-element list @code{(rose violet buttercup)} | |
| 959 is equivalent to @code{(rose . (violet . (buttercup)))}. | |
| 960 @ifinfo | |
| 961 It looks like this: | |
| 962 | |
| 963 @example | |
| 964 @group | |
| 965 ___ ___ ___ ___ ___ ___ | |
| 966 |___|___|--> |___|___|--> |___|___|--> nil | |
| 967 | | | | |
| 968 | | | | |
| 969 --> rose --> violet --> buttercup | |
| 970 @end group | |
| 971 @end example | |
| 972 @end ifinfo | |
| 973 | |
| 974 @node Association List Type | |
| 975 @subsubsection Association List Type | |
| 976 | |
| 977 An @dfn{association list} or @dfn{alist} is a specially-constructed | |
| 978 list whose elements are cons cells. In each element, the @sc{car} is | |
| 979 considered a @dfn{key}, and the @sc{cdr} is considered an | |
| 980 @dfn{associated value}. (In some cases, the associated value is stored | |
| 981 in the @sc{car} of the @sc{cdr}.) Association lists are often used as | |
| 982 stacks, since it is easy to add or remove associations at the front of | |
| 983 the list. | |
| 984 | |
| 985 For example, | |
| 986 | |
| 987 @example | |
| 988 (setq alist-of-colors | |
| 989 '((rose . red) (lily . white) (buttercup . yellow))) | |
| 990 @end example | |
| 991 | |
| 992 @noindent | |
| 993 sets the variable @code{alist-of-colors} to an alist of three elements. In the | |
| 994 first element, @code{rose} is the key and @code{red} is the value. | |
| 995 | |
| 996 @xref{Association Lists}, for a further explanation of alists and for | |
| 997 functions that work on alists. | |
| 998 | |
| 999 @node Array Type | |
| 1000 @subsection Array Type | |
| 1001 | |
| 1002 An @dfn{array} is composed of an arbitrary number of slots for | |
| 1003 referring to other Lisp objects, arranged in a contiguous block of | |
| 1004 memory. Accessing any element of an array takes the same amount of | |
| 1005 time. In contrast, accessing an element of a list requires time | |
| 1006 proportional to the position of the element in the list. (Elements at | |
| 1007 the end of a list take longer to access than elements at the beginning | |
| 1008 of a list.) | |
| 1009 | |
| 1010 XEmacs defines three types of array, strings, vectors, and bit | |
| 1011 vectors. A string is an array of characters, a vector is an array of | |
| 1012 arbitrary objects, and a bit vector is an array of 1's and 0's. All are | |
| 1013 one-dimensional. (Most other programming languages support | |
| 1014 multidimensional arrays, but they are not essential; you can get the | |
| 1015 same effect with an array of arrays.) Each type of array has its own | |
| 1016 read syntax; see @ref{String Type}, @ref{Vector Type}, and @ref{Bit | |
| 1017 Vector Type}. | |
| 1018 | |
|
4885
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
1019 An array may have any length up to the largest fixnum; but once |
| 428 | 1020 created, it has a fixed size. The first element of an array has index |
| 1021 zero, the second element has index 1, and so on. This is called | |
| 1022 @dfn{zero-origin} indexing. For example, an array of four elements has | |
| 1023 indices 0, 1, 2, @w{and 3}. | |
| 1024 | |
| 1025 The array type is contained in the sequence type and contains the | |
| 1026 string type, the vector type, and the bit vector type. | |
| 1027 | |
| 1028 @node String Type | |
| 1029 @subsection String Type | |
| 1030 | |
| 1031 A @dfn{string} is an array of characters. Strings are used for many | |
| 1032 purposes in XEmacs, as can be expected in a text editor; for example, as | |
| 1033 the names of Lisp symbols, as messages for the user, and to represent | |
| 1034 text extracted from buffers. Strings in Lisp are constants: evaluation | |
| 1035 of a string returns the same string. | |
| 1036 | |
| 1037 @cindex @samp{"} in strings | |
| 1038 @cindex double-quote in strings | |
| 1039 @cindex @samp{\} in strings | |
| 1040 @cindex backslash in strings | |
| 1041 The read syntax for strings is a double-quote, an arbitrary number of | |
| 1042 characters, and another double-quote, @code{"like this"}. The Lisp | |
| 1043 reader accepts the same formats for reading the characters of a string | |
| 1044 as it does for reading single characters (without the question mark that | |
| 1045 begins a character literal). You can enter a nonprinting character such | |
| 1046 as tab or @kbd{C-a} using the convenient escape sequences, like this: | |
| 1047 @code{"\t, \C-a"}. You can include a double-quote in a string by | |
| 1048 preceding it with a backslash; thus, @code{"\""} is a string containing | |
| 1049 just a single double-quote character. (@xref{Character Type}, for a | |
| 1050 description of the read syntax for characters.) | |
| 1051 | |
| 1052 @ignore @c More ill-conceived FSF Emacs crap. | |
| 1053 If you use the @samp{\M-} syntax to indicate a meta character in a | |
| 1054 string constant, this sets the | |
| 1055 @iftex | |
| 1056 $2^{7}$ | |
| 1057 @end iftex | |
| 1058 @ifinfo | |
| 1059 2**7 | |
| 1060 @end ifinfo | |
| 1061 bit of the character in the string. | |
| 1062 This is not the same representation that the meta modifier has in a | |
| 1063 character on its own (not inside a string). @xref{Character Type}. | |
| 1064 | |
| 1065 Strings cannot hold characters that have the hyper, super, or alt | |
| 1066 modifiers; they can hold @sc{ASCII} control characters, but no others. | |
| 1067 They do not distinguish case in @sc{ASCII} control characters. | |
| 1068 @end ignore | |
| 1069 | |
| 1070 The printed representation of a string consists of a double-quote, the | |
| 1071 characters it contains, and another double-quote. However, you must | |
| 1072 escape any backslash or double-quote characters in the string with a | |
| 1073 backslash, like this: @code{"this \" is an embedded quote"}. | |
| 1074 | |
| 3543 | 1075 An alternative syntax allows insertion of raw backslashes into a |
| 1076 string, like this: @code{#r"this \ is an embedded backslash"}. In such | |
| 1077 a string, each character following a backslash is included literally in | |
| 1078 the string, and all backslashes are left in the string. This means that | |
| 1079 @code{#r"\""} is a valid string literal with two characters, a backslash and a | |
| 4265 | 1080 double-quote. It also means that a string with this syntax cannot end |
| 1081 in a single backslash. As with Python, from where this syntax was | |
| 3543 | 1082 taken, you can specify @code{u} or @code{U} after the @code{#r} to |
| 4265 | 1083 specify that interpretation of Unicode escapes should be |
| 1084 done---@pxref{Character Type}---and if you use @code{#ru} for your raw | |
| 1085 strings, the restriction on the trailing backslash can be worked around | |
| 1086 like so: @code{#ru"Backslash: \u005C"}. | |
| 3543 | 1087 |
| 428 | 1088 The newline character is not special in the read syntax for strings; |
| 1089 if you write a new line between the double-quotes, it becomes a | |
| 1090 character in the string. But an escaped newline---one that is preceded | |
| 1091 by @samp{\}---does not become part of the string; i.e., the Lisp reader | |
| 1092 ignores an escaped newline while reading a string. | |
| 1093 @cindex newline in strings | |
| 1094 | |
| 1095 @example | |
| 1096 "It is useful to include newlines | |
| 1097 in documentation strings, | |
| 1098 but the newline is \ | |
| 1099 ignored if escaped." | |
| 1100 @result{} "It is useful to include newlines | |
| 1101 in documentation strings, | |
| 1102 but the newline is ignored if escaped." | |
| 1103 @end example | |
| 1104 | |
| 1105 A string can hold extents and properties of the text it contains, in | |
| 1106 addition to the characters themselves. This enables programs that copy | |
| 1107 text between strings and buffers to preserve the extents and properties | |
| 1108 with no special effort. @xref{Extents}, @xref{Text Properties}. | |
| 1109 | |
| 1110 Note that FSF GNU Emacs has a special read and print syntax for | |
| 1111 strings with text properties, but XEmacs does not currently implement | |
| 1112 this. It was judged better not to include this in XEmacs because it | |
| 1113 entails that @code{equal} return @code{nil} when passed a string with | |
| 1114 text properties and the equivalent string without text properties, which | |
| 1115 is often counter-intuitive. | |
| 1116 | |
| 1117 @ignore @c Not in XEmacs | |
| 1118 Strings with text | |
| 1119 properties have a special read and print syntax: | |
| 1120 | |
| 1121 @example | |
| 1122 #("@var{characters}" @var{property-data}...) | |
| 1123 @end example | |
| 1124 | |
| 1125 @noindent | |
| 1126 where @var{property-data} consists of zero or more elements, in groups | |
| 1127 of three as follows: | |
| 1128 | |
| 1129 @example | |
| 444 | 1130 @var{start} @var{end} @var{plist} |
| 428 | 1131 @end example |
| 1132 | |
| 1133 @noindent | |
| 444 | 1134 The elements @var{start} and @var{end} are integers, and together specify |
| 428 | 1135 a range of indices in the string; @var{plist} is the property list for |
| 1136 that range. | |
| 1137 @end ignore | |
| 1138 | |
| 1139 @xref{Strings and Characters}, for functions that work on strings. | |
| 1140 | |
| 1141 @node Vector Type | |
| 1142 @subsection Vector Type | |
| 1143 | |
| 1144 A @dfn{vector} is a one-dimensional array of elements of any type. It | |
| 1145 takes a constant amount of time to access any element of a vector. (In | |
| 1146 a list, the access time of an element is proportional to the distance of | |
| 1147 the element from the beginning of the list.) | |
| 1148 | |
| 1149 The printed representation of a vector consists of a left square | |
| 1150 bracket, the elements, and a right square bracket. This is also the | |
| 1151 read syntax. Like numbers and strings, vectors are considered constants | |
| 1152 for evaluation. | |
| 1153 | |
| 1154 @example | |
| 1155 [1 "two" (three)] ; @r{A vector of three elements.} | |
| 1156 @result{} [1 "two" (three)] | |
| 1157 @end example | |
| 1158 | |
| 1159 @xref{Vectors}, for functions that work with vectors. | |
| 1160 | |
| 1161 @node Bit Vector Type | |
| 1162 @subsection Bit Vector Type | |
| 1163 | |
| 1164 A @dfn{bit vector} is a one-dimensional array of 1's and 0's. It | |
| 1165 takes a constant amount of time to access any element of a bit vector, | |
| 1166 as for vectors. Bit vectors have an extremely compact internal | |
| 1167 representation (one machine bit per element), which makes them ideal | |
| 1168 for keeping track of unordered sets, large collections of boolean values, | |
| 1169 etc. | |
| 1170 | |
| 1171 The printed representation of a bit vector consists of @samp{#*} | |
| 1172 followed by the bits in the vector. This is also the read syntax. Like | |
| 1173 numbers, strings, and vectors, bit vectors are considered constants for | |
| 1174 evaluation. | |
| 1175 | |
| 1176 @example | |
| 1177 #*00101000 ; @r{A bit vector of eight elements.} | |
| 1178 @result{} #*00101000 | |
| 1179 @end example | |
| 1180 | |
| 1181 @xref{Bit Vectors}, for functions that work with bit vectors. | |
| 1182 | |
| 1183 @node Function Type | |
| 1184 @subsection Function Type | |
| 1185 | |
| 1186 Just as functions in other programming languages are executable, | |
| 1187 @dfn{Lisp function} objects are pieces of executable code. However, | |
| 1188 functions in Lisp are primarily Lisp objects, and only secondarily the | |
| 1189 text which represents them. These Lisp objects are lambda expressions: | |
| 1190 lists whose first element is the symbol @code{lambda} (@pxref{Lambda | |
| 1191 Expressions}). | |
| 1192 | |
| 1193 In most programming languages, it is impossible to have a function | |
| 1194 without a name. In Lisp, a function has no intrinsic name. A lambda | |
| 1195 expression is also called an @dfn{anonymous function} (@pxref{Anonymous | |
| 1196 Functions}). A named function in Lisp is actually a symbol with a valid | |
| 1197 function in its function cell (@pxref{Defining Functions}). | |
| 1198 | |
| 1199 Most of the time, functions are called when their names are written in | |
| 1200 Lisp expressions in Lisp programs. However, you can construct or obtain | |
| 1201 a function object at run time and then call it with the primitive | |
| 1202 functions @code{funcall} and @code{apply}. @xref{Calling Functions}. | |
| 1203 | |
| 1204 @node Macro Type | |
| 1205 @subsection Macro Type | |
| 1206 | |
| 1207 A @dfn{Lisp macro} is a user-defined construct that extends the Lisp | |
| 1208 language. It is represented as an object much like a function, but with | |
| 1209 different parameter-passing semantics. A Lisp macro has the form of a | |
| 1210 list whose first element is the symbol @code{macro} and whose @sc{cdr} | |
| 1211 is a Lisp function object, including the @code{lambda} symbol. | |
| 1212 | |
| 1213 Lisp macro objects are usually defined with the built-in | |
| 1214 @code{defmacro} function, but any list that begins with @code{macro} is | |
| 1215 a macro as far as XEmacs is concerned. @xref{Macros}, for an explanation | |
| 1216 of how to write a macro. | |
| 1217 | |
| 1218 @node Primitive Function Type | |
| 1219 @subsection Primitive Function Type | |
| 1220 @cindex special forms | |
| 1221 | |
| 1222 A @dfn{primitive function} is a function callable from Lisp but | |
| 1223 written in the C programming language. Primitive functions are also | |
| 1224 called @dfn{subrs} or @dfn{built-in functions}. (The word ``subr'' is | |
| 1225 derived from ``subroutine''.) Most primitive functions evaluate all | |
| 1226 their arguments when they are called. A primitive function that does | |
| 1227 not evaluate all its arguments is called a @dfn{special form} | |
| 1228 (@pxref{Special Forms}).@refill | |
| 1229 | |
| 1230 It does not matter to the caller of a function whether the function is | |
| 1231 primitive. However, this does matter if you try to substitute a | |
| 1232 function written in Lisp for a primitive of the same name. The reason | |
| 1233 is that the primitive function may be called directly from C code. | |
| 1234 Calls to the redefined function from Lisp will use the new definition, | |
| 1235 but calls from C code may still use the built-in definition. | |
| 1236 | |
| 1237 The term @dfn{function} refers to all Emacs functions, whether written | |
| 1238 in Lisp or C. @xref{Function Type}, for information about the | |
| 1239 functions written in Lisp. | |
| 1240 | |
| 1241 Primitive functions have no read syntax and print in hash notation | |
| 1242 with the name of the subroutine. | |
| 1243 | |
| 1244 @example | |
| 1245 @group | |
| 1246 (symbol-function 'car) ; @r{Access the function cell} | |
| 1247 ; @r{of the symbol.} | |
| 1248 @result{} #<subr car> | |
| 1249 (subrp (symbol-function 'car)) ; @r{Is this a primitive function?} | |
| 1250 @result{} t ; @r{Yes.} | |
| 1251 @end group | |
| 1252 @end example | |
| 1253 | |
| 1254 @node Compiled-Function Type | |
| 1255 @subsection Compiled-Function Type | |
| 1256 | |
| 1257 The byte compiler produces @dfn{compiled-function objects}. The | |
| 1258 evaluator handles this data type specially when it appears as a function | |
| 1259 to be called. @xref{Byte Compilation}, for information about the byte | |
| 1260 compiler. | |
| 1261 | |
| 1262 The printed representation for a compiled-function object is normally | |
| 1263 @samp{#<compiled-function...>}. If @code{print-readably} is true, | |
| 1264 however, it is @samp{#[...]}. | |
| 1265 | |
| 1266 @node Autoload Type | |
| 1267 @subsection Autoload Type | |
| 1268 | |
| 1269 An @dfn{autoload object} is a list whose first element is the symbol | |
| 1270 @code{autoload}. It is stored as the function definition of a symbol as | |
| 1271 a placeholder for the real definition; it says that the real definition | |
| 1272 is found in a file of Lisp code that should be loaded when necessary. | |
| 1273 The autoload object contains the name of the file, plus some other | |
| 1274 information about the real definition. | |
| 1275 | |
| 1276 After the file has been loaded, the symbol should have a new function | |
| 1277 definition that is not an autoload object. The new definition is then | |
| 1278 called as if it had been there to begin with. From the user's point of | |
| 1279 view, the function call works as expected, using the function definition | |
| 1280 in the loaded file. | |
| 1281 | |
| 1282 An autoload object is usually created with the function | |
| 1283 @code{autoload}, which stores the object in the function cell of a | |
| 1284 symbol. @xref{Autoload}, for more details. | |
| 1285 | |
| 1286 @node Char Table Type | |
| 1287 @subsection Char Table Type | |
| 1288 @cindex char table type | |
| 1289 | |
| 1290 (not yet documented) | |
| 1291 | |
| 1292 @node Hash Table Type | |
| 1293 @subsection Hash Table Type | |
| 1294 @cindex hash table type | |
| 1295 | |
| 1296 A @dfn{hash table} is a table providing an arbitrary mapping from | |
| 1297 one Lisp object to another, using an internal indexing method | |
| 1298 called @dfn{hashing}. Hash tables are very fast (much more efficient | |
| 1299 that using an association list, when there are a large number of | |
| 1300 elements in the table). | |
| 1301 | |
| 1302 Hash tables have a special read syntax beginning with | |
| 1303 @samp{#s(hash-table} (this is an example of @dfn{structure} read | |
| 1304 syntax. This notation is also used for printing when | |
| 1305 @code{print-readably} is @code{t}. | |
| 1306 | |
| 1307 Otherwise they print in hash notation (The ``hash'' in ``hash notation'' | |
| 1308 has nothing to do with the ``hash'' in ``hash table''), giving the | |
| 1309 number of elements, total space allocated for elements, and a unique | |
| 1310 number assigned at the time the hash table was created. (Hash tables | |
| 1311 automatically resize as necessary so there is no danger of running out | |
| 1312 of space for elements.) | |
| 1313 | |
| 1314 @example | |
| 1315 @group | |
| 1316 (make-hash-table :size 50) | |
|
4820
e6dec75ded0e
Use keywords, not ordinary symbols, in the structure syntax for hash tables.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4792
diff
changeset
|
1317 @result{} #<hash-table :size 0/107 0x3babb0e4> |
| 428 | 1318 @end group |
| 1319 @end example | |
| 1320 | |
| 1321 @xref{Hash Tables}, for information on how to create and work with hash | |
| 1322 tables. | |
| 1323 | |
| 1324 @node Range Table Type | |
| 1325 @subsection Range Table Type | |
| 1326 @cindex range table type | |
| 1327 | |
|
4885
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
1328 A @dfn{range table} is a table that maps from ranges of fixnums to |
| 428 | 1329 arbitrary Lisp objects. Range tables automatically combine overlapping |
| 1330 ranges that map to the same Lisp object, and operations are provided | |
| 1331 for mapping over all of the ranges in a range table. | |
| 1332 | |
| 1333 Range tables have a special read syntax beginning with | |
| 1334 @samp{#s(range-table} (this is an example of @dfn{structure} read syntax, | |
| 1335 which is also used for char tables and faces). | |
| 1336 | |
| 1337 @example | |
| 1338 @group | |
| 1339 (setq x (make-range-table)) | |
| 1340 (put-range-table 20 50 'foo x) | |
| 1341 (put-range-table 100 200 "bar" x) | |
| 1342 x | |
| 1343 @result{} #s(range-table data ((20 50) foo (100 200) "bar")) | |
| 1344 @end group | |
| 1345 @end example | |
| 1346 | |
| 1347 @xref{Range Tables}, for information on how to create and work with range | |
| 1348 tables. | |
| 1349 | |
| 1350 @node Weak List Type | |
| 1351 @subsection Weak List Type | |
| 1352 @cindex weak list type | |
| 1353 | |
| 1354 (not yet documented) | |
| 1355 | |
| 1356 @node Editing Types | |
| 1357 @section Editing Types | |
| 1358 @cindex editing types | |
| 1359 | |
| 1360 The types in the previous section are common to many Lisp dialects. | |
| 1361 XEmacs Lisp provides several additional data types for purposes connected | |
| 1362 with editing. | |
| 1363 | |
| 1364 @menu | |
| 1365 * Buffer Type:: The basic object of editing. | |
| 1366 * Marker Type:: A position in a buffer. | |
| 1367 * Extent Type:: A range in a buffer or string, maybe with properties. | |
| 1368 * Window Type:: Buffers are displayed in windows. | |
| 1369 * Frame Type:: Windows subdivide frames. | |
| 1370 * Device Type:: Devices group all frames on a display. | |
| 1371 * Console Type:: Consoles group all devices with the same keyboard. | |
| 1372 * Window Configuration Type:: Recording the way a frame is subdivided. | |
| 1373 * Event Type:: An interesting occurrence in the system. | |
| 1374 * Process Type:: A process running on the underlying OS. | |
| 1375 * Stream Type:: Receive or send characters. | |
| 1376 * Keymap Type:: What function a keystroke invokes. | |
| 1377 * Syntax Table Type:: What a character means. | |
| 1378 * Display Table Type:: How display tables are represented. | |
| 1379 * Database Type:: A connection to an external DBM or DB database. | |
| 1380 * Charset Type:: A character set (e.g. all Kanji characters), | |
| 1381 under XEmacs/MULE. | |
| 1382 * Coding System Type:: An object encapsulating a way of converting between | |
| 1383 different textual encodings, under XEmacs/MULE. | |
| 1384 * ToolTalk Message Type:: A message, in the ToolTalk IPC protocol. | |
| 1385 * ToolTalk Pattern Type:: A pattern, in the ToolTalk IPC protocol. | |
| 1386 @end menu | |
| 1387 | |
| 1388 @node Buffer Type | |
| 1389 @subsection Buffer Type | |
| 1390 | |
| 1391 A @dfn{buffer} is an object that holds text that can be edited | |
| 1392 (@pxref{Buffers}). Most buffers hold the contents of a disk file | |
| 1393 (@pxref{Files}) so they can be edited, but some are used for other | |
| 1394 purposes. Most buffers are also meant to be seen by the user, and | |
| 1395 therefore displayed, at some time, in a window (@pxref{Windows}). But a | |
| 1396 buffer need not be displayed in any window. | |
| 1397 | |
| 1398 The contents of a buffer are much like a string, but buffers are not | |
| 1399 used like strings in XEmacs Lisp, and the available operations are | |
| 1400 different. For example, insertion of text into a buffer is very | |
| 1401 efficient, whereas ``inserting'' text into a string requires | |
| 1402 concatenating substrings, and the result is an entirely new string | |
| 1403 object. | |
| 1404 | |
| 1405 Each buffer has a designated position called @dfn{point} | |
| 1406 (@pxref{Positions}). At any time, one buffer is the @dfn{current | |
| 1407 buffer}. Most editing commands act on the contents of the current | |
| 1408 buffer in the neighborhood of point. Many of the standard Emacs | |
| 1409 functions manipulate or test the characters in the current buffer; a | |
| 1410 whole chapter in this manual is devoted to describing these functions | |
| 1411 (@pxref{Text}). | |
| 1412 | |
| 1413 Several other data structures are associated with each buffer: | |
| 1414 | |
| 1415 @itemize @bullet | |
| 1416 @item | |
| 1417 a local syntax table (@pxref{Syntax Tables}); | |
| 1418 | |
| 1419 @item | |
| 1420 a local keymap (@pxref{Keymaps}); | |
| 1421 | |
| 1422 @item | |
| 1423 a local variable binding list (@pxref{Buffer-Local Variables}); | |
| 1424 | |
| 1425 @item | |
| 1426 a list of extents (@pxref{Extents}); | |
| 1427 | |
| 1428 @item | |
| 1429 and various other related properties. | |
| 1430 @end itemize | |
| 1431 | |
| 1432 @noindent | |
| 1433 The local keymap and variable list contain entries that individually | |
| 1434 override global bindings or values. These are used to customize the | |
| 1435 behavior of programs in different buffers, without actually changing the | |
| 1436 programs. | |
| 1437 | |
| 1438 A buffer may be @dfn{indirect}, which means it shares the text | |
| 1439 of another buffer. @xref{Indirect Buffers}. | |
| 1440 | |
| 1441 Buffers have no read syntax. They print in hash notation, showing the | |
| 1442 buffer name. | |
| 1443 | |
| 1444 @example | |
| 1445 @group | |
| 1446 (current-buffer) | |
| 1447 @result{} #<buffer "objects.texi"> | |
| 1448 @end group | |
| 1449 @end example | |
| 1450 | |
| 1451 @node Marker Type | |
| 1452 @subsection Marker Type | |
| 1453 | |
| 1454 A @dfn{marker} denotes a position in a specific buffer. Markers | |
| 1455 therefore have two components: one for the buffer, and one for the | |
| 1456 position. Changes in the buffer's text automatically relocate the | |
| 1457 position value as necessary to ensure that the marker always points | |
| 1458 between the same two characters in the buffer. | |
| 1459 | |
| 1460 Markers have no read syntax. They print in hash notation, giving the | |
| 1461 current character position and the name of the buffer. | |
| 1462 | |
| 1463 @example | |
| 1464 @group | |
| 1465 (point-marker) | |
| 1466 @result{} #<marker at 50661 in objects.texi> | |
| 1467 @end group | |
| 1468 @end example | |
| 1469 | |
| 1470 @xref{Markers}, for information on how to test, create, copy, and move | |
| 1471 markers. | |
| 1472 | |
| 1473 @node Extent Type | |
| 1474 @subsection Extent Type | |
| 1475 | |
| 1476 An @dfn{extent} specifies temporary alteration of the display | |
| 1477 appearance of a part of a buffer (or string). It contains markers | |
| 1478 delimiting a range of the buffer, plus a property list (a list whose | |
| 1479 elements are alternating property names and values). Extents are used | |
| 1480 to present parts of the buffer temporarily in a different display style. | |
| 1481 They have no read syntax, and print in hash notation, giving the buffer | |
| 1482 name and range of positions. | |
| 1483 | |
| 1484 Extents can exist over strings as well as buffers; the primary use | |
| 1485 of this is to preserve extent and text property information as text | |
| 1486 is copied from one buffer to another or between different parts of | |
| 1487 a buffer. | |
| 1488 | |
| 1489 Extents have no read syntax. They print in hash notation, giving the | |
| 1490 range of text they cover, the name of the buffer or string they are in, | |
| 1491 the address in core, and a summary of some of the properties attached to | |
| 1492 the extent. | |
| 1493 | |
| 1494 @example | |
| 1495 @group | |
| 1496 (extent-at (point)) | |
| 1497 @result{} #<extent [51742, 51748) font-lock text-prop 0x90121e0 in buffer objects.texi> | |
| 1498 @end group | |
| 1499 @end example | |
| 1500 | |
| 1501 @xref{Extents}, for how to create and use extents. | |
| 1502 | |
| 1503 Extents are used to implement text properties. @xref{Text Properties}. | |
| 1504 | |
| 1505 @node Window Type | |
| 1506 @subsection Window Type | |
| 1507 | |
| 1508 A @dfn{window} describes the portion of the frame that XEmacs uses to | |
| 1509 display a buffer. (In standard window-system usage, a @dfn{window} is | |
| 1510 what XEmacs calls a @dfn{frame}; XEmacs confusingly uses the term | |
| 1511 ``window'' to refer to what is called a @dfn{pane} in standard | |
| 1512 window-system usage.) Every window has one associated buffer, whose | |
| 1513 contents appear in the window. By contrast, a given buffer may appear | |
| 1514 in one window, no window, or several windows. | |
| 1515 | |
| 1516 Though many windows may exist simultaneously, at any time one window | |
| 1517 is designated the @dfn{selected window}. This is the window where the | |
| 1518 cursor is (usually) displayed when XEmacs is ready for a command. The | |
| 1519 selected window usually displays the current buffer, but this is not | |
| 1520 necessarily the case. | |
| 1521 | |
| 1522 Windows are grouped on the screen into frames; each window belongs to | |
| 1523 one and only one frame. @xref{Frame Type}. | |
| 1524 | |
| 1525 Windows have no read syntax. They print in hash notation, giving the | |
| 1526 name of the buffer being displayed and a unique number assigned at the | |
| 1527 time the window was created. (This number can be useful because the | |
| 1528 buffer displayed in any given window can change frequently.) | |
| 1529 | |
| 1530 @example | |
| 1531 @group | |
| 1532 (selected-window) | |
| 1533 @result{} #<window on "objects.texi" 0x266c> | |
| 1534 @end group | |
| 1535 @end example | |
| 1536 | |
| 1537 @xref{Windows}, for a description of the functions that work on windows. | |
| 1538 | |
| 1539 @node Frame Type | |
| 1540 @subsection Frame Type | |
| 1541 | |
| 1542 A @var{frame} is a rectangle on the screen (a @dfn{window} in standard | |
| 1543 window-system terminology) that contains one or more non-overlapping | |
| 1544 Emacs windows (@dfn{panes} in standard window-system terminology). A | |
| 1545 frame initially contains a single main window (plus perhaps a minibuffer | |
| 1546 window) which you can subdivide vertically or horizontally into smaller | |
| 1547 windows. | |
| 1548 | |
| 1549 Frames have no read syntax. They print in hash notation, giving the | |
| 1550 frame's type, name as used for resourcing, and a unique number assigned | |
| 1551 at the time the frame was created. | |
| 1552 | |
| 1553 @example | |
| 1554 @group | |
| 1555 (selected-frame) | |
| 1556 @result{} #<x-frame "emacs" 0x9db> | |
| 1557 @end group | |
| 1558 @end example | |
| 1559 | |
| 1560 @xref{Frames}, for a description of the functions that work on frames. | |
| 1561 | |
| 1562 @node Device Type | |
| 1563 @subsection Device Type | |
| 1564 | |
| 1565 A @dfn{device} represents a single display on which frames exist. | |
| 1566 Normally, there is only one device object, but there may be more | |
| 1567 than one if XEmacs is being run on a multi-headed display (e.g. an | |
| 1568 X server with attached color and mono screens) or if XEmacs is | |
| 1569 simultaneously driving frames attached to different consoles, e.g. | |
| 1570 an X display and a @sc{tty} connection. | |
| 1571 | |
| 1572 Devices do not have a read syntax. They print in hash notation, | |
| 1573 giving the device's type, connection name, and a unique number assigned | |
| 1574 at the time the device was created. | |
| 1575 | |
| 1576 @example | |
| 1577 @group | |
| 1578 (selected-device) | |
| 1579 @result{} #<x-device on ":0.0" 0x5b9> | |
| 1580 @end group | |
| 1581 @end example | |
| 1582 | |
| 1583 @xref{Consoles and Devices}, for a description of several functions | |
| 1584 related to devices. | |
| 1585 | |
| 1586 @node Console Type | |
| 1587 @subsection Console Type | |
| 1588 | |
| 1589 A @dfn{console} represents a single keyboard to which devices | |
| 1590 (i.e. displays on which frames exist) are connected. Normally, there is | |
| 1591 only one console object, but there may be more than one if XEmacs is | |
| 1592 simultaneously driving frames attached to different X servers and/or | |
| 1593 @sc{tty} connections. (XEmacs is capable of driving multiple X and | |
| 1594 @sc{tty} connections at the same time, and provides a robust mechanism | |
| 1595 for handling the differing display capabilities of such heterogeneous | |
| 1596 environments. A buffer with embedded glyphs and multiple fonts and | |
| 1597 colors, for example, will display reasonably if it simultaneously | |
| 1598 appears on a frame on a color X display, a frame on a mono X display, | |
| 1599 and a frame on a @sc{tty} connection.) | |
| 1600 | |
| 1601 Consoles do not have a read syntax. They print in hash notation, | |
| 1602 giving the console's type, connection name, and a unique number assigned | |
| 1603 at the time the console was created. | |
| 1604 | |
| 1605 @example | |
| 1606 @group | |
| 1607 (selected-console) | |
| 1608 @result{} #<x-console on "localhost:0" 0x5b7> | |
| 1609 @end group | |
| 1610 @end example | |
| 1611 | |
| 1612 @xref{Consoles and Devices}, for a description of several functions | |
| 1613 related to consoles. | |
| 1614 | |
| 1615 @node Window Configuration Type | |
| 1616 @subsection Window Configuration Type | |
| 1617 @cindex screen layout | |
| 1618 | |
| 1619 A @dfn{window configuration} stores information about the positions, | |
| 1620 sizes, and contents of the windows in a frame, so you can recreate the | |
| 1621 same arrangement of windows later. | |
| 1622 | |
| 1623 Window configurations do not have a read syntax. They print in hash | |
| 1624 notation, giving a unique number assigned at the time the window | |
| 1625 configuration was created. | |
| 1626 | |
| 1627 @example | |
| 1628 @group | |
| 1629 (current-window-configuration) | |
| 1630 @result{} #<window-configuration 0x2db4> | |
| 1631 @end group | |
| 1632 @end example | |
| 1633 | |
| 1634 @xref{Window Configurations}, for a description of several functions | |
| 1635 related to window configurations. | |
| 1636 | |
| 1637 @node Event Type | |
| 1638 @subsection Event Type | |
| 1639 | |
| 1640 (not yet documented) | |
| 1641 | |
| 1642 @node Process Type | |
| 1643 @subsection Process Type | |
| 1644 | |
| 1645 The word @dfn{process} usually means a running program. XEmacs itself | |
| 1646 runs in a process of this sort. However, in XEmacs Lisp, a process is a | |
| 1647 Lisp object that designates a subprocess created by the XEmacs process. | |
| 1648 Programs such as shells, GDB, ftp, and compilers, running in | |
| 1649 subprocesses of XEmacs, extend the capabilities of XEmacs. | |
| 1650 | |
| 1651 An Emacs subprocess takes textual input from Emacs and returns textual | |
| 1652 output to Emacs for further manipulation. Emacs can also send signals | |
| 1653 to the subprocess. | |
| 1654 | |
| 1655 Process objects have no read syntax. They print in hash notation, | |
| 1656 giving the name of the process, its associated process ID, and the | |
| 1657 current state of the process: | |
| 1658 | |
| 1659 @example | |
| 1660 @group | |
| 1661 (process-list) | |
| 1662 @result{} (#<process "shell" pid 2909 state:run>) | |
| 1663 @end group | |
| 1664 @end example | |
| 1665 | |
| 1666 @xref{Processes}, for information about functions that create, delete, | |
| 1667 return information about, send input or signals to, and receive output | |
| 1668 from processes. | |
| 1669 | |
| 1670 @node Stream Type | |
| 1671 @subsection Stream Type | |
| 1672 | |
| 1673 A @dfn{stream} is an object that can be used as a source or sink for | |
| 1674 characters---either to supply characters for input or to accept them as | |
| 1675 output. Many different types can be used this way: markers, buffers, | |
| 1676 strings, and functions. Most often, input streams (character sources) | |
| 1677 obtain characters from the keyboard, a buffer, or a file, and output | |
| 1678 streams (character sinks) send characters to a buffer, such as a | |
| 1679 @file{*Help*} buffer, or to the echo area. | |
| 1680 | |
| 1681 The object @code{nil}, in addition to its other meanings, may be used | |
| 1682 as a stream. It stands for the value of the variable | |
| 1683 @code{standard-input} or @code{standard-output}. Also, the object | |
| 1684 @code{t} as a stream specifies input using the minibuffer | |
| 1685 (@pxref{Minibuffers}) or output in the echo area (@pxref{The Echo | |
| 1686 Area}). | |
| 1687 | |
| 1688 Streams have no special printed representation or read syntax, and | |
| 1689 print as whatever primitive type they are. | |
| 1690 | |
| 1691 @xref{Read and Print}, for a description of functions | |
| 1692 related to streams, including parsing and printing functions. | |
| 1693 | |
| 1694 @node Keymap Type | |
| 1695 @subsection Keymap Type | |
| 1696 | |
| 1697 A @dfn{keymap} maps keys typed by the user to commands. This mapping | |
| 1698 controls how the user's command input is executed. | |
| 1699 | |
| 1700 NOTE: In XEmacs, a keymap is a separate primitive type. In FSF GNU | |
| 1701 Emacs, a keymap is actually a list whose @sc{car} is the symbol | |
| 1702 @code{keymap}. | |
| 1703 | |
| 1704 @xref{Keymaps}, for information about creating keymaps, handling prefix | |
| 1705 keys, local as well as global keymaps, and changing key bindings. | |
| 1706 | |
| 1707 @node Syntax Table Type | |
| 1708 @subsection Syntax Table Type | |
| 1709 | |
| 1710 Under XEmacs 20, a @dfn{syntax table} is a particular type of char | |
|
4885
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
1711 table. Under XEmacs 19, a syntax table is a vector of 256 integers. In |
| 428 | 1712 both cases, each element defines how one character is interpreted when it |
| 1713 appears in a buffer. For example, in C mode (@pxref{Major Modes}), the | |
| 1714 @samp{+} character is punctuation, but in Lisp mode it is a valid | |
| 1715 character in a symbol. These modes specify different interpretations by | |
| 1716 changing the syntax table entry for @samp{+}. | |
| 1717 | |
| 1718 Syntax tables are used only for scanning text in buffers, not for | |
| 1719 reading Lisp expressions. The table the Lisp interpreter uses to read | |
| 1720 expressions is built into the XEmacs source code and cannot be changed; | |
| 1721 thus, to change the list delimiters to be @samp{@{} and @samp{@}} | |
| 1722 instead of @samp{(} and @samp{)} would be impossible. | |
| 1723 | |
| 1724 @xref{Syntax Tables}, for details about syntax classes and how to make | |
| 1725 and modify syntax tables. | |
| 1726 | |
| 1727 @node Display Table Type | |
| 1728 @subsection Display Table Type | |
| 1729 | |
| 1730 A @dfn{display table} specifies how to display each character code. | |
| 1731 Each buffer and each window can have its own display table. A display | |
| 1732 table is actually a vector of length 256, although in XEmacs 20 this may | |
| 1733 change to be a particular type of char table. @xref{Display Tables}. | |
| 1734 | |
| 1735 @node Database Type | |
| 1736 @subsection Database Type | |
| 1737 @cindex database type | |
| 1738 | |
| 1739 (not yet documented) | |
| 1740 | |
| 1741 @node Charset Type | |
| 1742 @subsection Charset Type | |
| 1743 @cindex charset type | |
| 1744 | |
| 1745 (not yet documented) | |
| 1746 | |
| 1747 @node Coding System Type | |
| 1748 @subsection Coding System Type | |
| 1749 @cindex coding system type | |
| 1750 | |
| 1751 (not yet documented) | |
| 1752 | |
| 1753 @node ToolTalk Message Type | |
| 1754 @subsection ToolTalk Message Type | |
| 1755 | |
| 1756 (not yet documented) | |
| 1757 | |
| 1758 @node ToolTalk Pattern Type | |
| 1759 @subsection ToolTalk Pattern Type | |
| 1760 | |
| 1761 (not yet documented) | |
| 1762 | |
| 1763 @node Window-System Types | |
| 1764 @section Window-System Types | |
| 1765 @cindex window system types | |
| 1766 | |
| 1767 XEmacs also has some types that represent objects such as faces | |
| 1768 (collections of display characters), fonts, and pixmaps that are | |
| 1769 commonly found in windowing systems. | |
| 1770 | |
| 1771 @menu | |
| 1772 * Face Type:: A collection of display characteristics. | |
| 1773 * Glyph Type:: An image appearing in a buffer or elsewhere. | |
| 1774 * Specifier Type:: A way of controlling display characteristics on | |
| 1775 a per-buffer, -frame, -window, or -device level. | |
| 1776 * Font Instance Type:: The way a font appears on a particular device. | |
| 1777 * Color Instance Type:: The way a color appears on a particular device. | |
| 1778 * Image Instance Type:: The way an image appears on a particular device. | |
| 1779 * Toolbar Button Type:: An object representing a button in a toolbar. | |
| 1780 * Subwindow Type:: An externally-controlled window-system window | |
| 1781 appearing in a buffer. | |
| 1782 * X Resource Type:: A miscellaneous X resource, if Epoch support was | |
| 1783 compiled into XEmacs. | |
| 1784 @end menu | |
| 1785 | |
| 1786 @node Face Type | |
| 1787 @subsection Face Type | |
| 1788 @cindex face type | |
| 1789 | |
| 1790 (not yet documented) | |
| 1791 | |
| 1792 @node Glyph Type | |
| 1793 @subsection Glyph Type | |
| 1794 @cindex glyph type | |
| 1795 | |
| 1796 (not yet documented) | |
| 1797 | |
| 1798 @node Specifier Type | |
| 1799 @subsection Specifier Type | |
| 1800 @cindex specifier type | |
| 1801 | |
| 1802 (not yet documented) | |
| 1803 | |
| 1804 @node Font Instance Type | |
| 1805 @subsection Font Instance Type | |
| 1806 @cindex font instance type | |
| 1807 | |
| 1808 (not yet documented) | |
| 1809 | |
| 1810 @node Color Instance Type | |
| 1811 @subsection Color Instance Type | |
| 1812 @cindex color instance type | |
| 1813 | |
| 1814 (not yet documented) | |
| 1815 | |
| 1816 @node Image Instance Type | |
| 1817 @subsection Image Instance Type | |
| 1818 @cindex image instance type | |
| 1819 | |
| 1820 (not yet documented) | |
| 1821 | |
| 1822 @node Toolbar Button Type | |
| 1823 @subsection Toolbar Button Type | |
| 1824 @cindex toolbar button type | |
| 1825 | |
| 1826 (not yet documented) | |
| 1827 | |
| 1828 @node Subwindow Type | |
| 1829 @subsection Subwindow Type | |
| 1830 @cindex subwindow type | |
| 1831 | |
| 1832 (not yet documented) | |
| 1833 | |
| 1834 @node X Resource Type | |
| 1835 @subsection X Resource Type | |
| 1836 @cindex X resource type | |
| 1837 | |
| 1838 (not yet documented) | |
| 1839 | |
| 1840 @node Type Predicates | |
| 1841 @section Type Predicates | |
| 1842 @cindex predicates | |
| 1843 @cindex type checking | |
| 1844 @kindex wrong-type-argument | |
| 1845 | |
| 1846 The XEmacs Lisp interpreter itself does not perform type checking on | |
| 1847 the actual arguments passed to functions when they are called. It could | |
| 1848 not do so, since function arguments in Lisp do not have declared data | |
| 1849 types, as they do in other programming languages. It is therefore up to | |
| 1850 the individual function to test whether each actual argument belongs to | |
| 1851 a type that the function can use. | |
| 1852 | |
| 1853 All built-in functions do check the types of their actual arguments | |
| 1854 when appropriate, and signal a @code{wrong-type-argument} error if an | |
| 1855 argument is of the wrong type. For example, here is what happens if you | |
| 1856 pass an argument to @code{+} that it cannot handle: | |
| 1857 | |
| 1858 @example | |
| 1859 @group | |
| 1860 (+ 2 'a) | |
| 1861 @error{} Wrong type argument: integer-or-marker-p, a | |
| 1862 @end group | |
| 1863 @end example | |
| 1864 | |
| 1865 @cindex type predicates | |
| 1866 @cindex testing types | |
| 1867 If you want your program to handle different types differently, you | |
| 1868 must do explicit type checking. The most common way to check the type | |
| 1869 of an object is to call a @dfn{type predicate} function. Emacs has a | |
| 1870 type predicate for each type, as well as some predicates for | |
| 1871 combinations of types. | |
| 1872 | |
| 1873 A type predicate function takes one argument; it returns @code{t} if | |
| 1874 the argument belongs to the appropriate type, and @code{nil} otherwise. | |
| 1875 Following a general Lisp convention for predicate functions, most type | |
| 1876 predicates' names end with @samp{p}. | |
| 1877 | |
| 1878 Here is an example which uses the predicates @code{listp} to check for | |
| 1879 a list and @code{symbolp} to check for a symbol. | |
| 1880 | |
| 1881 @example | |
| 1882 (defun add-on (x) | |
| 1883 (cond ((symbolp x) | |
| 1884 ;; If X is a symbol, put it on LIST. | |
| 1885 (setq list (cons x list))) | |
| 1886 ((listp x) | |
| 1887 ;; If X is a list, add its elements to LIST. | |
| 1888 (setq list (append x list))) | |
| 1889 @need 3000 | |
| 1890 (t | |
| 1891 ;; We only handle symbols and lists. | |
| 1892 (error "Invalid argument %s in add-on" x)))) | |
| 1893 @end example | |
| 1894 | |
| 1895 Here is a table of predefined type predicates, in alphabetical order, | |
| 1896 with references to further information. | |
| 1897 | |
| 1898 @table @code | |
| 1899 @item annotationp | |
| 1900 @xref{Annotation Primitives, annotationp}. | |
| 1901 | |
| 1902 @item arrayp | |
| 1903 @xref{Array Functions, arrayp}. | |
| 1904 | |
| 1905 @item atom | |
| 1906 @xref{List-related Predicates, atom}. | |
| 1907 | |
| 1908 @item bit-vector-p | |
| 1909 @xref{Bit Vector Functions, bit-vector-p}. | |
| 1910 | |
| 1911 @item bitp | |
| 1912 @xref{Bit Vector Functions, bitp}. | |
| 1913 | |
| 1914 @item boolean-specifier-p | |
| 1915 @xref{Specifier Types, boolean-specifier-p}. | |
| 1916 | |
| 1917 @item buffer-glyph-p | |
| 1918 @xref{Glyph Types, buffer-glyph-p}. | |
| 1919 | |
| 1920 @item buffer-live-p | |
| 1921 @xref{Killing Buffers, buffer-live-p}. | |
| 1922 | |
| 1923 @item bufferp | |
| 1924 @xref{Buffer Basics, bufferp}. | |
| 1925 | |
| 1926 @item button-event-p | |
| 1927 @xref{Event Predicates, button-event-p}. | |
| 1928 | |
| 1929 @item button-press-event-p | |
| 1930 @xref{Event Predicates, button-press-event-p}. | |
| 1931 | |
| 1932 @item button-release-event-p | |
| 1933 @xref{Event Predicates, button-release-event-p}. | |
| 1934 | |
| 1935 @item case-table-p | |
| 1936 @xref{Case Tables, case-table-p}. | |
| 1937 | |
| 1938 @item char-int-p | |
| 1939 @xref{Character Codes, char-int-p}. | |
| 1940 | |
| 1941 @item char-or-char-int-p | |
| 1942 @xref{Character Codes, char-or-char-int-p}. | |
| 1943 | |
| 1944 @item char-or-string-p | |
| 1945 @xref{Predicates for Strings, char-or-string-p}. | |
| 1946 | |
| 1947 @item char-table-p | |
| 1948 @xref{Char Tables, char-table-p}. | |
| 1949 | |
| 1950 @item characterp | |
| 1951 @xref{Predicates for Characters, characterp}. | |
| 1952 | |
| 1953 @item color-instance-p | |
| 1954 @xref{Colors, color-instance-p}. | |
| 1955 | |
| 1956 @item color-pixmap-image-instance-p | |
| 1957 @xref{Image Instance Types, color-pixmap-image-instance-p}. | |
| 1958 | |
| 1959 @item color-specifier-p | |
| 1960 @xref{Specifier Types, color-specifier-p}. | |
| 1961 | |
| 1962 @item commandp | |
| 1963 @xref{Interactive Call, commandp}. | |
| 1964 | |
| 1965 @item compiled-function-p | |
| 1966 @xref{Compiled-Function Type, compiled-function-p}. | |
| 1967 | |
| 1968 @item console-live-p | |
| 1969 @xref{Connecting to a Console or Device, console-live-p}. | |
| 1970 | |
| 1971 @item consolep | |
| 1972 @xref{Consoles and Devices, consolep}. | |
| 1973 | |
| 1974 @item consp | |
| 1975 @xref{List-related Predicates, consp}. | |
| 1976 | |
| 1977 @item database-live-p | |
| 1978 @xref{Connecting to a Database, database-live-p}. | |
| 1979 | |
| 1980 @item databasep | |
| 1981 @xref{Databases, databasep}. | |
| 1982 | |
| 1983 @item device-live-p | |
| 1984 @xref{Connecting to a Console or Device, device-live-p}. | |
| 1985 | |
| 1986 @item device-or-frame-p | |
| 1987 @xref{Basic Device Functions, device-or-frame-p}. | |
| 1988 | |
| 1989 @item devicep | |
| 1990 @xref{Consoles and Devices, devicep}. | |
| 1991 | |
| 1992 @item eval-event-p | |
| 1993 @xref{Event Predicates, eval-event-p}. | |
| 1994 | |
| 1995 @item event-live-p | |
| 1996 @xref{Event Predicates, event-live-p}. | |
| 1997 | |
| 1998 @item eventp | |
| 1999 @xref{Events, eventp}. | |
| 2000 | |
| 2001 @item extent-live-p | |
| 2002 @xref{Creating and Modifying Extents, extent-live-p}. | |
| 2003 | |
| 2004 @item extentp | |
| 2005 @xref{Extents, extentp}. | |
| 2006 | |
| 2007 @item face-boolean-specifier-p | |
| 2008 @xref{Specifier Types, face-boolean-specifier-p}. | |
| 2009 | |
| 2010 @item facep | |
| 2011 @xref{Basic Face Functions, facep}. | |
| 2012 | |
| 2013 @item floatp | |
| 2014 @xref{Predicates on Numbers, floatp}. | |
| 2015 | |
| 2016 @item font-instance-p | |
| 2017 @xref{Fonts, font-instance-p}. | |
| 2018 | |
| 2019 @item font-specifier-p | |
| 2020 @xref{Specifier Types, font-specifier-p}. | |
| 2021 | |
| 2022 @item frame-live-p | |
| 2023 @xref{Deleting Frames, frame-live-p}. | |
| 2024 | |
| 2025 @item framep | |
| 2026 @xref{Frames, framep}. | |
| 2027 | |
| 2028 @item functionp | |
| 2029 (not yet documented) | |
| 2030 | |
| 2031 @item generic-specifier-p | |
| 2032 @xref{Specifier Types, generic-specifier-p}. | |
| 2033 | |
| 2034 @item glyphp | |
| 2035 @xref{Glyphs, glyphp}. | |
| 2036 | |
| 2037 @item hash-table-p | |
| 2038 @xref{Hash Tables, hash-table-p}. | |
| 2039 | |
| 2040 @item icon-glyph-p | |
| 2041 @xref{Glyph Types, icon-glyph-p}. | |
| 2042 | |
| 2043 @item image-instance-p | |
| 2044 @xref{Images, image-instance-p}. | |
| 2045 | |
| 2046 @item image-specifier-p | |
| 2047 @xref{Specifier Types, image-specifier-p}. | |
| 2048 | |
| 2049 @item integer-char-or-marker-p | |
| 2050 @xref{Predicates on Markers, integer-char-or-marker-p}. | |
| 2051 | |
| 2052 @item integer-or-char-p | |
| 2053 @xref{Predicates for Characters, integer-or-char-p}. | |
| 2054 | |
| 2055 @item integer-or-marker-p | |
| 2056 @xref{Predicates on Markers, integer-or-marker-p}. | |
| 2057 | |
| 2058 @item integer-specifier-p | |
| 2059 @xref{Specifier Types, integer-specifier-p}. | |
| 2060 | |
| 2061 @item integerp | |
| 2062 @xref{Predicates on Numbers, integerp}. | |
| 2063 | |
| 2064 @item itimerp | |
| 2065 (not yet documented) | |
| 2066 | |
| 2067 @item key-press-event-p | |
| 2068 @xref{Event Predicates, key-press-event-p}. | |
| 2069 | |
| 2070 @item keymapp | |
| 2071 @xref{Creating Keymaps, keymapp}. | |
| 2072 | |
| 2073 @item keywordp | |
| 2074 (not yet documented) | |
| 2075 | |
| 2076 @item listp | |
| 2077 @xref{List-related Predicates, listp}. | |
| 2078 | |
| 2079 @item markerp | |
| 2080 @xref{Predicates on Markers, markerp}. | |
| 2081 | |
| 2082 @item misc-user-event-p | |
| 2083 @xref{Event Predicates, misc-user-event-p}. | |
| 2084 | |
| 2085 @item mono-pixmap-image-instance-p | |
| 2086 @xref{Image Instance Types, mono-pixmap-image-instance-p}. | |
| 2087 | |
| 2088 @item motion-event-p | |
| 2089 @xref{Event Predicates, motion-event-p}. | |
| 2090 | |
| 2091 @item mouse-event-p | |
| 2092 @xref{Event Predicates, mouse-event-p}. | |
| 2093 | |
| 2094 @item natnum-specifier-p | |
| 2095 @xref{Specifier Types, natnum-specifier-p}. | |
| 2096 | |
| 2097 @item natnump | |
| 2098 @xref{Predicates on Numbers, natnump}. | |
| 2099 | |
| 2100 @item nlistp | |
| 2101 @xref{List-related Predicates, nlistp}. | |
| 2102 | |
| 2103 @item nothing-image-instance-p | |
| 2104 @xref{Image Instance Types, nothing-image-instance-p}. | |
| 2105 | |
| 2106 @item number-char-or-marker-p | |
| 2107 @xref{Predicates on Markers, number-char-or-marker-p}. | |
| 2108 | |
| 2109 @item number-or-marker-p | |
| 2110 @xref{Predicates on Markers, number-or-marker-p}. | |
| 2111 | |
| 2112 @item numberp | |
| 2113 @xref{Predicates on Numbers, numberp}. | |
| 2114 | |
| 2115 @item pointer-glyph-p | |
| 2116 @xref{Glyph Types, pointer-glyph-p}. | |
| 2117 | |
| 2118 @item pointer-image-instance-p | |
| 2119 @xref{Image Instance Types, pointer-image-instance-p}. | |
| 2120 | |
| 2121 @item process-event-p | |
| 2122 @xref{Event Predicates, process-event-p}. | |
| 2123 | |
| 2124 @item processp | |
| 2125 @xref{Processes, processp}. | |
| 2126 | |
| 2127 @item range-table-p | |
| 2128 @xref{Range Tables, range-table-p}. | |
| 2129 | |
| 2130 @item ringp | |
| 2131 (not yet documented) | |
| 2132 | |
| 2133 @item sequencep | |
| 2134 @xref{Sequence Functions, sequencep}. | |
| 2135 | |
| 2136 @item specifierp | |
| 2137 @xref{Specifiers, specifierp}. | |
| 2138 | |
| 2139 @item stringp | |
| 2140 @xref{Predicates for Strings, stringp}. | |
| 2141 | |
| 2142 @item subrp | |
| 2143 @xref{Function Cells, subrp}. | |
| 2144 | |
| 2145 @item subwindow-image-instance-p | |
| 2146 @xref{Image Instance Types, subwindow-image-instance-p}. | |
| 2147 | |
| 2148 @item subwindowp | |
| 2149 @xref{Subwindows, subwindowp}. | |
| 2150 | |
| 2151 @item symbolp | |
| 2152 @xref{Symbols, symbolp}. | |
| 2153 | |
| 2154 @item syntax-table-p | |
| 2155 @xref{Syntax Tables, syntax-table-p}. | |
| 2156 | |
| 2157 @item text-image-instance-p | |
| 2158 @xref{Image Instance Types, text-image-instance-p}. | |
| 2159 | |
| 2160 @item timeout-event-p | |
| 2161 @xref{Event Predicates, timeout-event-p}. | |
| 2162 | |
| 2163 @item toolbar-button-p | |
| 2164 @xref{Toolbar, toolbar-button-p}. | |
| 2165 | |
| 2166 @item toolbar-specifier-p | |
| 2167 @xref{Toolbar, toolbar-specifier-p}. | |
| 2168 | |
| 2169 @item user-variable-p | |
| 2170 @xref{Defining Variables, user-variable-p}. | |
| 2171 | |
| 2172 @item vectorp | |
| 2173 @xref{Vectors, vectorp}. | |
| 2174 | |
| 2175 @item weak-list-p | |
| 2176 @xref{Weak Lists, weak-list-p}. | |
| 2177 | |
| 2178 @ignore | |
| 2179 @item wholenump | |
| 2180 @xref{Predicates on Numbers, wholenump}. | |
| 2181 @end ignore | |
| 2182 | |
| 2183 @item window-configuration-p | |
| 2184 @xref{Window Configurations, window-configuration-p}. | |
| 2185 | |
| 2186 @item window-live-p | |
| 2187 @xref{Deleting Windows, window-live-p}. | |
| 2188 | |
| 2189 @item windowp | |
| 2190 @xref{Basic Windows, windowp}. | |
| 2191 @end table | |
| 2192 | |
| 2193 The most general way to check the type of an object is to call the | |
| 2194 function @code{type-of}. Recall that each object belongs to one and | |
| 2195 only one primitive type; @code{type-of} tells you which one (@pxref{Lisp | |
| 2196 Data Types}). But @code{type-of} knows nothing about non-primitive | |
| 2197 types. In most cases, it is more convenient to use type predicates than | |
| 2198 @code{type-of}. | |
| 2199 | |
| 2200 @defun type-of object | |
| 2201 This function returns a symbol naming the primitive type of | |
| 2202 @var{object}. The value is one of @code{bit-vector}, @code{buffer}, | |
| 2203 @code{char-table}, @code{character}, @code{charset}, | |
| 2204 @code{coding-system}, @code{cons}, @code{color-instance}, | |
| 2205 @code{compiled-function}, @code{console}, @code{database}, | |
| 2206 @code{device}, @code{event}, @code{extent}, @code{face}, @code{float}, | |
| 2207 @code{font-instance}, @code{frame}, @code{glyph}, @code{hash-table}, | |
| 2208 @code{image-instance}, @code{integer}, @code{keymap}, @code{marker}, | |
| 2209 @code{process}, @code{range-table}, @code{specifier}, @code{string}, | |
| 2210 @code{subr}, @code{subwindow}, @code{symbol}, @code{toolbar-button}, | |
| 2211 @code{tooltalk-message}, @code{tooltalk-pattern}, @code{vector}, | |
| 2212 @code{weak-list}, @code{window}, @code{window-configuration}, or | |
| 2213 @code{x-resource}. | |
| 2214 | |
| 2215 @example | |
| 2216 (type-of 1) | |
| 2217 @result{} integer | |
| 2218 (type-of 'nil) | |
| 2219 @result{} symbol | |
| 2220 (type-of '()) ; @r{@code{()} is @code{nil}.} | |
| 2221 @result{} symbol | |
| 2222 (type-of '(x)) | |
| 2223 @result{} cons | |
| 2224 @end example | |
| 2225 @end defun | |
| 2226 | |
| 2227 @node Equality Predicates | |
| 2228 @section Equality Predicates | |
| 2229 @cindex equality | |
| 2230 | |
| 2231 Here we describe two functions that test for equality between any two | |
| 2232 objects. Other functions test equality between objects of specific | |
| 2233 types, e.g., strings. For these predicates, see the appropriate chapter | |
| 2234 describing the data type. | |
| 2235 | |
| 2236 @defun eq object1 object2 | |
| 2237 This function returns @code{t} if @var{object1} and @var{object2} are | |
| 2238 the same object, @code{nil} otherwise. The ``same object'' means that a | |
| 2239 change in one will be reflected by the same change in the other. | |
| 2240 | |
| 2241 @code{eq} returns @code{t} if @var{object1} and @var{object2} are | |
|
4885
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4820
diff
changeset
|
2242 fixnums with the same value. It is preferable to use @code{=} or |
|
4472
a99eb40f0b5b
Correct an omitted word, expand on bignum equality in the lispref.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4471
diff
changeset
|
2243 @code{eql} in many contexts for numeric comparison, especially since |
|
a99eb40f0b5b
Correct an omitted word, expand on bignum equality in the lispref.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4471
diff
changeset
|
2244 bignums (integers with values that would have otherwise overflowed, only |
|
a99eb40f0b5b
Correct an omitted word, expand on bignum equality in the lispref.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4471
diff
changeset
|
2245 available on some builds) with the same value are not @code{eq}; |
|
a99eb40f0b5b
Correct an omitted word, expand on bignum equality in the lispref.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4471
diff
changeset
|
2246 @pxref{Comparison of Numbers}. @code{eq} also returns @code{t} if |
|
a99eb40f0b5b
Correct an omitted word, expand on bignum equality in the lispref.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4471
diff
changeset
|
2247 @var{object1} and @var{object2} are identical characters, though in this |
|
a99eb40f0b5b
Correct an omitted word, expand on bignum equality in the lispref.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4471
diff
changeset
|
2248 case you may prefer to use @code{char=}. |
|
4471
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2249 |
|
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2250 Also, since symbol names are normally unique, if the arguments are |
|
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2251 symbols with the same name, they are @code{eq}. For other types (e.g., |
|
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2252 lists, vectors, strings), two arguments with the same contents or |
|
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2253 elements are not necessarily @code{eq} to each other: they are @code{eq} |
|
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2254 only if they are the same object. |
| 428 | 2255 |
| 2256 (The @code{make-symbol} function returns an uninterned symbol that is | |
| 2257 not interned in the standard @code{obarray}. When uninterned symbols | |
| 2258 are in use, symbol names are no longer unique. Distinct symbols with | |
| 2259 the same name are not @code{eq}. @xref{Creating Symbols}.) | |
| 2260 | |
| 2261 NOTE: Under XEmacs 19, characters are really just integers, and thus | |
|
4472
a99eb40f0b5b
Correct an omitted word, expand on bignum equality in the lispref.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4471
diff
changeset
|
2262 characters and integers with the same numeric code are @code{eq}. Under |
|
4471
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2263 XEmacs 20, it was necessary to preserve remnants of this in function |
|
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2264 such as @code{old-eq} in order to maintain byte-code compatibility. |
|
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2265 Byte code compiled under any Emacs 19 will automatically have calls to |
|
2d39535e1f9d
Say explicitly that eq is useful for chars; xref number comparison, lispref
Aidan Kehoe <kehoea@parhasard.net>
parents:
4265
diff
changeset
|
2266 @code{eq} mapped to @code{old-eq} when executed under XEmacs 20. |
| 428 | 2267 |
| 2268 @example | |
| 2269 @group | |
| 2270 (eq 'foo 'foo) | |
| 2271 @result{} t | |
| 2272 @end group | |
| 2273 | |
| 2274 @group | |
| 2275 (eq 456 456) | |
| 2276 @result{} t | |
| 2277 @end group | |
| 2278 | |
| 2279 @group | |
| 2280 (eq "asdf" "asdf") | |
| 2281 @result{} nil | |
| 2282 @end group | |
| 2283 | |
| 2284 @group | |
| 2285 (eq '(1 (2 (3))) '(1 (2 (3)))) | |
| 2286 @result{} nil | |
| 2287 @end group | |
| 2288 | |
| 2289 @group | |
| 2290 (setq foo '(1 (2 (3)))) | |
| 2291 @result{} (1 (2 (3))) | |
| 2292 (eq foo foo) | |
| 2293 @result{} t | |
| 2294 (eq foo '(1 (2 (3)))) | |
| 2295 @result{} nil | |
| 2296 @end group | |
| 2297 | |
| 2298 @group | |
| 2299 (eq [(1 2) 3] [(1 2) 3]) | |
| 2300 @result{} nil | |
| 2301 @end group | |
| 2302 | |
| 2303 @group | |
| 2304 (eq (point-marker) (point-marker)) | |
| 2305 @result{} nil | |
| 2306 @end group | |
| 2307 @end example | |
| 2308 | |
| 2309 @end defun | |
| 2310 | |
| 444 | 2311 @defun old-eq object1 object2 |
| 428 | 2312 This function exists under XEmacs 20 and is exactly like @code{eq} |
| 2313 except that it suffers from the char-int confoundance disease. | |
| 2314 In other words, it returns @code{t} if given a character and the | |
| 2315 equivalent integer, even though the objects are of different types! | |
| 2316 You should @emph{not} ever call this function explicitly in your | |
| 2317 code. However, be aware that all calls to @code{eq} in byte code | |
| 2318 compiled under version 19 map to @code{old-eq} in XEmacs 20. | |
| 2319 (Likewise for @code{old-equal}, @code{old-memq}, @code{old-member}, | |
| 2320 @code{old-assq} and @code{old-assoc}.) | |
| 2321 | |
| 2322 @example | |
| 2323 @group | |
| 2324 ;; @r{Remember, this does not apply under XEmacs 19.} | |
| 2325 ?A | |
| 2326 @result{} ?A | |
| 2327 (char-int ?A) | |
| 2328 @result{} 65 | |
| 2329 (old-eq ?A 65) | |
| 2330 @result{} t ; @r{Eek, we've been infected.} | |
| 2331 (eq ?A 65) | |
| 2332 @result{} nil ; @r{We are still healthy.} | |
| 2333 @end group | |
| 2334 @end example | |
| 2335 @end defun | |
| 2336 | |
| 2337 @defun equal object1 object2 | |
| 2338 This function returns @code{t} if @var{object1} and @var{object2} have | |
| 2339 equal components, @code{nil} otherwise. Whereas @code{eq} tests if its | |
| 2340 arguments are the same object, @code{equal} looks inside nonidentical | |
| 2341 arguments to see if their elements are the same. So, if two objects are | |
| 2342 @code{eq}, they are @code{equal}, but the converse is not always true. | |
| 2343 | |
| 2344 @example | |
| 2345 @group | |
| 2346 (equal 'foo 'foo) | |
| 2347 @result{} t | |
| 2348 @end group | |
| 2349 | |
| 2350 @group | |
| 2351 (equal 456 456) | |
| 2352 @result{} t | |
| 2353 @end group | |
| 2354 | |
| 2355 @group | |
| 2356 (equal "asdf" "asdf") | |
| 2357 @result{} t | |
| 2358 @end group | |
| 2359 @group | |
| 2360 (eq "asdf" "asdf") | |
| 2361 @result{} nil | |
| 2362 @end group | |
| 2363 | |
| 2364 @group | |
| 2365 (equal '(1 (2 (3))) '(1 (2 (3)))) | |
| 2366 @result{} t | |
| 2367 @end group | |
| 2368 @group | |
| 2369 (eq '(1 (2 (3))) '(1 (2 (3)))) | |
| 2370 @result{} nil | |
| 2371 @end group | |
| 2372 | |
| 2373 @group | |
| 2374 (equal [(1 2) 3] [(1 2) 3]) | |
| 2375 @result{} t | |
| 2376 @end group | |
| 2377 @group | |
| 2378 (eq [(1 2) 3] [(1 2) 3]) | |
| 2379 @result{} nil | |
| 2380 @end group | |
| 2381 | |
| 2382 @group | |
| 2383 (equal (point-marker) (point-marker)) | |
| 2384 @result{} t | |
| 2385 @end group | |
| 2386 | |
| 2387 @group | |
| 2388 (eq (point-marker) (point-marker)) | |
| 2389 @result{} nil | |
| 2390 @end group | |
| 2391 @end example | |
| 2392 | |
| 2393 Comparison of strings is case-sensitive. | |
| 2394 | |
| 2395 Note that in FSF GNU Emacs, comparison of strings takes into account | |
| 2396 their text properties, and you have to use @code{string-equal} if you | |
| 2397 want only the strings themselves compared. This difference does not | |
| 2398 exist in XEmacs; @code{equal} and @code{string-equal} always return | |
| 2399 the same value on the same strings. | |
| 2400 | |
| 2401 @ignore @c Not true in XEmacs | |
| 2402 Comparison of strings is case-sensitive and takes account of text | |
| 2403 properties as well as the characters in the strings. To compare | |
| 2404 two strings' characters without comparing their text properties, | |
| 2405 use @code{string=} (@pxref{Text Comparison}). | |
| 2406 @end ignore | |
| 2407 | |
| 2408 @example | |
| 2409 @group | |
| 2410 (equal "asdf" "ASDF") | |
| 2411 @result{} nil | |
| 2412 @end group | |
| 2413 @end example | |
| 2414 | |
| 2415 Two distinct buffers are never @code{equal}, even if their contents | |
| 2416 are the same. | |
| 2417 @end defun | |
| 2418 | |
| 2419 The test for equality is implemented recursively, and circular lists may | |
| 2420 therefore cause infinite recursion (leading to an error). | |
|
4792
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2421 |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2422 @defun equalp object1 object2 |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2423 This function is like @code{equal}, but compares characters and strings |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2424 case-insensitively; numbers are compared using @code{=}; arrays (that |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2425 is, strings, bit-vectors and vectors) are regarded as being |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2426 @code{equalp} if their contents are @code{equalp}; and |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2427 @code{hash-tables} are @code{equalp} if their values are @code{equalp} |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2428 and they would otherwise be @code{equal}. |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2429 |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2430 @code{equalp} is recursive with vectors, lists and hash-tables, but not |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2431 with other complex types. For types without a defined @code{equalp} |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2432 behavior, @code{equalp} behaves as @code{equal} does. |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2433 |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2434 @example |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2435 @group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2436 (equalp "asdf" "ASDF") |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2437 @result{} t |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2438 @end group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2439 @group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2440 (equalp "asdf" [?a ?s ?D ?F]) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2441 @result{} t |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2442 @end group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2443 @group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2444 (equalp "asdf" [?a ?s ?D ?F ?g]) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2445 @result{} nil |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2446 @end group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2447 @group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2448 (equalp "" (bit-vector)) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2449 @result{} t |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2450 @end group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2451 @group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2452 (equalp #s(hash-table) (make-hash-table)) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2453 @result{} t |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2454 @end group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2455 @group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2456 (equalp #s(hash-table data (t "hi there")) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2457 (let ((ht (make-hash-table))) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2458 (puthash t "HI THERE" ht) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2459 ht)) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2460 @result{} t |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2461 @group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2462 @end group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2463 (equalp #s(hash-table test eq data (1.0 "hi there")) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2464 (let ((ht (make-hash-table :test 'eql))) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2465 (puthash 1.0 "HI THERE" ht) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2466 ht)) |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2467 @result{} nil |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2468 @end group |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2469 @end example |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2470 @end defun |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2471 |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2472 @code{equalp} can also provoke an error if handed a circular structure, |
|
95b04754ea8c
Make #'equalp more compatible with CL; add a compiler macro, test & doc it.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4486
diff
changeset
|
2473 as with @code{equal}. |