tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Agenda: Show [] in mode line when restricted

This commit is contained in:
Carsten Dominik 2010-02-25 16:05:00 +01:00
parent 094593e0db
commit 8bb1c06a3a
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-02-25 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-set-mode-name): Show if the agenda is
restricted, as an agenda mode.
2010-02-25 Bastien Guerry <bzg@altern.org> 2010-02-25 Bastien Guerry <bzg@altern.org>
* org.el (org-set-property): Remove useless space in the prompt. * org.el (org-set-property): Remove useless space in the prompt.

1
lisp/org-agenda.el
View File

@ -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." "Set the mode name to indicate all the small mode settings."
(setq mode-name (setq mode-name
(concat "Org-Agenda" (concat "Org-Agenda"
(if (get 'org-agenda-files 'org-restrict) " []" "")
(if (equal org-agenda-ndays 1) " Day" "") (if (equal org-agenda-ndays 1) " Day" "")
(if (equal org-agenda-ndays 7) " Week" "") (if (equal org-agenda-ndays 7) " Week" "")
(if org-agenda-follow-mode " Follow" "") (if org-agenda-follow-mode " Follow" "")