Re: org-mobile-push breaks currently open org-agenda

[Aaron Jensen <aaronjensen@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 8891 bytes --]

Hi,

> On Mar 10, 2017, at 8:20 AM, Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote:
> 
> Hello,
> 
> Could you use Org uncompiled (C-u M-x org-reload)? your backtrace is
> hardly usable.

Thank you for the tip. Here is the trace:

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  set-buffer(nil)
  (save-current-buffer (set-buffer buffer) buffer-undo-list)
  (let ((--cline (org-current-line)) (--cmd this-command) (--buf1 (current-buffer)) (--buf2 buffer) (--undo1 buffer-undo-list) (--undo2 (save-current-buffer (set-buffer buffer) buffer-undo-list)) --c1 --c2) (save-current-buffer (set-buffer buffer) (widen) (goto-char pos) (org-show-context (quote agenda)) (let ((current-prefix-arg arg)) (call-interactively (quote org-todo))) (and (bolp) (forward-char 1)) (setq newhead (org-get-heading)) (if (and (and (boundp (quote org-agenda-headline-snapshot-before-repeat)) org-agenda-headline-snapshot-before-repeat) (not (equal org-agenda-headline-snapshot-before-repeat newhead)) todayp) (progn (setq newhead org-agenda-headline-snapshot-before-repeat just-one t))) (save-excursion (org-back-to-heading) (move-marker org-last-heading-marker (point)))) (beginning-of-line 1) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (org-agenda-change-all-lines newhead hdmarker (quote fixface) just-one)) (set-window-configuration wconfig))) (if (and (boundp (quote org-clock-out-when-done)) org-clock-out-when-done) (progn (string-match (concat "^" (regexp-opt org-done-keywords-for-agenda)) newhead) (org-agenda-unmark-clocking-task))) (org-move-to-column col) (org-agenda-mark-clocking-task) (if org-agenda-allow-remote-undo (progn (setq --c1 (org-verify-change-for-undo --undo1 (save-current-buffer (set-buffer --buf1) buffer-undo-list)) --c2 (org-verify-change-for-undo --undo2 (save-current-buffer (set-buffer --buf2) buffer-undo-list))) (if (or --c1 --c2) (progn (and --c1 (save-current-buffer (set-buffer --buf1) (undo-boundary))) (and --c2 (save-current-buffer (set-buffer --buf2) (undo-boundary))) (setq org-agenda-undo-list (cons (list --cmd --cline --buf1 --c1 --buf2 --c2) org-agenda-undo-list)))))))
  (let* ((col (current-column)) (marker (or (org-get-at-bol (quote org-marker)) (org-agenda-error))) (buffer (marker-buffer marker)) (pos (marker-position marker)) (hdmarker (org-get-at-bol (quote org-hd-marker))) (todayp (org-agenda-today-p (org-get-at-bol (quote day)))) (inhibit-read-only t) org-agenda-headline-snapshot-before-repeat newhead just-one) (let ((--cline (org-current-line)) (--cmd this-command) (--buf1 (current-buffer)) (--buf2 buffer) (--undo1 buffer-undo-list) (--undo2 (save-current-buffer (set-buffer buffer) buffer-undo-list)) --c1 --c2) (save-current-buffer (set-buffer buffer) (widen) (goto-char pos) (org-show-context (quote agenda)) (let ((current-prefix-arg arg)) (call-interactively (quote org-todo))) (and (bolp) (forward-char 1)) (setq newhead (org-get-heading)) (if (and (and (boundp (quote org-agenda-headline-snapshot-before-repeat)) org-agenda-headline-snapshot-before-repeat) (not (equal org-agenda-headline-snapshot-before-repeat newhead)) todayp) (progn (setq newhead org-agenda-headline-snapshot-before-repeat just-one t))) (save-excursion (org-back-to-heading) (move-marker org-last-heading-marker (point)))) (beginning-of-line 1) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (org-agenda-change-all-lines newhead hdmarker (quote fixface) just-one)) (set-window-configuration wconfig))) (if (and (boundp (quote org-clock-out-when-done)) org-clock-out-when-done) (progn (string-match (concat "^" (regexp-opt org-done-keywords-for-agenda)) newhead) (org-agenda-unmark-clocking-task))) (org-move-to-column col) (org-agenda-mark-clocking-task) (if org-agenda-allow-remote-undo (progn (setq --c1 (org-verify-change-for-undo --undo1 (save-current-buffer (set-buffer --buf1) buffer-undo-list)) --c2 (org-verify-change-for-undo --undo2 (save-current-buffer (set-buffer --buf2) buffer-undo-list))) (if (or --c1 --c2) (progn (and --c1 (save-current-buffer ... ...)) (and --c2 (save-current-buffer ... ...)) (setq org-agenda-undo-list (cons ... org-agenda-undo-list))))))))
  (lambda (&optional arg) "Cycle TODO state of line at point, also in Org file.\nThis changes the line at point, all other lines in the agenda referring to\nthe same tree node, and the headline of the tree node in the Org file." (interactive "P") (org-agenda-check-no-diary) (let* ((col (current-column)) (marker (or (org-get-at-bol (quote org-marker)) (org-agenda-error))) (buffer (marker-buffer marker)) (pos (marker-position marker)) (hdmarker (org-get-at-bol (quote org-hd-marker))) (todayp (org-agenda-today-p (org-get-at-bol (quote day)))) (inhibit-read-only t) org-agenda-headline-snapshot-before-repeat newhead just-one) (let ((--cline (org-current-line)) (--cmd this-command) (--buf1 (current-buffer)) (--buf2 buffer) (--undo1 buffer-undo-list) (--undo2 (save-current-buffer (set-buffer buffer) buffer-undo-list)) --c1 --c2) (save-current-buffer (set-buffer buffer) (widen) (goto-char pos) (org-show-context (quote agenda)) (let ((current-prefix-arg arg)) (call-interactively (quote org-todo))) (and (bolp) (forward-char 1)) (setq newhead (org-get-heading)) (if (and (and (boundp ...) org-agenda-headline-snapshot-before-repeat) (not (equal org-agenda-headline-snapshot-before-repeat newhead)) todayp) (progn (setq newhead org-agenda-headline-snapshot-before-repeat just-one t))) (save-excursion (org-back-to-heading) (move-marker org-last-heading-marker (point)))) (beginning-of-line 1) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (org-agenda-change-all-lines newhead hdmarker (quote fixface) just-one)) (set-window-configuration wconfig))) (if (and (boundp (quote org-clock-out-when-done)) org-clock-out-when-done) (progn (string-match (concat "^" (regexp-opt org-done-keywords-for-agenda)) newhead) (org-agenda-unmark-clocking-task))) (org-move-to-column col) (org-agenda-mark-clocking-task) (if org-agenda-allow-remote-undo (progn (setq --c1 (org-verify-change-for-undo --undo1 (save-current-buffer ... buffer-undo-list)) --c2 (org-verify-change-for-undo --undo2 (save-current-buffer ... buffer-undo-list))) (if (or --c1 --c2) (progn (and --c1 ...) (and --c2 ...) (setq org-agenda-undo-list ...))))))))()
  apply((lambda (&optional arg) "Cycle TODO state of line at point, also in Org file.\nThis changes the line at point, all other lines in the agenda referring to\nthe same tree node, and the headline of the tree node in the Org file." (interactive "P") (org-agenda-check-no-diary) (let* ((col (current-column)) (marker (or (org-get-at-bol (quote org-marker)) (org-agenda-error))) (buffer (marker-buffer marker)) (pos (marker-position marker)) (hdmarker (org-get-at-bol (quote org-hd-marker))) (todayp (org-agenda-today-p (org-get-at-bol (quote day)))) (inhibit-read-only t) org-agenda-headline-snapshot-before-repeat newhead just-one) (let ((--cline (org-current-line)) (--cmd this-command) (--buf1 (current-buffer)) (--buf2 buffer) (--undo1 buffer-undo-list) (--undo2 (save-current-buffer (set-buffer buffer) buffer-undo-list)) --c1 --c2) (save-current-buffer (set-buffer buffer) (widen) (goto-char pos) (org-show-context (quote agenda)) (let ((current-prefix-arg arg)) (call-interactively (quote org-todo))) (and (bolp) (forward-char 1)) (setq newhead (org-get-heading)) (if (and (and (boundp ...) org-agenda-headline-snapshot-before-repeat) (not (equal org-agenda-headline-snapshot-before-repeat newhead)) todayp) (progn (setq newhead org-agenda-headline-snapshot-before-repeat just-one t))) (save-excursion (org-back-to-heading) (move-marker org-last-heading-marker (point)))) (beginning-of-line 1) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (org-agenda-change-all-lines newhead hdmarker (quote fixface) just-one)) (set-window-configuration wconfig))) (if (and (boundp (quote org-clock-out-when-done)) org-clock-out-when-done) (progn (string-match (concat "^" (regexp-opt org-done-keywords-for-agenda)) newhead) (org-agenda-unmark-clocking-task))) (org-move-to-column col) (org-agenda-mark-clocking-task) (if org-agenda-allow-remote-undo (progn (setq --c1 (org-verify-change-for-undo --undo1 (save-current-buffer ... buffer-undo-list)) --c2 (org-verify-change-for-undo --undo2 (save-current-buffer ... buffer-undo-list))) (if (or --c1 --c2) (progn (and --c1 ...) (and --c2 ...) (setq org-agenda-undo-list ...)))))))) nil)
  org-agenda-todo()
  funcall-interactively(org-agenda-todo)
  call-interactively(org-agenda-todo nil nil)
  command-execute(org-agenda-todo)


> 
> Also, would you mind sending your message as plain test? It seems to be
> HTML-only.

Supposedly this email is plain text, please let me know if that is not the case. I did not realize that my email client sent HTML only.

Thanks,

Aaron

[-- Attachment #2: Message signed with OpenPGP using GPGMail --]
[-- Type: application/pgp-signature, Size: 842 bytes --]