From e995d2ed668edd9f29e9a8aeaf39bb0eb039e856 Mon Sep 17 00:00:00 2001 From: Nicholas Vollmer Date: Thu, 30 Sep 2021 16:07:15 -0400 Subject: [PATCH] org-archive.el: Fix checkdoc warnings * org-archive.el: Fix checkdoc warnings. --- lisp/org-archive.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 0943869a8..db8c02049 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -148,7 +148,7 @@ archive location, but not yet deleted from the original file.") ;;;###autoload (defun org-add-archive-files (files) - "Splice the archive files into the list of files. + "Splice the archive files into the list of FILES. This implies visiting all these files and finding out what the archive file is." (org-uniquify @@ -580,8 +580,9 @@ don't move trees, but mark them with the ARCHIVE tag." ;;;###autoload (defun org-toggle-archive-tag (&optional find-done) "Toggle the archive tag for the current headline. -With prefix ARG, check all children of current headline and offer tagging -the children that do not contain any open TODO items." +When called interactively with \\[universal-argument], or FIND-DONE is +non-nil, check current headline's children and offer tagging for +children which do not contain any open TODO items." (interactive "P") (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level) -- 2.33.0