diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-27 10:05:54 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-27 10:05:54 +0100 |
commit | fe805ed97ca8e1aebb3ffd5806c985bbc0f3643f (patch) | |
tree | f022cdd867ce75e6147cf0e952f0bbfb646bb0fe | |
parent | 9b4b890da271aad513b60e55b8e2c9f7f22bdbb9 (diff) | |
download | org-mode-fe805ed97ca8e1aebb3ffd5806c985bbc0f3643f.tar.gz |
Fix commit de3380
Thanks to Leo Liu for providing a patch.
-rw-r--r-- | lisp/org.el | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lisp/org.el b/lisp/org.el index ede9e59..d4f1866 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)))) |