From 50b3db29b32d1dc215bbf5e57055bad1bc37d865 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Wed, 4 Jun 2008 13:49:43 +0000 Subject: [PATCH] (define-ccl-program): Move `doc-string' decl down. --- lisp/international/ccl.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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. -- 2.39.2