From 28bb1c81fad9caf4d7867d4f17451c5b21df33bb Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Wed, 23 Oct 2019 12:13:54 +0200 Subject: [PATCH] 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. --- lisp/org-agenda.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index abd9d53f8..4c3223c08 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.