Re: [Orgmode] Error when push fils in MobileOrg

[Xin Shi]

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

On Thu, Dec 3, 2009 at 5:16 PM, Nick Dokos <address@hidden> wrote:

Xin Shi <address@hidden> 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?
>

The topic is different but the suggestion still holds:

   http://thread.gmane.org/gmane.emacs.orgmode/20039/focus=20040

Nick