diff options
| author | John Paul Wallington | 2008-06-04 13:49:43 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2008-06-04 13:49:43 +0000 |
| commit | 50b3db29b32d1dc215bbf5e57055bad1bc37d865 (patch) | |
| tree | 15ff269c3e70f8154b6374146fc10a96ecce15f0 | |
| parent | 301f6b87c1e9fdd6b3a6c236a4bdc64853bde311 (diff) | |
| download | emacs-50b3db29b32d1dc215bbf5e57055bad1bc37d865.tar.gz emacs-50b3db29b32d1dc215bbf5e57055bad1bc37d865.zip | |
(define-ccl-program): Move `doc-string' decl down.
| -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." | |||
| 1304 | 1304 | ||
| 1305 | ;;;###autoload | 1305 | ;;;###autoload |
| 1306 | (defmacro define-ccl-program (name ccl-program &optional doc) | 1306 | (defmacro define-ccl-program (name ccl-program &optional doc) |
| 1307 | (declare (doc-string 3)) | ||
| 1308 | "Set NAME the compiled code of CCL-PROGRAM. | 1307 | "Set NAME the compiled code of CCL-PROGRAM. |
| 1309 | 1308 | ||
| 1310 | CCL-PROGRAM has this form: | 1309 | CCL-PROGRAM has this form: |
| @@ -1515,6 +1514,7 @@ MAP-IDs := MAP-ID ... | |||
| 1515 | MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET | 1514 | MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET |
| 1516 | MAP-ID := integer | 1515 | MAP-ID := integer |
| 1517 | " | 1516 | " |
| 1517 | (declare (doc-string 3)) | ||
| 1518 | `(let ((prog ,(unwind-protect | 1518 | `(let ((prog ,(unwind-protect |
| 1519 | (progn | 1519 | (progn |
| 1520 | ;; To make ,(charset-id CHARSET) works well. | 1520 | ;; To make ,(charset-id CHARSET) works well. |