# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1212587383 0
# Node ID 781cfe985f14f3fbe73ed60af49f6de06b9ad353
# Parent  f873c4c3bf750dc580b0c64ce0b76e3d9eb403db
(define-ccl-program): Move `doc-string' decl down.

diff -r f873c4c3bf75 -r 781cfe985f14 lisp/international/ccl.el
--- a/lisp/international/ccl.el	Wed Jun 04 13:42:34 2008 +0000
+++ b/lisp/international/ccl.el	Wed Jun 04 13:49:43 2008 +0000
@@ -1304,7 +1304,6 @@
 
 ;;;###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-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.