From d6a2768b48917f5a8c67552fd5ff6b68653fdee8 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 20 Oct 2009 03:22:06 -0400 Subject: [PATCH] Show "Habit" in modeline when habits are displayed --- lisp/ChangeLog | 6 ++++++ lisp/org-agenda.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8074b2ef2..22803b4a1 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-10-20 John Wiegley + + * org-agenda.el (org-agenda-set-mode-name): Show Habit in the + modeline when habits are being displayed (if that module is being + loaded). + 2009-10-20 Carsten Dominik * org-agenda.el (org-agenda-next-line): New command. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 298b9693f..c32c4f9bb 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5643,8 +5643,10 @@ When called with a prefix argument, include all archive files as well." (if org-agenda-entry-text-mode " ETxt" "") (if org-agenda-include-diary " Diary" "") (if org-agenda-use-time-grid " Grid" "") + (if (and (boundp 'org-habit-show-habits) + org-habit-show-habits) " Habit" "") (if (consp org-agenda-show-log) " LogAll" - (if org-agenda-show-log " Log" "")) + (if org-agenda-show-log " Log" "")) (if (or org-agenda-filter (get 'org-agenda-filter :preset-filter)) (concat " {" (mapconcat