[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: wrong-type-argument listp \.\.\.
From: |
Sven Bretfeld |
Subject: |
Re: wrong-type-argument listp \.\.\. |
Date: |
30 Jun 2010 01:07:55 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) |
Hi Drew
That was fast help. Thanks.
"Drew Adams" <drew.adams@oracle.com> writes:
>> Debugger entered--Lisp error: (wrong-type-argument listp \.\.\.)
>> newsticker--stat-num-items(Telepolis\ \(german\) new immortal)
>
> To make sense of a debugger backtrace, first load the Lisp source files that
> are
> concerned (e.g. newsticker.el), not the byte-compiled files (e.g.
> newsticker.elc).
>
> The error message is saying that function newsticker--stat-num-items expected
> a
> list argument (i.e. nil or a cons), but it instead was passed a symbol whose
> name is "...".
To be exact, the same message also occurs with some other operations,
for example org-mobile-push. So I don't think it's an error connected to
newsticker.el. Something more general must be wrong. And I can't find
it. Is there really a symbol called "..."? Can it be an encoding
problem?
Below is a debug output of org-mobile-push.
Thanks,
Sven
Debugger entered--Lisp error: (wrong-type-argument listp \.\.\.)
car(\.\.\.)
mapcar(car (("~/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") \.\.\.))
(setq org-id-files (mapcar (quote car) org-id-locations))
(progn (with-temp-buffer (condition-case nil ... ...)) (setq org-id-files
(mapcar ... org-id-locations)) (setq org-id-locations (org-id-alist-to-hash
org-id-locations)))
(if org-id-track-globally (progn (with-temp-buffer ...) (setq org-id-files
...) (setq org-id-locations ...)))
(when org-id-track-globally (with-temp-buffer (condition-case nil ... ...))
(setq org-id-files (mapcar ... org-id-locations)) (setq org-id-locations
(org-id-alist-to-hash org-id-locations)))
org-id-locations-load()
(if org-id-locations nil (org-id-locations-load))
(unless org-id-locations (org-id-locations-load))
(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("86c9cbbf-a8de-469a-a755-9850997e342d"
"/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 104 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)
Re: wrong-type-argument listp \.\.\.,
Sven Bretfeld <=