From mboxrd@z Thu Jan 1 00:00:00 1970 From: Xin Shi Subject: Re: Error when push fils in MobileOrg Date: Fri, 4 Dec 2009 17:38:57 -0500 Message-ID: <5236d6f90912041438t70c8cf42hc8b7337cb8028845@mail.gmail.com> References: <5236d6f90912031356i7c98c48ay8d4c9494f4b55ec5@mail.gmail.com> <16227.1259878615@gamaville.dokosmarshall.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============1701153457==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NGgnq-0008U2-GD for emacs-orgmode@gnu.org; Fri, 04 Dec 2009 17:39:06 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NGgnl-0008Mp-GV for emacs-orgmode@gnu.org; Fri, 04 Dec 2009 17:39:06 -0500 Received: from [199.232.76.173] (port=60513 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NGgnl-0008MY-5b for emacs-orgmode@gnu.org; Fri, 04 Dec 2009 17:39:01 -0500 Received: from mail-px0-f198.google.com ([209.85.216.198]:39497) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NGgnk-0004DH-LY for emacs-orgmode@gnu.org; Fri, 04 Dec 2009 17:39:01 -0500 Received: by pxi36 with SMTP id 36so691250pxi.26 for ; Fri, 04 Dec 2009 14:38:59 -0800 (PST) In-Reply-To: <16227.1259878615@gamaville.dokosmarshall.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: nicholas.dokos@hp.com Cc: emacs-orgmode --===============1701153457== Content-Type: multipart/alternative; boundary=00504502b089fde3ef0479eec5c3 --00504502b089fde3ef0479eec5c3 Content-Type: text/plain; charset=ISO-8859-1 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 wrote: > Xin Shi 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 > --00504502b089fde3ef0479eec5c3 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable 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)


Debu= gger entered--Lisp error: (wrong-type-argument listp "TODO")
=A0 cdr("TODO")
=A0 (mapcar (lambda (x) (if ... ... x)) (cdr e= ntry))
=A0 (setq kwds (mapcar (lambda ... ...) (cdr entry)))
=A0 (whi= le (setq entry (pop def-todo)) (insert "#+READONLY\n") (setq kwds= (mapcar ... ...)) (insert "#+TODO: " (mapconcat ... kwds " = ") "\n") (setq dwds (member "|" kwds) twds (org-de= lete-all dwds kwds) todo-kwds (org-delete-all twds todo-kwds) done-kwds (or= g-delete-all dwds done-kwds)))
=A0 (save-current-buffer (set-buffer temp-buffer) (while (setq entry ...) (= insert "#+READONLY\n") (setq kwds ...) (insert "#+TODO: &quo= t; ... "\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-e= xists-p ...) (insert "* [[file:agendas.= org][Agenda Views]]\n")) (while (setq entry ...) (setq file ... li= nk-name ...) (insert ...)) (push (cons org-mobile-index-file ...) org-mobil= e-checksum-files))
=A0 (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 t= odo-kwds done-kwds) (insert "#+TODO: " ... " | " ... &q= uot;\n")) (setq def-tags (mapcar ... def-tags)) (setq def-tags (delq n= il def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort t= ags ...)) (setq tags (append def-tags tags nil)) (insert "#+TAGS: &quo= t; (mapconcat ... tags " ") "\n") (insert "#+DRAWE= RS: " (mapconcat ... drawers " ") "\n") (insert &q= uot;#+ALLPRIORITIES: A B C" "\n") (when (file-exists-p ...) = (insert "* [[file:agendas.org][Agen= da Views]]\n")) (while (setq entry ...) (setq file ... link-name ...) = (insert ...)) (push (cons org-mobile-index-file ...) org-mobile-checksum-fi= les))
=A0 (prog1 (with-current-buffer temp-buffer (while ... ... ... ... ...) (wh= en ... ...) (setq def-tags ...) (setq def-tags ...) (setq tags ...) (setq t= ags ...) (setq tags ...) (insert "#+TAGS: " ... "\n") (= insert "#+DRAWERS: " ... "\n") (insert "#+ALLPRIOR= ITIES: A B C" "\n") (when ... ...) (while ... ... ...) (push= ... org-mobile-checksum-files)) (with-current-buffer temp-buffer (write-re= gion nil nil temp-file nil 0)))
=A0 (unwind-protect (prog1 (with-current-buffer temp-buffer ... ... ... ...= ... ... ... ... ... ... ... ... ...) (with-current-buffer temp-buffer ...)= ) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
=A0 (let ((= temp-file ...) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... = ...)))
=A0 (with-temp-file (expand-file-name org-mobile-index-file org-mobile-dire= ctory) (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 &q= uot;#+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 d= ef-tags tags nil)) (insert "#+TAGS: " (mapconcat ... tags " = ") "\n") (insert "#+DRAWERS: " (mapconcat ... draw= ers " ") "\n") (insert "#+ALLPRIORITIES: A B C&quo= t; "\n") (when (file-exists-p ...) (insert "* [[file:agendas.org][Agenda Views]]\n")) (while (s= etq entry ...) (setq file ... link-name ...) (insert ...)) (push (cons org-= mobile-index-file ...) org-mobile-checksum-files))
=A0 (let ((files-alist ...) (def-todo ...) (def-tags ...) file link-name to= do-kwds done-kwds tags drawers entry kwds dwds twds) (org-prepare-agenda-bu= ffers (mapcar ... files-alist)) (setq done-kwds (org-uniquify org-done-keyw= ords-for-agenda)) (setq todo-kwds (org-delete-all done-kwds ...)) (setq dra= wers (org-uniquify org-drawers-for-agenda)) (setq tags (org-uniquify ...)) = (with-temp-file (expand-file-name org-mobile-index-file org-mobile-director= y) (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)))
=A0 org-mobile-create-index-file()
=A0 (save-window-excursion (org-mobil= e-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-mobil= e-copy-agenda-files) (message "Writing index file...") (org-mobil= e-create-index-file) (message "Writing checksums...") (org-mobile= -write-checksums) (run-hooks (quote org-mobile-post-push-hook)))
=A0 (save-excursion (save-window-excursion (org-mobile-check-setup) (org-mo= bile-prepare-file-lists) (run-hooks ...) (message "Creating agendas...= ") (let ... ...) (message "Creating agendas...done") (org-sa= ve-all-org-buffers) (message "Copying files...") (org-mobile-copy= -agenda-files) (message "Writing index file...") (org-mobile-crea= te-index-file) (message "Writing checksums...") (org-mobile-write= -checksums) (run-hooks ...)))
=A0 (let ((org-agenda-buffer-name "*SUMO*") (org-agenda-filter or= g-agenda-filter) (org-agenda-redo-command org-agenda-redo-command)) (save-e= xcursion (save-window-excursion ... ... ... ... ... ... ... ... ... ... ...= ... ... ...)))
=A0 (let ((a-buffer ...)) (let (... ... ...) (save-excursion ...)) (redraw-= display) (when (and a-buffer ...) (if ... ... ...)))
=A0 org-mobile-push= ()
=A0 call-interactively(org-mobile-push nil nil)

Thanks!
Xin


On Thu, Dec 3, 2009 at 5:16 PM, Nick Dok= os <nicholas.= dokos@hp.com> wrote:
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 g= ot error message:
>
> Writing index file...
> byte-code: Wrong type argument: listp, "TODO"
>
> Any suggestions?
>

The topic is different but the suggestion still holds:

=A0 =A0http://thread.gmane.org/gmane.emacs.orgmode/200= 39/focus=3D20040

Nick

--00504502b089fde3ef0479eec5c3-- --===============1701153457== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --===============1701153457==--