1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index bd4d7373b2f..667092761db 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1304,7 +1304,6 @@ 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:
@@ -1515,6 +1514,7 @@ MAP-IDs := MAP-ID ...
 MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET
 MAP-ID := integer
 "
+  (declare (doc-string 3))
   `(let ((prog ,(unwind-protect
                     (progn
                       ;; To make ,(charset-id CHARSET) works well.