emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] org-mobile-push breaks currently open org-agenda


From: Aaron Jensen
Subject: Re: [O] org-mobile-push breaks currently open org-agenda
Date: Fri, 10 Mar 2017 08:42:45 -0800

Hi,

> On Mar 10, 2017, at 8:20 AM, Nicolas Goaziou <address@hidden> 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: signature.asc
Description: Message signed with OpenPGP using GPGMail


reply via email to

[Prev in Thread] Current Thread [Next in Thread]