Hi Nick,
Thanks for your info.
I did what that page suggested and here is the debug info: (Emacs 23.1 and Orgmode 6.33b)
Debugger entered--Lisp error: (wrong-type-argument listp "TODO")
cdr("TODO")
(mapcar (lambda (x) (if ... ... x)) (cdr entry))
(setq kwds (mapcar (lambda ... ...) (cdr entry)))
(while (setq entry (pop def-todo)) (insert "#+READONLY\n") (setq kwds (mapcar ... ...)) (insert "#+TODO: " (mapconcat ... kwds " ") "\n") (setq dwds (member "|" kwds) twds (org-delete-all dwds kwds) todo-kwds (org-delete-all twds todo-kwds) done-kwds (org-delete-all dwds done-kwds)))
(save-current-buffer (set-buffer temp-buffer) (while (setq entry ...) (insert "#+READONLY\n") (setq kwds ...) (insert "#+TODO: " ... "\n") (setq dwds ... twds ... todo-kwds ... done-kwds ...)) (when (or todo-kwds done-kwds) (insert "#+TODO: " ... " | " ... "\n")) (setq def-tags (mapcar ... def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags ...)) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat ... tags " ") "\n") (insert "#+DRAWERS: " (mapconcat ... drawers " ") "\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when (file-exists-p ...) (insert "* [[file:agendas.org][Agenda Views]]\n")) (while (setq entry ...) (setq file ... link-name ...) (insert ...)) (push (cons org-mobile-index-file ...) org-mobile-checksum-files))
(with-current-buffer temp-buffer (while (setq entry ...) (insert "#+READONLY\n") (setq kwds ...) (insert "#+TODO: " ... "\n") (setq dwds ... twds ... todo-kwds ... done-kwds ...)) (when (or todo-kwds done-kwds) (insert "#+TODO: " ... " | " ... "\n")) (setq def-tags (mapcar ... def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags ...)) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat ... tags " ") "\n") (insert "#+DRAWERS: " (mapconcat ... drawers " ") "\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when (file-exists-p ...) (insert "* [[file:agendas.org][Agenda Views]]\n")) (while (setq entry ...) (setq file ... link-name ...) (insert ...)) (push (cons org-mobile-index-file ...) org-mobile-checksum-files))
(prog1 (with-current-buffer temp-buffer (while ... ... ... ... ...) (when ... ...) (setq def-tags ...) (setq def-tags ...) (setq tags ...) (setq tags ...) (setq tags ...) (insert "#+TAGS: " ... "\n") (insert "#+DRAWERS: " ... "\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when ... ...) (while ... ... ...) (push ... org-mobile-checksum-files)) (with-current-buffer temp-buffer (write-region nil nil temp-file nil 0)))
(unwind-protect (prog1 (with-current-buffer temp-buffer ... ... ... ... ... ... ... ... ... ... ... ... ...) (with-current-buffer temp-buffer ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(let ((temp-file ...) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))
(with-temp-file (expand-file-name org-mobile-index-file org-mobile-directory) (while (setq entry ...) (insert "#+READONLY\n") (setq kwds ...) (insert "#+TODO: " ... "\n") (setq dwds ... twds ... todo-kwds ... done-kwds ...)) (when (or todo-kwds done-kwds) (insert "#+TODO: " ... " | " ... "\n")) (setq def-tags (mapcar ... def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags ...)) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat ... tags " ") "\n") (insert "#+DRAWERS: " (mapconcat ... drawers " ") "\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when (file-exists-p ...) (insert "* [[file:agendas.org][Agenda Views]]\n")) (while (setq entry ...) (setq file ... link-name ...) (insert ...)) (push (cons org-mobile-index-file ...) org-mobile-checksum-files))
(let ((files-alist ...) (def-todo ...) (def-tags ...) file link-name todo-kwds done-kwds tags drawers entry kwds dwds twds) (org-prepare-agenda-buffers (mapcar ... files-alist)) (setq done-kwds (org-uniquify org-done-keywords-for-agenda)) (setq todo-kwds (org-delete-all done-kwds ...)) (setq drawers (org-uniquify org-drawers-for-agenda)) (setq tags (org-uniquify ...)) (with-temp-file (expand-file-name org-mobile-index-file org-mobile-directory) (while ... ... ... ... ...) (when ... ...) (setq def-tags ...) (setq def-tags ...) (setq tags ...) (setq tags ...) (setq tags ...) (insert "#+TAGS: " ... "\n") (insert "#+DRAWERS: " ... "\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when ... ...) (while ... ... ...) (push ... org-mobile-checksum-files)))
org-mobile-create-index-file()
(save-window-excursion (org-mobile-check-setup) (org-mobile-prepare-file-lists) (run-hooks (quote org-mobile-pre-push-hook)) (message "Creating agendas...") (let (...) (org-mobile-create-sumo-agenda)) (message "Creating agendas...done") (org-save-all-org-buffers) (message "Copying files...") (org-mobile-copy-agenda-files) (message "Writing index file...") (org-mobile-create-index-file) (message "Writing checksums...") (org-mobile-write-checksums) (run-hooks (quote org-mobile-post-push-hook)))
(save-excursion (save-window-excursion (org-mobile-check-setup) (org-mobile-prepare-file-lists) (run-hooks ...) (message "Creating agendas...") (let ... ...) (message "Creating agendas...done") (org-save-all-org-buffers) (message "Copying files...") (org-mobile-copy-agenda-files) (message "Writing index file...") (org-mobile-create-index-file) (message "Writing checksums...") (org-mobile-write-checksums) (run-hooks ...)))
(let ((org-agenda-buffer-name "*SUMO*") (org-agenda-filter org-agenda-filter) (org-agenda-redo-command org-agenda-redo-command)) (save-excursion (save-window-excursion ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
(let ((a-buffer ...)) (let (... ... ...) (save-excursion ...)) (redraw-display) (when (and a-buffer ...) (if ... ... ...)))
org-mobile-push()
call-interactively(org-mobile-push nil nil)
Thanks!
Xin
The topic is different but the suggestion still holds:Xin Shi <shixin111@gmail.com> wrote:
> Hello Experts,
>
> I'm using Emacs 23.1 with orgmode 6.33b.
>
> When I use "Push Files and Views" in MobileOrg in Emacs, I got error message:
>
> Writing index file...
> byte-code: Wrong type argument: listp, "TODO"
>
> Any suggestions?
>
http://thread.gmane.org/gmane.emacs.orgmode/20039/focus=20040
Nick