diff options
| author | Dmitry Antipov | 2012-08-07 17:37:21 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-08-07 17:37:21 +0400 |
| commit | c644523bd8a23e518c91b61a1b8520e866b715b9 (patch) | |
| tree | 60fae47e02ad6c87b5e657110606255e849ecf77 /src/bytecode.c | |
| parent | 6a3d20cc46da1e59f230923056b6b351acb097b9 (diff) | |
| download | emacs-c644523bd8a23e518c91b61a1b8520e866b715b9.tar.gz emacs-c644523bd8a23e518c91b61a1b8520e866b715b9.zip | |
Revert and cleanup Lisp_Cons, Lisp_Misc and Lisp_Symbol things.
* src/lisp.h (struct Lisp_Symbol): Change xname to meaningful
name since all xname users are fixed long time ago. Do not use
INTERNAL_FIELD.
(set_symbol_name, set_symbol_function, set_symbol_plist):
(set_symbol_next, set_overlay_plist): New function.
(struct Lisp_Cons): Do not use INTERNAL_FIELD.
(struct Lisp_Overlay): Likewise.
(CVAR, MVAR, SVAR): Remove.
* src/alloc.c, src/buffer.c, src/buffer.h, src/bytecode.c:
* src/cmds.c, src/data.c, src/doc.c, src/eval.c, src/fns.c:
* src/keyboard.c, src/lread.c, src/nsselect.m, src/xterm.c:
Adjust users.
* src/.gdbinit: Change to use name field of struct Lisp_Symbol
where appropriate.
* admin/coccinelle/overlay.cocci, admin/coccinelle/symbol.cocci:
Remove.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 49369de33e9..5ac8b4fa2bd 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -818,7 +818,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 818 | && !EQ (val, Qunbound) | 818 | && !EQ (val, Qunbound) |
| 819 | && !XSYMBOL (sym)->redirect | 819 | && !XSYMBOL (sym)->redirect |
| 820 | && !SYMBOL_CONSTANT_P (sym)) | 820 | && !SYMBOL_CONSTANT_P (sym)) |
| 821 | SVAR (XSYMBOL (sym), val.value) = val; | 821 | SET_SYMBOL_VAL (XSYMBOL (sym), val); |
| 822 | else | 822 | else |
| 823 | { | 823 | { |
| 824 | BEFORE_POTENTIAL_GC (); | 824 | BEFORE_POTENTIAL_GC (); |