From fe805ed97ca8e1aebb3ffd5806c985bbc0f3643f Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 27 Jan 2013 10:05:54 +0100 Subject: [PATCH] Fix commit de3380 Thanks to Leo Liu for providing a patch. --- lisp/org.el | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ede9e59c1..d4f186659 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15578,57 +15578,57 @@ So these are more for recording a certain time/date." (defvar org-read-date-minibuffer-local-map (let ((map (make-sparse-keymap))) (set-keymap-parent map minibuffer-local-map) - (org-defkey minibuffer-local-map [(meta shift left)] + (org-defkey map [(meta shift left)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-month 1)))) - (org-defkey minibuffer-local-map [(meta shift right)] + (org-defkey map [(meta shift right)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-month 1)))) - (org-defkey minibuffer-local-map [(meta shift up)] + (org-defkey map [(meta shift up)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-year 1)))) - (org-defkey minibuffer-local-map [(meta shift down)] + (org-defkey map [(meta shift down)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-year 1)))) - (org-defkey minibuffer-local-map [?\e (shift left)] + (org-defkey map [?\e (shift left)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-month 1)))) - (org-defkey minibuffer-local-map [?\e (shift right)] + (org-defkey map [?\e (shift right)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-month 1)))) - (org-defkey minibuffer-local-map [?\e (shift up)] + (org-defkey map [?\e (shift up)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-year 1)))) - (org-defkey minibuffer-local-map [?\e (shift down)] + (org-defkey map [?\e (shift down)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-year 1)))) - (org-defkey minibuffer-local-map [(shift up)] + (org-defkey map [(shift up)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-week 1)))) - (org-defkey minibuffer-local-map [(shift down)] + (org-defkey map [(shift down)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-week 1)))) - (org-defkey minibuffer-local-map [(shift left)] + (org-defkey map [(shift left)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-day 1)))) - (org-defkey minibuffer-local-map [(shift right)] + (org-defkey map [(shift right)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-day 1)))) - (org-defkey minibuffer-local-map "?" + (org-defkey map "?" (lambda () (interactive) (org-eval-in-calendar '(diary-view-entries)) (message ""))) - (org-defkey minibuffer-local-map ">" + (org-defkey map ">" (lambda () (interactive) (org-eval-in-calendar '(scroll-calendar-left 1)))) - (org-defkey minibuffer-local-map "<" + (org-defkey map "<" (lambda () (interactive) (org-eval-in-calendar '(scroll-calendar-right 1)))) - (org-defkey minibuffer-local-map "\C-v" + (org-defkey map "\C-v" (lambda () (interactive) (org-eval-in-calendar '(calendar-scroll-left-three-months 1)))) - (org-defkey minibuffer-local-map "\M-v" + (org-defkey map "\M-v" (lambda () (interactive) (org-eval-in-calendar '(calendar-scroll-right-three-months 1))))