comparison src/ChangeLog @ 37856:25012435e865

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Mon, 21 May 2001 12:26:45 +0000
parents 6dd68b0155bc
children b3fd27aaa58d
comparison
equal deleted inserted replaced
37855:477b46494bad 37856:25012435e865
1 2001-05-21 Gerd Moellmann <gerd@gnu.org>
2
3 * lisp.h (enum symbol_interned): New enumeration.
4 (struct Lisp_Symbol): Remove member `obarray', add
5 `indirect_variable', `constant', and `interned'.
6 (SYMBOL_INTERNED_P, SYMBOL_INTERNED_IN_INITIAL_OBARRAY_P)
7 (SYMBOL_CONSTANT_P, SYMBOL_VALUE, SET_SYMBOL_VALUE): New macros.
8 (indirect_variable): Add prototype.
9
10 * print.c (print_preprocess, print_object): Test internedness of
11 symbols differently.
12
13 * lread.c (Fintern, Funintern): Set symbol's interned and constant
14 bit-fields.
15 (init_obarray): Likewise for t and nil.
16
17 * eval.c Use SYMBOL_VALUE/SET_SYMBOL_VALUE.
18 (Fdefvaralias): New function.
19 (specbind): Simplify the test if symbol is a constant.
20 (syms_of_eval): Defsubr Fdefvaralias.
21
22 * data.c: Use SYMBOL_VALUE/SET_SYMBOL_VALUE.
23 (Qcyclic_variable_indirection): New variable.
24 (Fkeywordp): Check for internedness differently.
25 (Fmakunbound): Simplify the test if symbol is a constant.
26 (indirect_variable, Findirect_variable): New functions.
27 (swap_in_symval_forwarding): If SYMBOL is an alias, use the
28 aliased symbol.
29 (let_shadows_buffer_binding_p): Check for variable aliases.
30 (set_internal): Simplify the test if SYMBOL is a constant. If
31 SYMBOL has a buffer-local value and is an alias, use the aliased
32 symbol instead.
33 (syms_of_data): Initialze Qcyclic_variable_indirection and defsubr
34 Sindirect_variable.
35
36 * bytecode.c (Fbyte_code) <varref>: Use SYMBOL_VALUE.
37 (Fbyte_code) <varset>: Simplify the test if symbol's value can be
38 set directly.
39
40 * alloc.c (Fmake_symbol): Adapt to changes of struct Lisp_Symbol.
41
42 * abbrev.c, buffer.c, coding.c, fns.c, frame.c, keyboard.c: Use
43 SYMBOL_VALUE/ SET_SYMBOL_VALUE macros instead of accessing
44 symbols' value directly.
45
1 2001-05-18 Gerd Moellmann <gerd@gnu.org> 46 2001-05-18 Gerd Moellmann <gerd@gnu.org>
2 47
3 * eval.c (call_debugger): Don't bind inhibit-eval-during-redisplay. 48 * eval.c (call_debugger): Don't bind inhibit-eval-during-redisplay.
4 49
5 * xfaces.c (xlfd_point_size): Don't divide pixel size from 50 * xfaces.c (xlfd_point_size): Don't divide pixel size from