(defun-cvs-mode): Add `doc-string' decl.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e0f9282bd3e666b996ef2ec589b6afcf4ed131b..c6be6d06d4bfb0c2d21058ea55ac369098305405 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-10  John Paul Wallington  <jpw@pobox.com>
+
+       * pcvs.el (defun-cvs-mode): Add `doc-string' decl.
+
 2008-08-08  Chong Yidong  <cyd@stupidchicken.com>
 
        * battery.el (battery-echo-area-format, battery-status-function):

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 03eeee677e651834ea716a927a6ece37b57ef395..9b73fb292bdcbf1ca76dba1b3f0d2501d8a4e581 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -757,7 +757,8 @@ clear what alternative to use.
 - NOARGS will get all the arguments from the *cvs* buffer and will
   always behave as if called interactively.
 - DOUBLE is the generic case."
-  (declare (debug (&define sexp lambda-list stringp ("interactive" interactive) def-body)))
+  (declare (debug (&define sexp lambda-list stringp ("interactive" interactive) def-body))
+          (doc-string 3))
   (let ((style (cvs-cdr fun))
        (fun (cvs-car fun)))
     (cond