diff options
| author | John Paul Wallington <jpw@pobox.com> | 2008-06-04 13:49:43 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2008-06-04 13:49:43 +0000 |
| commit | 50b3db29b32d1dc215bbf5e57055bad1bc37d865 (patch) | |
| tree | 15ff269c3e70f8154b6374146fc10a96ecce15f0 /lisp/international/ccl.el | |
| parent | 301f6b87c1e9fdd6b3a6c236a4bdc64853bde311 (diff) | |
| download | emacs-50b3db29b32d1dc215bbf5e57055bad1bc37d865.tar.gz | |
(define-ccl-program): Move `doc-string' decl down.
Diffstat (limited to 'lisp/international/ccl.el')
| -rw-r--r-- | lisp/international/ccl.el | 2 |
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. |