From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 4 Jun 2008 13:49:43 +0000 (+0000)
Subject: (define-ccl-program): Move `doc-string' decl down.
X-Git-Tag: emacs-pretest-23.0.90~5113
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50b3db29b32d1dc215bbf5e57055bad1bc37d865;p=emacs.git

(define-ccl-program): Move `doc-string' decl down.
---

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.