From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Jensen Subject: Re: org-mobile-push breaks currently open org-agenda Date: Fri, 10 Mar 2017 08:42:45 -0800 Message-ID: <3518F685-24D7-46FE-A402-B73D5E3DC144@gmail.com> References: <91e06e9a-f1bf-4cb6-91fa-36421b2a7671@Spark> <87zigt9k95.fsf@nicolasgoaziou.fr> Mime-Version: 1.0 (Mac OS X Mail 9.3 \(3124\)) Content-Type: multipart/signed; boundary="Apple-Mail=_7DF02E71-C50A-4538-818C-CDDAC648E201"; protocol="application/pgp-signature"; micalg=pgp-sha512 Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50541) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cmNcy-0002t7-5t for emacs-orgmode@gnu.org; Fri, 10 Mar 2017 11:42:53 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cmNcv-0003gW-0v for emacs-orgmode@gnu.org; Fri, 10 Mar 2017 11:42:52 -0500 Received: from mail-pf0-x22e.google.com ([2607:f8b0:400e:c00::22e]:36667) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cmNcu-0003fo-Od for emacs-orgmode@gnu.org; Fri, 10 Mar 2017 11:42:48 -0500 Received: by mail-pf0-x22e.google.com with SMTP id o126so43781867pfb.3 for ; Fri, 10 Mar 2017 08:42:48 -0800 (PST) In-Reply-To: <87zigt9k95.fsf@nicolasgoaziou.fr> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: Nicolas Goaziou Cc: emacs-orgmode@gnu.org --Apple-Mail=_7DF02E71-C50A-4538-818C-CDDAC648E201 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=us-ascii Hi, > On Mar 10, 2017, at 8:20 AM, Nicolas Goaziou = wrote: >=20 > Hello, >=20 > 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) >=20 > 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 --Apple-Mail=_7DF02E71-C50A-4538-818C-CDDAC648E201 Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=signature.asc Content-Type: application/pgp-signature; name=signature.asc Content-Description: Message signed with OpenPGP using GPGMail -----BEGIN PGP SIGNATURE----- Comment: GPGTools - https://gpgtools.org iQIcBAEBCgAGBQJYwteFAAoJEDlc+acZtnJMoNwP/1hX7+b8SGoSKml7XVIOflZN ZZYInNhih3SnenAWXiRFnxqBNZxIZfkkI24LVepHZWq1yVlXwvzL0CXVNeraUmjy X/0vk5NVISxlG0++HSKdGRFrZkSsjr8AmyNi6H1Dh43VkfVj4Uf8Kt7gvFJkhf5s S9vcZGoEH3SIJYuqfypRpxsPCJoRSNDrHegmIrNhNe6qGj9jSnryWmpQhu9XQT9C 897b056DodgOLyElnjPZisI+Ia5EK875QDgbPrfJ1hmtkNdY4/GXrUfInE45Gn/k acsh6Oaz4EyAddnhM3tN+Z4MTcSOMIY3g/FJKLecNvbxRsfehCc1mtZkwvarm630 XHVUmhzB4g1SlF0OPJibEZuCljh0vvBHB2f1PZAUuxbPHV5jV1pkLRBbDGcP0jHI Q5T3Bnr9F2XKnLl+McOKJ48twbEqhuwSoonJX5enbsDINkUcjvl6qjTzTw55Ec63 VbacHpeeapLDMKCPlX52/AlM3RGNv/QioSgVkiK3pJNeANqSb00HXD+RJZOPjzH1 LWOerLCJIFWcas8JFNCcHh6SmIVg4zSQAohTuqZaVPgkQrPVfpi23K+FIc1RcZCx i1L/KEZG4GiN7dpviiY32G/w91SGO1nV1DP183oJWpTU479NZmhdUXsyGun6vtFf W/ksPs09aL99wFAe8+Ak =NamB -----END PGP SIGNATURE----- --Apple-Mail=_7DF02E71-C50A-4538-818C-CDDAC648E201--