changeset 30844:947edf38ac6f

(Fccl_program_p): Docstring modified. (Fccl_execute): Likewise. (Fccl_execute_on_string): Likewise.
author Kenichi Handa <handa@m17n.org>
date Wed, 16 Aug 2000 10:49:31 +0000
parents 57a1453efb15
children dcfcae58d8d6
files src/ccl.c
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/ccl.c	Wed Aug 16 10:48:41 2000 +0000
+++ b/src/ccl.c	Wed Aug 16 10:49:31 2000 +0000
@@ -1785,7 +1785,8 @@
 #ifdef emacs
 
 DEFUN ("ccl-program-p", Fccl_program_p, Sccl_program_p, 1, 1, 0,
-  "Return t if OBJECT is a CCL program name or a compiled CCL program code.")
+  "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;
 {
@@ -1817,7 +1818,9 @@
  of Nth register.\n\
 \n\
 As side effect, each element of REGISTERS holds the value of\n\
- corresponding register after the execution.")
+ corresponding register after the execution.\n\
+\n\
+See the documentation of `define-ccl-program' for the detail of CCL program.")
   (ccl_prog, reg)
      Lisp_Object ccl_prog, reg;
 {
@@ -1869,7 +1872,9 @@
 It returns the contents of write buffer as a string,\n\
  and as side effect, STATUS is updated.\n\
 If the optional 5th arg UNIBYTE-P is non-nil, the returned string\n\
-is a unibyte string.  By default it is a multibyte string.")
+is a unibyte string.  By default it is a multibyte string.\n\
+\n\
+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;
 {