diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2019-10-23 12:13:54 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2019-10-23 12:13:54 +0200 |
commit | 28bb1c81fad9caf4d7867d4f17451c5b21df33bb (patch) | |
tree | 95214e6402e48ebf0529a074f763cb7c133fdd9c | |
parent | 80b29acba3847c1756fa3c143d6991964f7273ca (diff) | |
download | org-mode-28bb1c81fad9caf4d7867d4f17451c5b21df33bb.tar.gz |
agenda: Clarification of error message
* lisp/org-agenda.el (org-agenda-check-type): Mention also 'component'
in the error message since it could be just the unallowed component
in a composed agenda buffer from which some action has been
triggered.
-rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index abd9d53..4c3223c 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7308,14 +7308,14 @@ subtree." ;;; Agenda commands (defun org-agenda-check-type (error &rest types) - "Check if agenda buffer is of allowed type. + "Check if agenda buffer or component is of allowed type. If ERROR is non-nil, throw an error, otherwise just return nil. Allowed types are `agenda' `todo' `tags' `search'." (cond ((not org-agenda-type) (error "No Org agenda currently displayed")) ((memq org-agenda-type types) t) (error - (error "Not allowed in %s-type agenda buffers" org-agenda-type)) + (error "Not allowed in '%s'-type agenda buffer or component" org-agenda-type)) (t nil))) (defun org-agenda-Quit () @@ -7561,7 +7561,7 @@ an already existing regexp filter." "Narrow to entries matching regexp: "))))) (push flt org-agenda-regexp-filter) (org-agenda-filter-apply org-agenda-regexp-filter 'regexp)))))) - + (defvar org-agenda-effort-filter nil) (defun org-agenda-filter-by-effort (strip-or-accumulate) "Filter agenda entries by effort. |