Re: [Orgmode] org-mode 7.01, error while scheduling item

[Nick Dokos]

Marcelo de Moraes Serpa <address@hidden> wrote:

> Hey guys, I'm still having this issue. I've tried downloading emacs
> again from emacsformacosx.com, but the problem is still there.
> 
> Any ideas?
> 
> Thanks,
> 
> Marcelo.
> 
> On Thu, Aug 5, 2010 at 1:37 PM, Marcelo de Moraes Serpa
> <address@hidden> wrote:
> > Hi Bastien, I've posted the backtrace, it should be in the thread, a
> > few messages earlier.
> >

I didn't find the backtrace in gmane, but I did find it eventually in
the list archive (I guess something thought it might be spam/malware and
got rid of it?) I append it (shortened to get rid of most of the binary
crud) to this mail for reference (it would be better if you reloaded the
appropriate .el files - org.el in this case - and *then* took the
backtrace.)

There are two select-window calls in org-eval-in-calendar: which one
fails?  I presume the first one, but it might be a good idea to make
sure.  Another way to ask the same thing: is there a *Calendar* buffer
popped up when you get the error? If not, why not?

Can you edebug-defun the function org-eval-in-calendar and then step
through it?

More questions than answers, but maybe something will click.

Nick


Function:
(defun org-eval-in-calendar (form &optional keepdate)
  "Eval FORM in the calendar window and return to current window.
Also, store the cursor date in variable org-ans2."
  (let ((sf (selected-frame))
        (sw (selected-window)))
    (select-window (get-buffer-window "*Calendar*" t))
    (eval form)
    (when (and (not keepdate) (calendar-cursor-to-date))
      (let* ((date (calendar-cursor-to-date))
             (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date))))
        (setq org-ans2 (format-time-string "%Y-%m-%d" time))))
    (move-overlay org-date-ovl (1- (point)) (1+ (point)) (current-buffer))
    (select-window sw)
    (org-select-frame-set-input-focus sf)))

Backtrace:

Debugger entered--Lisp error: (wrong-type-argument window-live-p nil)
  select-window(nil)
  org-eval-in-calendar(nil t)
  byte-code(... [def date offset-years year month day calendar 
calendar-forward-day time-to-days calendar-current-date nil 0 error "There was 
no year zero" 31 2 4 23 10 abs zerop 100 400 365 (12 31 -1) 
org-eval-in-calendar t current-local-map copy-keymap org-defkey "
" org-calendar-select [mouse-1] org-calendar-select-mouse [mouse-2] [(meta 
shift left)] #[nil "\300\301!\207" [org-eval-in-calendar ...] 2 nil nil] [(meta 
shift right)] #[nil "\300\301!\207" [org-eval-in-calendar ...] 2 nil nil] 
[(meta shift up)] #[nil "\300\301!\207" [org-eval-in-calendar ...] 2 nil nil] 
[(meta shift down)] #[nil "\300\301!\207" [org-eval-in-calendar ...] 2 nil nil] 
[27 (shift left)] #[nil "\300\301!\207" [org-eval-in-calendar ...] 2 nil nil] 
[27 (shift right)] #[nil "\300\301!\207" [org-eval-in-calendar ...] 2 nil nil] 
[27 (shift up)] #[nil "\300\301!\207" [org-eval-in-calendar ...] 2 nil nil] [27 
(shift down)] ...] 9)
  org-read-date(nil to-time nil nil nil nil)
  byte-code(... [time what end org-scheduled-time-regexp 
org-deadline-time-regexp ts (scheduled deadline) org-back-to-heading t 
outline-next-heading re-search-forward scheduled match-string 1 apply 
encode-time org-parse-time-string org-get-compact-tod org-read-date nil to-time 
(scheduled deadline) " " org-insert-time-stamp looking-at "\\( *\\)[^
\n]*" 0 "\n" "[         ]*" throw exit "[^
\n]*?" "[^
\n]*" insert-before-markers -1 org-indent-to-column deadline closed 
replace-match "" "--+<[^>]+>" " +" 32 "[    ]*\n" 10 point-at-eol default-time 
default-input org-insert-labeled-timestamps-at-point org-scheduled-string ...] 
7)
  org-add-planning-info(scheduled nil closed)
  org-schedule(nil)
  call-interactively(org-schedule nil nil)