Я получаю сообщение об ошибке привязки последовательности клавиш (см. Ниже).Поэтому я предполагаю, что это потому, что vimpulse использует ключ ESC сам по себе, а не в качестве замены для META.У меня отключен Vimpulse в минибуфере, но проблема все еще остается.Любые идеи?
Ошибка, которую я получаю при использовании org-read-date (например, с C-): «org-defkey: последовательность ключей ESC начинается с ключа без префикса ESC», и когда я запускаю его изскретч-буфер я получаю:
Debugger entered--Lisp error: (error "Key sequence ESC <S-left> starts with non-prefix key ESC")
define-key((keymap (M-S-down lambda nil (interactive) (org-eval-in-calendar ...)) (M-S-up lambda nil (interactive) (org-eval-in-calendar ...)) (M-S-right lambda nil (interactive) (org-eval-in-calendar ...)) (M-S-left lambda nil (interactive) (org-eval-in-calendar ...)) (menu-bar keymap (minibuf "Minibuf" keymap ... ... ... ... ... ... "Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (up . previous-history-element) (prior . previous-history-element) (down . next-history-element) (next . next-history-element) (27 . abort-recursive-edit)) [27 (shift left)] (lambda nil (interactive) (org-eval-in-calendar (quote ...))))
org-defkey((keymap (M-S-down lambda nil (interactive) (org-eval-in-calendar ...)) (M-S-up lambda nil (interactive) (org-eval-in-calendar ...)) (M-S-right lambda nil (interactive) (org-eval-in-calendar ...)) (M-S-left lambda nil (interactive) (org-eval-in-calendar ...)) (menu-bar keymap (minibuf "Minibuf" keymap ... ... ... ... ... ... "Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (up . previous-history-element) (prior . previous-history-element) (down . next-history-element) (next . next-history-element) (27 . abort-recursive-edit)) [27 (shift left)] (lambda nil (interactive) (org-eval-in-calendar (quote ...))))
(let* ((old-map ...) (map ...) (minibuffer-local-map ...)) (org-defkey map (kbd "RET") (quote org-calendar-select)) (org-defkey map [mouse-1] (quote org-calendar-select-mouse)) (org-defkey map [mouse-2] (quote org-calendar-select-mouse)) (org-defkey minibuffer-local-map [...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [27 ...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [27 ...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [27 ...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [27 ...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [...] (lambda nil ... ...)) (org-defkey minibuffer-local-map [...] (lambda nil ... ...)) (org-defkey minibuffer-local-map ">" (lambda nil ... ...)) (org-defkey minibuffer-local-map "<" (lambda nil ... ...)) (org-defkey minibuffer-local-map "" (lambda nil ... ...)) (org-defkey minibuffer-local-map "\366" (lambda nil ... ...)) (run-hooks (quote org-read-date-minibuffer-setup-hook)) (unwind-protect (progn ... ... ... ...) (remove-hook ... ...) (use-local-map old-map) (when org-read-date-overlay ... ...)))
(progn (calendar-forward-day (- ... ...)) (org-eval-in-calendar nil t) (let* (... ... ...) (org-defkey map ... ...) (org-defkey map [mouse-1] ...) (org-defkey map [mouse-2] ...) (org-defkey minibuffer-local-map [...] ...) (org-defkey minibuffer-local-map [...] ...) (org-defkey minibuffer-local-map [...] ...) (org-defkey minibuffer-local-map [...] ...) (org-defkey minibuffer-local-map [27 ...] ...) (org-defkey minibuffer-local-map [27 ...] ...) (org-defkey minibuffer-local-map [27 ...] ...) (org-defkey minibuffer-local-map [27 ...] ...) (org-defkey minibuffer-local-map [...] ...) (org-defkey minibuffer-local-map [...] ...) (org-defkey minibuffer-local-map [...] ...) (org-defkey minibuffer-local-map [...] ...) (org-defkey minibuffer-local-map ">" ...) (org-defkey minibuffer-local-map "<" ...) (org-defkey minibuffer-local-map "" ...) (org-defkey minibuffer-local-map "\366" ...) (run-hooks ...) (unwind-protect ... ... ... ...)))
(unwind-protect (progn (calendar-forward-day ...) (org-eval-in-calendar nil t) (let* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (bury-buffer "*Calendar*"))
(save-window-excursion (calendar) (unwind-protect (progn ... ... ...) (bury-buffer "*Calendar*")))
(save-excursion (save-window-excursion (calendar) (unwind-protect ... ...)))
(cond (from-string (setq ans from-string)) (org-read-date-popup-calendar (save-excursion ...)) (t (unwind-protect ... ...)))
(let* ((org-time-stamp-rounding-minutes ...) (org-dcst org-display-custom-times) (ct ...) (def ...) (defdecode ...) (dummy ...) (calendar-frame-setup nil) (calendar-setup nil) (calendar-move-hook nil) (calendar-view-diary-initially-flag nil) (calendar-view-holidays-initially-flag nil) (timestr ...) (prompt ...) ans (org-ans0 "") org-ans1 org-ans2 final) (cond (from-string ...) (org-read-date-popup-calendar ...) (t ...)) (setq final (org-read-date-analyze ans def defdecode)) (when org-read-date-analyze-forced-year (message "Year was forced into %s" ...) (ding)) (setq final (decode-time ...)) (setq org-read-date-final-answer ans) (if to-time (apply ... final) (if ... ... ...)))
org-read-date()
eval((org-read-date))
eval-expression((org-read-date) nil)
call-interactively(eval-expression nil nil)