diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2012-08-07 17:37:21 +0400 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2012-08-07 17:37:21 +0400 |
| commit | c644523bd8a23e518c91b61a1b8520e866b715b9 (patch) | |
| tree | 60fae47e02ad6c87b5e657110606255e849ecf77 /admin/coccinelle | |
| parent | 6a3d20cc46da1e59f230923056b6b351acb097b9 (diff) | |
| download | emacs-c644523bd8a23e518c91b61a1b8520e866b715b9.tar.gz | |
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 'admin/coccinelle')
| -rw-r--r-- | admin/coccinelle/overlay.cocci | 28 | ||||
| -rw-r--r-- | admin/coccinelle/symbol.cocci | 32 |
2 files changed, 0 insertions, 60 deletions
diff --git a/admin/coccinelle/overlay.cocci b/admin/coccinelle/overlay.cocci deleted file mode 100644 index 2be141e8332..00000000000 --- a/admin/coccinelle/overlay.cocci +++ /dev/null @@ -1,28 +0,0 @@ -// Change direct access to Lisp_Object fields of struct -// Lisp_Overlay to MVAR. Beginning M denotes "misc", and -// MVAR is likely to be used for other second-class objects. -@@ -struct Lisp_Overlay *V; -Lisp_Object O; -@@ -( -- V->start -+ MVAR (V, start) -| -- V->end -+ MVAR (V, end) -| -- V->plist -+ MVAR (V, plist) - -| - -- XOVERLAY (O)->start -+ MVAR (XOVERLAY (O), start) -| -- XOVERLAY (O)->end -+ MVAR (XOVERLAY (O), end) -| -- XOVERLAY (O)->plist -+ MVAR (XOVERLAY (O), plist) -) diff --git a/admin/coccinelle/symbol.cocci b/admin/coccinelle/symbol.cocci deleted file mode 100644 index c988fabc256..00000000000 --- a/admin/coccinelle/symbol.cocci +++ /dev/null @@ -1,32 +0,0 @@ -// Change direct access to Lisp_Object fields of struct Lisp_Symbol to SVAR. -@@ -struct Lisp_Symbol *S; -Lisp_Object O; -@@ -( -- S->xname -+ SVAR (S, xname) -| -- S->val.value -+ SVAR (S, val.value) -| -- S->function -+ SVAR (S, function) -| -- S->plist -+ SVAR (S, plist) - -| - -- XSYMBOL (O)->xname -+ SVAR (XSYMBOL (O), xname) -| -- XSYMBOL (O)->val.value -+ SVAR (XSYMBOL (O), val.value) -| -- XSYMBOL (O)->function -+ SVAR (XSYMBOL (O), function) -| -- XSYMBOL (O)->plist -+ SVAR (XSYMBOL (O), plist) -) |