diff options
| author | Dmitry Antipov | 2012-08-01 12:18:22 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-08-01 12:18:22 +0400 |
| commit | 015a2738eb575f9dc07ea5e589eb88c8e071930a (patch) | |
| tree | 1571cdc2a68996fdc40123d32fd15d8df69899cc /admin | |
| parent | 8271d59040b3d83fb3fc8cb23723538183b12ad4 (diff) | |
| download | emacs-015a2738eb575f9dc07ea5e589eb88c8e071930a.tar.gz emacs-015a2738eb575f9dc07ea5e589eb88c8e071930a.zip | |
Commit forgotten admin/coccinelle/symbol.cocci.
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/coccinelle/symbol.cocci | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/admin/coccinelle/symbol.cocci b/admin/coccinelle/symbol.cocci new file mode 100644 index 00000000000..c988fabc256 --- /dev/null +++ b/admin/coccinelle/symbol.cocci | |||
| @@ -0,0 +1,32 @@ | |||
| 1 | // Change direct access to Lisp_Object fields of struct Lisp_Symbol to SVAR. | ||
| 2 | @@ | ||
| 3 | struct Lisp_Symbol *S; | ||
| 4 | Lisp_Object O; | ||
| 5 | @@ | ||
| 6 | ( | ||
| 7 | - S->xname | ||
| 8 | + SVAR (S, xname) | ||
| 9 | | | ||
| 10 | - S->val.value | ||
| 11 | + SVAR (S, val.value) | ||
| 12 | | | ||
| 13 | - S->function | ||
| 14 | + SVAR (S, function) | ||
| 15 | | | ||
| 16 | - S->plist | ||
| 17 | + SVAR (S, plist) | ||
| 18 | |||
| 19 | | | ||
| 20 | |||
| 21 | - XSYMBOL (O)->xname | ||
| 22 | + SVAR (XSYMBOL (O), xname) | ||
| 23 | | | ||
| 24 | - XSYMBOL (O)->val.value | ||
| 25 | + SVAR (XSYMBOL (O), val.value) | ||
| 26 | | | ||
| 27 | - XSYMBOL (O)->function | ||
| 28 | + SVAR (XSYMBOL (O), function) | ||
| 29 | | | ||
| 30 | - XSYMBOL (O)->plist | ||
| 31 | + SVAR (XSYMBOL (O), plist) | ||
| 32 | ) | ||