[Emacs-diffs] Changes to emacs/src/ccl.c

[Juanma Barranquero]

Index: emacs/src/ccl.c
diff -c emacs/src/ccl.c:1.89 emacs/src/ccl.c:1.90
*** emacs/src/ccl.c:1.89        Mon Jul  4 16:06:29 2005
--- emacs/src/ccl.c     Thu Jul 21 16:25:59 2005
***************
*** 2209,2215 ****
         3, 5, 0,
         doc: /* Execute CCL-PROGRAM with initial STATUS on STRING.
  
! CCL-PROGRAM is a symbol registered by register-ccl-program,
  or a compiled code generated by `ccl-compile' (for backward compatibility,
  in this case, the execution is slower).
  
--- 2209,2215 ----
         3, 5, 0,
         doc: /* Execute CCL-PROGRAM with initial STATUS on STRING.
  
! CCL-PROGRAM is a symbol registered by `register-ccl-program',
  or a compiled code generated by `ccl-compile' (for backward compatibility,
  in this case, the execution is slower).
  
***************
*** 2230,2236 ****
  If the optional 5th arg UNIBYTE-P is non-nil, the returned string
  is a unibyte string.  By default it is a multibyte string.
  
! See the documentation of `define-ccl-program' for the detail of CCL program.  
*/)
       (ccl_prog, status, str, contin, unibyte_p)
       Lisp_Object ccl_prog, status, str, contin, unibyte_p;
  {
--- 2230,2237 ----
  If the optional 5th arg UNIBYTE-P is non-nil, the returned string
  is a unibyte string.  By default it is a multibyte string.
  
! 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;
  {
***************
*** 2297,2304 ****
  
  DEFUN ("register-ccl-program", Fregister_ccl_program, Sregister_ccl_program,
         2, 2, 0,
!        doc: /* Register CCL program CCL_PROG as NAME in `ccl-program-table'.
! 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)
--- 2298,2305 ----
  
  DEFUN ("register-ccl-program", Fregister_ccl_program, Sregister_ccl_program,
         2, 2, 0,
!        doc: /* Register CCL program CCL-PROG as NAME in `ccl-program-table'.
! 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)