mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 23:17:49 +00:00
Code Releases Activity

compat: Silence byte-compiler

Browse source 
* lisp/org-compat.el (org-cycle-hide-drawers): Ignore optional
argument.
This commit is contained in:
Nicolas Goaziou 2020-05-09 19:10:47 +02:00
parent 92bc33287e
commit e73732f14a
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/org-compat.el
View file

@ -663,11 +663,10 @@ region as a drawer without further ado."
(when (invisible-p (max (1- (point)) (point-min))) (when (invisible-p (max (1- (point)) (point-min)))
(goto-char post))))))) (goto-char post)))))))
(defun org-cycle-hide-drawers (state &optional exceptions) (defun org-cycle-hide-drawers (state &optional _)
"Re-hide all drawers after a visibility state change. "Re-hide all drawers after a visibility state change.
STATE should be one of the symbols listed in the docstring of STATE should be one of the symbols listed in the docstring of
`org-cycle-hook'. When non-nil, optional argument EXCEPTIONS is `org-cycle-hook'."
a list of strings specifying which drawers should not be hidden."
(declare (obsolete "use `org-hide-drawer' instead." "Org 9.4")) (declare (obsolete "use `org-hide-drawer' instead." "Org 9.4"))
(when (and (derived-mode-p 'org-mode) (when (and (derived-mode-p 'org-mode)
(not (memq state '(overview folded contents)))) (not (memq state '(overview folded contents))))