From 8bb1c06a3a0921d1a5f7d0816780b97bd8f95c5d Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 25 Feb 2010 16:05:00 +0100 Subject: [PATCH] Agenda: Show [] in mode line when restricted --- lisp/ChangeLog | 5 +++++ lisp/org-agenda.el | 1 + 2 files changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fe7c98a6d..70605a1f7 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-02-25 Carsten Dominik + + * org-agenda.el (org-agenda-set-mode-name): Show if the agenda is + restricted, as an agenda mode. + 2010-02-25 Bastien Guerry * org.el (org-set-property): Remove useless space in the prompt. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 30c6efd5a..d1cebad27 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5865,6 +5865,7 @@ When called with a prefix argument, include all archive files as well." "Set the mode name to indicate all the small mode settings." (setq mode-name (concat "Org-Agenda" + (if (get 'org-agenda-files 'org-restrict) " []" "") (if (equal org-agenda-ndays 1) " Day" "") (if (equal org-agenda-ndays 7) " Week" "") (if org-agenda-follow-mode " Follow" "")