(define-ccl-program): Add `doc-string' declaration.

2 files changed, 4 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9bd20fc9956..c48d3c7e23e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
         * echistory.el (electric-history-map): Define within defvar.
         Add docstring.
 
+        * international/ccl.el (define-ccl-program): Add `doc-string'
+        declaration.
+
 2008-06-04  Juanma Barranquero  <lekktu@gmail.com>
 
         * face-remap.el (variable-pitch-mode): Reflow docstrings.
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index e1fb658f860..bd4d7373b2f 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1304,6 +1304,7 @@ Optional arg VECTOR is a compiled CCL code of the CCL program."
 
 ;;;###autoload
 (defmacro define-ccl-program (name ccl-program &optional doc)
+  (declare (doc-string 3))
   "Set NAME the compiled code of CCL-PROGRAM.
 
 CCL-PROGRAM has this form: