From 1aabee4a8a9f89dafc8b0d7a67814b923ee54652 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sun, 22 Mar 2009 17:04:46 +0100 Subject: [PATCH] Read-date: New hook The new hook `org-read-date-minibuffer-setup-hook'. --- lisp/ChangeLog | 3 +++ lisp/org.el | 8 ++++++++ 2 files changed, 11 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 277ffd00e..1227bf57f 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-03-22 Carsten Dominik + * org.el (org-read-date-minibiffer-septup-hook): New hook. + (org-read-date): Run the new hook. + * org-mac-message.el (org-mac-flagged-mail): New group. (org-mac-mail-account): New variable. (org-mac-create-flagged-mail, org-mac-insert-flagged-mail): New diff --git a/lisp/org.el b/lisp/org.el index 105baf5ba..d3442a85e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -2052,6 +2052,13 @@ When nil, only the minibuffer will be available." (defvaralias 'org-popup-calendar-for-date-prompt 'org-read-date-popup-calendar)) +(defcustom org-read-date-minibuffer-setup-hook nil + "Hook to be used to set up keys for the date/time interface. +Add key definitions to `minibuffer-local-map', which will be a temporary +copy." + :group 'org-time + :type 'hook) + (defcustom org-extend-today-until 0 "The hour when your day really ends. Must be an integer. This has influence for the following applications: @@ -11705,6 +11712,7 @@ user." (org-defkey minibuffer-local-map "<" (lambda () (interactive) (org-eval-in-calendar '(scroll-calendar-right 1)))) + (run-hooks 'org-read-date-minibuffer-setup-hook) (unwind-protect (progn (use-local-map map) -- 2.11.4.GIT