diff src/ccl.c @ 109360:f37b85834f7e

Convert more function definitions to standard C. * src/xdisp.c (window_box_edges, handle_single_display_spec) (display_string): Convert definition to standard C. * src/scroll.c (do_direct_scrolling, scrolling_1): * src/dispnew.c (allocate_matrices_for_frame_redisplay) (mirrored_line_dance): * src/coding.c (code_convert_string): * src/charset.c (map_charset_chars): * src/ccl.c (Fccl_program_p, Fccl_execute, Fccl_execute_on_string) (Fregister_ccl_program, Fregister_code_conversion_map): * src/keyboard.c (kbd_buffer_nr_stored): Likewise. (head_table): Make static and const.

--- a/src/ccl.c	Mon Jul 12 16:16:38 2010 +0200
+++ b/src/ccl.c	Mon Jul 12 09:32:53 2010 -0700
@@ -1968,8 +1968,7 @@
 DEFUN ("ccl-program-p", Fccl_program_p, Sccl_program_p, 1, 1, 0,
        doc: /* Return t if OBJECT is a CCL program name or a compiled CCL program code.
 See the documentation of `define-ccl-program' for the detail of CCL program.  */)
-     (object)
-     Lisp_Object object;
+  (Lisp_Object object)
 {
   Lisp_Object val;
 
@@ -2003,8 +2002,7 @@
 
 See the documentation of `define-ccl-program' for a definition of CCL
 programs.  */)
-     (ccl_prog, reg)
-     Lisp_Object ccl_prog, reg;
+  (Lisp_Object ccl_prog, Lisp_Object reg)
 {
   struct ccl_program ccl;
   int i;
@@ -2058,8 +2056,7 @@
 
 See the documentation of `define-ccl-program' for the detail of CCL program.
 usage: (ccl-execute-on-string CCL-PROGRAM STATUS STRING &optional CONTINUE UNIBYTE-P)  */)
-     (ccl_prog, status, str, contin, unibyte_p)
-     Lisp_Object ccl_prog, status, str, contin, unibyte_p;
+  (Lisp_Object ccl_prog, Lisp_Object status, Lisp_Object str, Lisp_Object contin, Lisp_Object unibyte_p)
 {
   Lisp_Object val;
   struct ccl_program ccl;
@@ -2189,8 +2186,7 @@
 CCL-PROG should be a compiled CCL program (vector), or nil.
 If it is nil, just reserve NAME as a CCL program name.
 Return index number of the registered CCL program.  */)
-     (name, ccl_prog)
-     Lisp_Object name, ccl_prog;
+     (Lisp_Object name, Lisp_Object ccl_prog)
 {
   int len = ASIZE (Vccl_program_table);
   int idx;
@@ -2265,8 +2261,7 @@
        2, 2, 0,
        doc: /* Register SYMBOL as code conversion map MAP.
 Return index number of the registered map.  */)
-     (symbol, map)
-     Lisp_Object symbol, map;
+  (Lisp_Object symbol, Lisp_Object map)
 {
   int len = ASIZE (Vcode_conversion_map_vector);
   int i;