[bpt/emacs.git] / admin / coccinelle / overlay.cocci

// 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)
)
Commit	Line	Data
d8a05828 DA	1	// Change direct access to Lisp_Object fields of struct
	2	// Lisp_Overlay to MVAR. Beginning M denotes "misc", and
	3	// MVAR is likely to be used for other second-class objects.
	4	@@
	5	struct Lisp_Overlay *V;
	6	Lisp_Object O;
	7	@@
	8	(
	9	- V->start
	10	+ MVAR (V, start)
	11	\|
	12	- V->end
	13	+ MVAR (V, end)
	14	\|
	15	- V->plist
	16	+ MVAR (V, plist)
	17
	18	\|
	19
	20	- XOVERLAY (O)->start
	21	+ MVAR (XOVERLAY (O), start)
	22	\|
	23	- XOVERLAY (O)->end
	24	+ MVAR (XOVERLAY (O), end)
	25	\|
	26	- XOVERLAY (O)->plist
	27	+ MVAR (XOVERLAY (O), plist)
	28	)