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>
* 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."
(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" "")