From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 8 May 2021 02:41:44 +0000 (-0400)
Subject: * lisp/gnus/nnoo.el (defvoo, deffoo): Add `doc-string` property
X-Git-Tag: emacs-28.0.90~2556
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4e8a1e834d7c83341450b65d06e088c92f4316e;p=emacs.git

* lisp/gnus/nnoo.el (defvoo, deffoo): Add `doc-string` property
---

diff --git a/lisp/gnus/nnoo.el b/lisp/gnus/nnoo.el
index 7759951662a..4e8490125f1 100644
--- a/lisp/gnus/nnoo.el
+++ b/lisp/gnus/nnoo.el
@@ -34,6 +34,7 @@
 (defmacro defvoo (var init &optional doc &rest map)
   "The same as `defvar', only takes list of variables to MAP to."
   (declare (indent 2)
+           (doc-string 3)
            (debug (var init &optional doc &rest map)))
   `(prog1
        ,(if doc
@@ -44,6 +45,7 @@
 (defmacro deffoo (func args &rest forms)
   "The same as `defun', only register FUNC."
   (declare (indent 2)
+           (doc-string 3)
            (debug (&define name lambda-list def-body)))
   `(prog1
        (defun ,func ,args ,@forms)