# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1121963159 0
# Node ID eba4132141c186a35095a0dbe9a14e131736ccc4
# Parent  339bbffbcd0503d858318a29c33086bf3c920802
(Fregister_ccl_program): Fix typos in docstring.
(Fccl_execute_on_string): Likewise; add usage info.

diff -r 339bbffbcd05 -r eba4132141c1 src/ccl.c
--- a/src/ccl.c	Thu Jul 21 16:06:33 2005 +0000
+++ b/src/ccl.c	Thu Jul 21 16:25:59 2005 +0000
@@ -2209,7 +2209,7 @@
        3, 5, 0,
        doc: /* Execute CCL-PROGRAM with initial STATUS on STRING.
 
-CCL-PROGRAM is a symbol registered by register-ccl-program,
+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,7 +2230,8 @@
 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.  */)
+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,8 +2298,8 @@
 
 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.
+       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)