From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 4 Jun 2008 13:42:34 +0000 (+0000)
Subject: (define-ccl-program): Add `doc-string' declaration.
X-Git-Tag: emacs-pretest-23.0.90~5114
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=301f6b87c1e9fdd6b3a6c236a4bdc64853bde311;p=emacs.git

(define-ccl-program): Add `doc-string' declaration.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9bd20fc9956..c48d3c7e23e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
 	* echistory.el (electric-history-map): Define within defvar.
 	Add docstring.
 
+	* international/ccl.el (define-ccl-program): Add `doc-string'
+	declaration.
+
 2008-06-04  Juanma Barranquero  <lekktu@gmail.com>
 
 	* face-remap.el (variable-pitch-mode): Reflow docstrings.
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index e1fb658f860..bd4d7373b2f 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1304,6 +1304,7 @@ 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: