summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2019-10-23 12:13:54 +0200
committerMarco Wahl <marcowahlsoft@gmail.com>2019-10-23 12:13:54 +0200
commit28bb1c81fad9caf4d7867d4f17451c5b21df33bb (patch)
tree95214e6402e48ebf0529a074f763cb7c133fdd9c
parent80b29acba3847c1756fa3c143d6991964f7273ca (diff)
downloadorg-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.el6
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.