From: Carsten Dominik <carsten.dominik@gmail.com>
To: Sven Bretfeld <sven.bretfeld@gmx.ch>
Cc: emacs-org <emacs-orgmode@gnu.org>
Subject: Re: org-mobile produces errors in normal org functions
Date: Tue, 13 Jul 2010 14:21:25 +0200 [thread overview]
Message-ID: <EF420B48-4AB0-4F16-8EA8-3ED026ED2C67@gmail.com> (raw)
In-Reply-To: <87tyobhyxb.fsf@gmx.ch>
Hi Sven,
does it help to remove ~/.emacs.d/.org-id-locations ?
Are you sure you are running the same version of Org on both systems?
On Jul 7, 2010, at 9:30 PM, Sven Bretfeld wrote:
> Hi all
>
> I have strange errors since I'm working with org-mobile. They seem to
> have to do with the hash-code.
>
> The first error: org-mobile-push results in a Wrong-type-argument. A
> debug-message is included at the end of this mail. After an
> unsuccessful
> run of this function, the buffers of the included org-files display
> the
> ** symbol in the status line, although the buffers haven't been
> changed
> at all. Strangely enough, after trying three of four times the command
> succeeds at last.
>
> But that's not all. Similar errors occur when I run org-archive-
> subtree.
> Since I work with org-mobile my entries contain an automatically
> produced property of the form:
>
> :PROPERTIES:
> :ID: 8307e0ed-6936-4c88-b25f-d9729873f047
> :END:
>
> If I delete this property, org-archive-subtree works on the respective
> entry.
>
> I use the same configuration on two computers, both running Ubuntu
> Lucid, Emacs 23.1.1 and the most recent version of org. These errors
> occur only on one of the computers (the one I use to sync my org files
> with a webdav server using org-mobile, if that's relevant).
>
> Does anybody have an idea what could be wrong here?
>
> Thanks for help,
>
> Sven
>
> Debugger entered--Lisp error: (wrong-type-argument hash-table-p (("~/
> aktuell/myconf/from-mobile.org" "cd2fdb6d-1ca6-45e7-
> b0d6-02044edcbbb9") ("~/aktuell/myconf/from-mobile.org"
> "fdcc85e2-51c8-4d3d-827c-396687ca5a13") ("~/aktuell/myconf/from-
> mobile.org" "a6a22b75-e0fe-44fb-b5d0-a61500218760") ("~/aktuell/
> myconf/from-mobile.org" "2dce7212-3994-4ccc-a964-6569914fc17f") ("~/
> aktuell/myconf/from-mobile.org" "177580d9-
> f0f0-472b-90d0-278bf503e07d") ("~/aktuell/myconf/mygtd.org"
> "c4ceb0b6-b854-41ab-91b6-e3b1d40d8289") ("~/aktuell/myconf/
> mygtd.org" "8850e02f-9e33-456b-8654-e55cf1604036") ("~/aktuell/
> myconf/mygtd.org" "593cf7d5-5db7-4b39-bc7f-190c4acb4f51") ("~/
> aktuell/myconf/mygtd.org" "f20acbfb-c03c-4b08-bd22-d1b614dc7688")
> ("~/aktuell/myconf/mygtd.org" "c76519fa-c2ba-434c-b3e2-
> e3838b72e6e3") \.\.\.))
> puthash("5a8cfb4f-3e43-4581-982b-44e0adcacac6" "~/aktuell/myconf/
> mygtd.org" (("~/aktuell/myconf/from-mobile.org" "cd2fdb6d-1ca6-45e7-
> b0d6-02044edcbbb9") ("~/aktuell/myconf/from-mobile.org"
> "fdcc85e2-51c8-4d3d-827c-396687ca5a13") ("~/aktuell/myconf/from-
> mobile.org" "a6a22b75-e0fe-44fb-b5d0-a61500218760") ("~/aktuell/
> myconf/from-mobile.org" "2dce7212-3994-4ccc-a964-6569914fc17f") ("~/
> aktuell/myconf/from-mobile.org" "177580d9-
> f0f0-472b-90d0-278bf503e07d") ("~/aktuell/myconf/mygtd.org"
> "c4ceb0b6-b854-41ab-91b6-e3b1d40d8289") ("~/aktuell/myconf/
> mygtd.org" "8850e02f-9e33-456b-8654-e55cf1604036") ("~/aktuell/
> myconf/mygtd.org" "593cf7d5-5db7-4b39-bc7f-190c4acb4f51") ("~/
> aktuell/myconf/mygtd.org" "f20acbfb-c03c-4b08-bd22-d1b614dc7688")
> ("~/aktuell/myconf/mygtd.org" "c76519fa-c2ba-434c-b3e2-
> e3838b72e6e3") \.\.\.))
> (progn (unless org-id-locations (org-id-locations-load)) (puthash
> id (abbreviate-file-name file) org-id-locations) (add-to-list (quote
> org-id-files) (abbreviate-file-name file)))
> (if (and org-id-track-globally id file) (progn (unless org-id-
> locations ...) (puthash id ... org-id-locations) (add-to-
> list ... ...)))
> (when (and org-id-track-globally id file) (unless org-id-locations
> (org-id-locations-load)) (puthash id (abbreviate-file-name file) org-
> id-locations) (add-to-list (quote org-id-files) (abbreviate-file-
> name file)))
> org-id-add-location("5a8cfb4f-3e43-4581-982b-44e0adcacac6" "/home/
> sven/aktuell/myconf/mygtd.org")
> (cond ((and id ... ...) id) (create (setq id ...) (org-entry-put
> pom "ID" id) (org-id-add-location id ...) id) (t nil))
> (let ((id ...)) (cond (... id) (create ... ... ... id) (t nil)))
> (save-excursion (goto-char (or pom ...)) (let (...)
> (cond ... ... ...)))
> (save-excursion (if (markerp pom) (set-buffer ...)) (save-excursion
> (goto-char ...) (let ... ...)))
> (org-with-point-at pom (let (...) (cond ... ... ...)))
> org-id-get(#<marker at 1665 in mygtd.org> create)
> (if (org-bound-and-true-p org-mobile-force-id-on-agenda-items) (org-
> id-get m (quote create)) (org-entry-get m "ID"))
> (setq id (if (org-bound-and-true-p org-mobile-force-id-on-agenda-
> items) (org-id-get m ...) (org-entry-get m "ID")))
> (if (setq id (if ... ... ...)) (progn (insert " :PROPERTIES:
> \n :ORIGINAL_ID: " id "\n :END:\n")))
> (when (setq id (if ... ... ...)) (insert " :PROPERTIES:
> \n :ORIGINAL_ID: " id "\n :END:\n"))
> (if sexp nil (insert (org-agenda-get-some-entry-text m 10 "
> " ...) "\n") (when (setq id ...) (insert " :PROPERTIES:
> \n :ORIGINAL_ID: " id "\n :END:\n")))
> (unless sexp (insert (org-agenda-get-some-entry-text m 10 "
> " ...) "\n") (when (setq id ...) (insert " :PROPERTIES:
> \n :ORIGINAL_ID: " id "\n :END:\n")))
> (cond ((looking-at "[ ]*$")) ((looking-at "=+$") (delete-
> region ... ...)) ((get-text-property ... ...) (setq in-date nil)
> (setq app ...) (setq short ...) (when ... ... ...) (when
> app ... ... ...) (insert "* ")) ((get-text-property ... ...) (setq
> in-date t) (insert "** ")) ((setq m ...) (setq sexp ...)
> (if ... ... ...) (insert ...) (end-of-line 1) (insert "\n") (unless
> sexp ... ...)))
> (while (not (eobp)) (cond (...) (... ...)
> (... ... ... ... ... ... ...) (... ... ...)
> (... ... ... ... ... ... ...)) (beginning-of-line 2))
> (save-current-buffer (set-buffer temp-buffer) (org-mode) (insert "#
> +READONLY\n") (insert all) (goto-char (point-min)) (while (not ...)
> (cond ... ... ... ... ...) (beginning-of-line 2)) (push
> (cons ... ...) org-mobile-checksum-files))
> (with-current-buffer temp-buffer (org-mode) (insert "#+READONLY\n")
> (insert all) (goto-char (point-min)) (while (not ...)
> (cond ... ... ... ... ...) (beginning-of-line 2)) (push
> (cons ... ...) org-mobile-checksum-files))
> (prog1 (with-current-buffer temp-buffer (org-mode) (insert "#
> +READONLY\n") (insert all) (goto-char ...) (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 file) (temp-buffer ...)) (unwind-protect
> (prog1 ... ...) (and ... ...)))
> (with-temp-file file (org-mode) (insert "#+READONLY\n") (insert
> all) (goto-char (point-min)) (while (not ...)
> (cond ... ... ... ... ...) (beginning-of-line 2)) (push
> (cons ... ...) org-mobile-checksum-files))
> (let ((all ...) in-date id pl prefix line app short m sexp) (with-
> temp-file file (org-mode) (insert "#+READONLY\n") (insert all) (goto-
> char ...) (while ... ... ...) (push ... org-mobile-checksum-files))
> (message "Agenda written to Org file %s" file))
> org-mobile-write-agenda-for-mobile("/home/sven/webdav/org/
> agendas.org")
> (cond ((org-bound-and-true-p org-mobile-creating-agendas) (org-
> mobile-write-agenda-for-mobile file)) ((string-match "\\.html?\\'"
> file) (set-buffer ...) (when ... ... ... ...) (write-file file)
> (kill-buffer ...) (message "HTML written to %s" file)) ((string-
> match "\\.ps\\'" file) (require ...) (flet ... ...) (message
> "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file)
> (require ...) (flet ... ...) (call-process "ps2pdf" nil nil
> nil ... ...) (message "PDF written to %s" file)) ((string-match "\
> \.ics\\'" file) (require ...) (let ... ...)) (t
> (let ... ... ... ... ... ... ...)))
> (progn (insert bs) (org-agenda-remove-marked-text (quote org-
> filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks
> (quote org-agenda-before-write-hook)) (cond (... ...)
> (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...)
> (... ... ...) (t ...)))
> (unwind-protect (progn (insert bs) (org-agenda-remove-marked-
> text ...) (while ... ...) (run-hooks ...)
> (cond ... ... ... ... ... ...)) (and (buffer-name temp-buffer) (kill-
> buffer temp-buffer)))
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect
> (progn ... ... ... ... ...) (and ... ...)))
> (with-current-buffer temp-buffer (unwind-protect
> (progn ... ... ... ... ...) (and ... ...)))
> (let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-
> protect ... ...)))
> (with-temp-buffer (insert bs) (org-agenda-remove-marked-text (quote
> org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run-
> hooks (quote org-agenda-before-write-hook)) (cond (... ...)
> (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...)
> (... ... ...) (t ...)))
> (let ((bs ...) beg) (org-agenda-unmark-filtered-text) (with-temp-
> buffer (insert bs) (org-agenda-remove-marked-text ...)
> (while ... ...) (run-hooks ...) (cond ... ... ... ... ... ...)))
> (save-window-excursion (org-agenda-mark-filtered-text) (let (...
> beg) (org-agenda-unmark-filtered-text) (with-temp-
> buffer ... ... ... ... ...)))
> (save-excursion (save-window-excursion (org-agenda-mark-filtered-
> text) (let ... ... ...)))
> (let nil (save-excursion (save-window-excursion ... ...)) #<buffer
> *SUMO*>)
> eval((let nil (save-excursion (save-window-excursion ... ...))
> #<buffer *SUMO*>))
> org-let(nil (save-excursion (save-window-excursion (org-agenda-mark-
> filtered-text) (let ... ... ...))) #<buffer *SUMO*>)
> org-write-agenda("/home/sven/webdav/org/agendas.org" nil t)
> (let ((org-agenda-compact-blocks nil)) (org-write-agenda "/home/
> sven/webdav/org/agendas.org" nil t))
> eval((let ((org-agenda-compact-blocks nil)) (org-write-agenda "/
> home/sven/webdav/org/agendas.org" nil t)))
> (while files (eval (list ... ... ...)))
> (progn (eval (list ... ... ...)) (set-buffer org-agenda-buffer-
> name) (while files (eval ...)) (and (get-buffer org-agenda-buffer-
> name) (kill-buffer org-agenda-buffer-name)))
> (if files (progn (eval ...) (set-buffer org-agenda-buffer-name)
> (while files ...) (and ... ...)))
> (when files (eval (list ... ... ...)) (set-buffer org-agenda-buffer-
> name) (while files (eval ...)) (and (get-buffer org-agenda-buffer-
> name) (kill-buffer org-agenda-buffer-name)))
> (while cmds (setq cmd (pop cmds) thiscmdkey (car cmd) cmd-or-set
> (nth 2 cmd) opts (nth ... cmd) files (nth ... cmd)) (if (stringp
> files) (setq files ...)) (when files (eval ...) (set-buffer org-
> agenda-buffer-name) (while files ...) (and ... ...)))
> (save-window-excursion (while cmds (setq cmd ... thiscmdkey ... cmd-
> or-set ... opts ... files ...) (if ... ...) (when
> files ... ... ... ...)))
> (let ((cmds ...) (pop-up-frames nil) (dir default-directory) pars
> cmd thiscmdkey files opts cmd-or-set) (while parameters (push ...
> pars)) (setq pars (reverse pars)) (save-window-excursion (while
> cmds ... ... ...)))
> (lambda (&rest parameters) "Run all custom agenda commands that
> have a file argument." (let (... ... ... pars cmd thiscmdkey files
> opts cmd-or-set) (while parameters ...) (setq pars ...) (save-window-
> excursion ...)))()
> (org-batch-store-agenda-views)
> eval((org-batch-store-agenda-views))
> org-store-agenda-views()
> (progn (org-store-agenda-views))
> (if sumo (progn (org-store-agenda-views)))
> (when sumo (org-store-agenda-views))
> (let* ((file ...) (file1 ...) (sumo ...) (org-agenda-custom-
> commands ...) (org-mobile-creating-agendas t)) (unless (file-
> writable-p file1) (error "Cannot write to file %s" file1)) (when
> sumo (org-store-agenda-views)) (when org-mobile-use-encryption (org-
> mobile-encrypt-file file1 file) (delete-file file1)))
> org-mobile-create-sumo-agenda()
> (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda))
> (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)
>
> _______________________________________________
> 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
- Carsten
next prev parent reply other threads:[~2010-07-13 12:21 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-07-07 19:30 org-mobile produces errors in normal org functions Sven Bretfeld
2010-07-13 12:21 ` Carsten Dominik [this message]
2010-07-13 17:41 ` Sven Bretfeld
2010-07-13 18:45 ` Carsten Dominik
2010-07-13 21:05 ` Shelagh Manton
2010-07-14 20:27 ` Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=EF420B48-4AB0-4F16-8EA8-3ED026ED2C67@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=sven.bretfeld@gmx.ch \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.