From e4029c5b367f4227bbe74f3df6a98898c15e6001 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 1 Feb 2010 10:58:03 +0100 Subject: [PATCH] Agenda: Improve prompt message for agenda view menu Patch by Eric Fraga --- lisp/ChangeLog | 3 +++ lisp/org-agenda.el | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 61619bc40..73da3a785 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-02-01 Carsten Dominik + * org-agenda.el (org-agenda-view-mode-dispatch): Improve the + prompt message. + * org-html.el (org-html-level-start): Use the `html-container-class' text property to set an additional class for an outline container. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 0a7c52459..769438d90 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5515,8 +5515,9 @@ With prefix ARG, go backward that many times the current span." (defun org-agenda-view-mode-dispatch () "Call one of the view mode commands." (interactive) - (message "View: [d]ay [w]eek [m]onth [y]ear [l]og [L]og-all [a]rch-trees [A]rch-files - clock[R]eport time[G]rid [[]inactive [E]ntryText include[D]iary") + (message "View: [d]ay [w]eek [m]onth [y]ear [q]uit/abort + time[G]rid [[]inactive [f]ollow [l]og [L]og-all [E]ntryText + [a]rch-trees [A]rch-files clock[R]eport include[D]iary") (let ((a (read-char-exclusive))) (case a (?d (call-interactively 'org-agenda-day-view))