From: Dmitry Antipov <dmantipov@yandex.ru>
Date: Wed, 1 Aug 2012 08:18:22 +0000 (+0400)
Subject: Commit forgotten admin/coccinelle/symbol.cocci.
X-Git-Tag: emacs-24.2.90~929
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=015a2738eb575f9dc07ea5e589eb88c8e071930a;p=emacs.git

Commit forgotten admin/coccinelle/symbol.cocci.
---

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 @@
+// 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)
+)