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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9bd20fc99561a9d2b274ff0175a3100ba7df825c..c48d3c7e23ea86de405090099ee1eb80d395f1e0 100644 (file)
--- 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 e1fb658f8606c9dd4da30eb69da2e8cffb6b9f91..bd4d7373b2f3ef53d03904600a897bc58726bc22 100644 (file)
--- 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: