Mercurial > emacs

changeset 95541:781cfe985f14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-ccl-program): Move `doc-string' decl down.
author John Paul Wallington <jpw@pobox.com>
date Wed, 04 Jun 2008 13:49:43 +0000
parents f873c4c3bf75
children dfffc14d8182
files lisp/international/ccl.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.