On 2018-12-04 4:10 a.m., Nicolas Goaziou wrote:
Michael Hoffman <gmane4-hoff...@sneakemail.com> writes:
1. What exactly did you do?

- Execute:
(with-eval-after-load 'org
   (add-hook 'org-shiftleft-final-hook 'windmove-left))
(org-agenda nil "a")
(split-window-horizontally)

- Type S-left

2. What did you expect to happen?

(windmove-left)

3. What happened instead?

Received message "Command not allowed in this line"

That means one of the commands called by `org-shiftleft' failed.

Thanks for your response.

It does not appear that `org-shiftleft' is called at all in agenda buffers now. 
The `org-agenda-do-date-earlier'. C-h k S-left gives me:

```
<S-left> runs the command org-agenda-do-date-earlier (found in
org-agenda-mode-map), which is an interactive compiled Lisp function
in ‘org-agenda.el’.

It is bound to <S-left>, C-c C-x <left>, <menu-bar> <Agenda>
<Deadline/Schedule> <Change Time -1 hour>.

(org-agenda-do-date-earlier ARG)

Not documented.
```

`org-agenda.el' has `(org-defkey org-agenda-mode-map [(shift left)] 
'org-agenda-do-date-earlier)` rather than a call to `org-shiftleft'.

I agree that the expected behavior would be for `org-shiftleft' to be called 
here and to call `org-agenda-do-date-earlier' when not overridden.

Michael


Reply via email to