[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
signature.asc
Description: Message signed with OpenPGP using GPGMail