From a96a1d43db8cf18fc4d10992f1f96ad94e5aba13 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sat, 9 Aug 2008 15:53:32 +0000 Subject: [PATCH] (defun-cvs-mode): Add `doc-string' decl. --- lisp/ChangeLog | 4 ++++ lisp/pcvs.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5e0f9282bd3..c6be6d06d4b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-08-10 John Paul Wallington + + * pcvs.el (defun-cvs-mode): Add `doc-string' decl. + 2008-08-08 Chong Yidong * battery.el (battery-echo-area-format, battery-status-function): diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 03eeee677e6..9b73fb292bd 100644 --- 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 -- 2.11.4.GIT