coccinelle skip comments

* src/bytecode.c (exec_byte_code):
* src/keyboard.c (read_char, read_char_1):
* src/print.c (PRINTDECLARE, PRINTPREPARE, PRINTFINISH, PRINTCHAR):
  Skip these functions and macros in Coccinelle.

diff --git a/src/bytecode.c b/src/bytecode.c
index d46b453..96dd95d 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -423,6 +423,7 @@ bcall0 (Lisp_Object f)
    ARGS are pushed on the stack according to ARGS_TEMPLATE before
    executing BYTESTR.  */
 
+/* {{coccinelle:skip_start}} */
 Lisp_Object
 exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
                Lisp_Object args_template, ptrdiff_t nargs, Lisp_Object *args)
@@ -1951,6 +1952,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
 
   return result;
 }
+/* {{coccinelle:skip_end}} */
 
 void
 syms_of_bytecode (void)

diff --git a/src/keyboard.c b/src/keyboard.c
index d61960a..72ec1b4 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2415,6 +2415,7 @@ struct read_char_state
 
 static Lisp_Object read_char_1 (bool, volatile struct read_char_state *);
 
+/* {{coccinelle:skip_start}} */
 Lisp_Object
 read_char (int commandflag, Lisp_Object map,
           Lisp_Object prev_event,
@@ -3279,6 +3280,7 @@ read_char_1 (bool jump, volatile struct read_char_state *state)
 #undef polling_stopped_here
 #undef orig_kboard
 }
+/* {{coccinelle:skip_end}} */
 
 /* Record a key that came from a mouse menu.
    Record it for echoing, for this-command-keys, and so on.  */

diff --git a/src/print.c b/src/print.c
index 6ed0f51..a0f9c1d 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -96,6 +96,7 @@ bool print_output_debug_flag EXTERNALLY_VISIBLE = 1;
    Use PRINTCHAR to output one character,
    or call strout to output a block of characters.  */
 
+/* {{coccinelle:skip_start}} */
 #define PRINTDECLARE                                                   \
    struct buffer *old = current_buffer;                                        \
    ptrdiff_t old_point = -1, start_point = -1;                         \
@@ -196,6 +197,7 @@ bool print_output_debug_flag EXTERNALLY_VISIBLE = 1;
    set_buffer_internal (old);
 
 #define PRINTCHAR(ch) printchar (ch, printcharfun)
+/* {{coccinelle:skip_end}} */
 
 /* This is used to restore the saved contents of print_buffer
    when there is a recursive call to print.  */