Turn off replacing of disputed keys for the read-date keymap
authorCarsten Dominik <carsten.dominik@gmail.com>
Sun, 8 Sep 2013 05:33:18 +0000 (8 07:33 +0200)
committerCarsten Dominik <carsten.dominik@gmail.com>
Sun, 8 Sep 2013 05:33:18 +0000 (8 07:33 +0200)
* lisp/org.el (org-read-date-minibuffer-local-map): Don't replace disputed
keys when defining this keymap.
(org-read-date: Remove unnecessary binding of `org-replace-disputed-keys'.

This original fix did not work, thanks to Miro Bezjak for showing what
the proper fix should be.

lisp/org.el

index 7766277..b7d97b0 100644 (file)
@@ -16120,7 +16120,8 @@ So these are more for recording a certain time/date."
 (defvar org-read-date-inactive)
 
 (defvar org-read-date-minibuffer-local-map
-  (let ((map (make-sparse-keymap)))
+  (let* ((org-replace-disputed-keys nil)
+        ((map (make-sparse-keymap))))
     (set-keymap-parent map minibuffer-local-map)
     (org-defkey map (kbd ".")
                 (lambda () (interactive)
@@ -16280,7 +16281,6 @@ user."
                                          (calendar-current-date))))
                (org-eval-in-calendar nil t)
                (let* ((old-map (current-local-map))
-                      (org-replace-disputed-keys nil)
                       (map (copy-keymap calendar-mode-map))
                       (minibuffer-local-map
                        (copy-keymap org-read-date-minibuffer-local-map)))