tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

* lisp/org-archive.el: Fix flycheck warnings

Browse source 
(org-add-archive-files):
(org-toggle-archive-tag): Document all the function arguments.
(org-timestamp-to-now): Add missing declare.
This commit is contained in:
Ihor Radchenko 2023-10-08 12:58:29 +03:00
parent 1003790d1d
commit fe19ebe4af
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org-archive.el
View file

@ -36,6 +36,7 @@
(declare-function org-datetree-find-date-create "org-datetree" (date &optional keep-restriction)) (declare-function org-datetree-find-date-create "org-datetree" (date &optional keep-restriction))
(declare-function org-inlinetask-remove-END-maybe "org-inlinetask" ()) (declare-function org-inlinetask-remove-END-maybe "org-inlinetask" ())
(declare-function org-timestamp-to-now "org" (timestamp-string &optional seconds))
;; From org-element.el ;; From org-element.el
(defvar org-element--cache-avoid-synchronous-headline-re-parsing) (defvar org-element--cache-avoid-synchronous-headline-re-parsing)
@ -153,7 +154,7 @@ archive location, but not yet deleted from the original file.")
;;;###autoload ;;;###autoload
(defun org-add-archive-files (files) (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 This implies visiting all these files and finding out what the
archive file is." archive file is."
(org-uniquify (org-uniquify
@ -589,8 +590,9 @@ don't move trees, but mark them with the ARCHIVE tag."
;;;###autoload ;;;###autoload
(defun org-toggle-archive-tag (&optional find-done) (defun org-toggle-archive-tag (&optional find-done)
"Toggle the archive tag for the current headline. "Toggle the archive tag for the current headline.
With prefix ARG, check all children of current headline and offer tagging With prefix argument FIND-DONE, check all children of current headline
the children that do not contain any open TODO items." and offer tagging the children that do not contain any open TODO
items."
(interactive "P") (interactive "P")
(if (and (org-region-active-p) org-loop-over-headlines-in-active-region) (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) (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level)