admin/coccinelle/overlay.cocci

   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 )