From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Sven Bretfeld" Newsgroups: gmane.emacs.help Subject: Re: wrong-type-argument listp \.\.\. Date: 30 Jun 2010 01:00:46 +0200 Message-ID: <87k4phla01.fsf@rub.de> References: <87lj9xsdrx.fsf@gmx.ch> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1277852547 21168 80.91.229.12 (29 Jun 2010 23:02:27 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 29 Jun 2010 23:02:27 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Jun 30 01:02:25 2010 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OTjou-0006LL-Th for geh-help-gnu-emacs@m.gmane.org; Wed, 30 Jun 2010 01:02:25 +0200 Original-Received: from localhost ([127.0.0.1]:51820 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTjou-0003hm-BK for geh-help-gnu-emacs@m.gmane.org; Tue, 29 Jun 2010 19:02:24 -0400 Original-Received: from [140.186.70.92] (port=45642 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTjoP-0003hW-Rz for help-gnu-emacs@gnu.org; Tue, 29 Jun 2010 19:01:55 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OTjoN-0008D8-P9 for help-gnu-emacs@gnu.org; Tue, 29 Jun 2010 19:01:53 -0400 Original-Received: from mx4.rz.ruhr-uni-bochum.de ([134.147.64.53]:59842) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1OTjoN-0008D0-6t for help-gnu-emacs@gnu.org; Tue, 29 Jun 2010 19:01:51 -0400 X-Queued: (qmail 32461 invoked from network); 29 Jun 2010 23:01:48 -0000 Original-Received: from c2-3-4.rz.ruhr-uni-bochum.de (134.147.64.5) by mx4.rz.ruhr-uni-bochum.de with SMTP; 29 Jun 2010 23:01:48 -0000 X-Queued: (qmail 29999 invoked by uid 281); 29 Jun 2010 23:01:48 -0000 X-Qmailscanner: from 95.223.105.84 (0axIjN0NPR/6avej792icw==@95.223.105.84) by c2-3-4.rz.ruhr-uni-bochum.de (envelope-from , uid 80) with qmail-scanner-2.01 (sophie: 3.05/3.7/4.53. Clear:RC:1(95.223.105.84):. Processed in 0.038013 secs); 29 Jun 2010 23:01:48 -0000 Original-Received: from ip-95-223-105-84.unitymediagroup.de (HELO kamaloka) (0axIjN0NPR/6avej792icw==@95.223.105.84) by c2-3-4.rz.ruhr-uni-bochum.de with (DHE-RSA-AES128-SHA encrypted) SMTP; 29 Jun 2010 23:01:47 -0000 In-Reply-To: (Drew Adams's message of "Tue, 29 Jun 2010 15:11:16 -0700") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAHlBMVEUTG44+RaRiYZ2Ce51+ g8K0paHDubXKwr2lqtL6+vq4uMYNAAAACXBIWXMAAABIAAAASABGyWs+AAAACXZwQWcAAAAwAAAA MADO7oxXAAABm0lEQVQ4y5XUvW7bMBAH8LOQVvZmZzGyecmgR8gjZPMiEdyyuIE2JYAi3MZOjTfJ KHP6v22PlNMhphD4BkPyT/dBmhZZaNS4CHoLn10CPkS/lwS0lQKnoLSQVCkpDbxNADoFTkIHASeg qiVVSzOqXyhTGWLbNgmt7XyVgo+ODz5ZqnszLYQvgHWnDtjlWBMNlLEjQpOFHs+QEkRHokVPdKfw Z01WMyqFgaiIGbR1tBnVCaaEmCFvVrfAULzmju2Yn1YEbeDtS9EH6Itx6Rh+9XerUMEbd/SIGRFO OZjCaL7TO9xygK2rMdIDIpQcYE0/+vt97mgxUjbBwU6QDXHcBXZh3ADm9zmDiAP0YVwN8xx76FRZ hnCJ/QQ2lOI41e7YBDgtA4gx7tFPC2xsXIecoe4f+gn6u7CO/yAv+VOxkQC5q/mUvS6nHqxzHsMm FuNNQ/SuezllMHRGhbhX8ZnzVILdz/hDFZIpPD4RPuFL2Ahi04c6GSaWqn3qUGupWq4E1BfH7btS l/+Oz4wZ0BeDncmYaY75dcz14GvgH+7sOLkk3p/rAAAAJXRFWHRkYXRlOmNyZWF0ZQAyMDEwLTA1 LTAzVDAxOjIxOjI3KzAyOjAwKoichQAAACV0RVh0ZGF0ZTptb2RpZnkAMjAxMC0wNS0wM1QwMToy MToyNyswMjowMFvVJDkAAAAASUVORK5CYII= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:74015 Archived-At: Hi Drew That was fast help. Thanks. "Drew Adams" 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 t= hat 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 expe= cted a > list argument (i.e. nil or a cons), but it instead was passed a symbol wh= ose > 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-b5d= 0-a61500218760") ("~/aktuell/myconf/from-mobile.org" "2dce7212-3994-4ccc-a9= 64-6569914fc17f") ("~/aktuell/myconf/from-mobile.org" "177580d9-f0f0-472b-9= 0d0-278bf503e07d") ("~/aktuell/myconf/mygtd.org" "c4ceb0b6-b854-41ab-91b6-e= 3b1d40d8289") ("~/aktuell/myconf/mygtd.org" "8850e02f-9e33-456b-8654-e55cf1= 604036") ("~/aktuell/myconf/mygtd.org" "593cf7d5-5db7-4b39-bc7f-190c4acb4f5= 1") ("~/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-has= h org-id-locations))) (if org-id-track-globally (progn (with-temp-buffer ...) (setq org-id-file= s ...) (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 (abb= reviate-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-i= d-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/ak= tuell/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(# create) (if (org-bound-and-true-p org-mobile-force-id-on-agenda-items) (org-id-ge= t 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 :ORIGI= NAL_ID: " id "\n :END:\n"))) (when (setq id (if ... ... ...)) (insert " :PROPERTIES:\n :ORIGINAL_I= D: " 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 "=3D+$") (delete-region ... ..= .)) ((get-text-property ... ...) (setq in-date nil) (setq app ...) (setq sh= ort ...) (when ... ... ...) (when app ... ... ...) (insert "* ")) ((get-tex= t-property ... ...) (setq in-date t) (insert "** ")) ((setq m ...) (setq se= xp ...) (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 "#+READO= NLY\n") (insert all) (goto-char (point-min)) (while (not ...) (cond ... ...= ... ... ...) (beginning-of-line 2)) (push (cons ... ...) org-mobile-checks= um-files)) (with-current-buffer temp-buffer (org-mode) (insert "#+READONLY\n") (inse= rt 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-che= cksum-files)) (with-current-buffer temp-buffer (write-region nil nil temp-f= ile nil 0))) (unwind-protect (prog1 (with-current-buffer temp-buffer ... ... ... ... .= .. ...) (with-current-buffer temp-buffer ...)) (and (buffer-name temp-buffe= r) (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) (got= o-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-fi= le file (org-mode) (insert "#+READONLY\n") (insert all) (goto-char ...) (wh= ile ... ... ...) (push ... org-mobile-checksum-files)) (message "Agenda wri= tten 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-wri= te-agenda-for-mobile file)) ((string-match "\\.html?\\'" file) (set-buffer = ...) (when ... ... ... ...) (write-file file) (kill-buffer ...) (message "H= TML written to %s" file)) ((string-match "\\.ps\\'" file) (require ...) (fl= et ... ...) (message "Postscript written to %s" file)) ((string-match "\\.p= df\\'" file) (require ...) (flet ... ...) (call-process "ps2pdf" nil nil ni= l ... ...) (message "PDF written to %s" file)) ((string-match "\\.ics\\'" f= ile) (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 ...) (w= hile ... ...) (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-f= iltered)) (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) (or= g-agenda-unmark-filtered-text) (with-temp-buffer ... ... ... ... ...))) (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (l= et ... ... ...))) (let nil (save-excursion (save-window-excursion ... ...)) #) eval((let nil (save-excursion (save-window-excursion ... ...)) #)) org-let(nil (save-excursion (save-window-excursion (org-agenda-mark-filte= red-text) (let ... ... ...))) #) org-write-agenda("/home/sven/webdav/org/agendas.org" nil t) (let ((org-agenda-compact-blocks nil)) (org-write-agenda "/home/sven/webd= av/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) (whi= le 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 fi= les ...) (and ... ...))) (when files (eval (list ... ... ...)) (set-buffer org-agenda-buffer-name)= (while files (eval ...)) (and (get-buffer org-agenda-buffer-name) (kill-bu= ffer org-agenda-buffer-name))) (while cmds (setq cmd (pop cmds) thiscmdkey (car cmd) cmd-or-set (nth 2 c= md) opts (nth ... cmd) files (nth ... cmd)) (if (stringp files) (setq files= ...)) (when files (eval ...) (set-buffer org-agenda-buffer-name) (while fi= les ...) (and ... ...))) (save-window-excursion (while cmds (setq cmd ... thiscmdkey ... cmd-or-se= t ... opts ... files ...) (if ... ...) (when files ... ... ... ...))) (let ((cmds ...) (pop-up-frames nil) (dir default-directory) pars cmd thi= scmdkey files opts cmd-or-set) (while parameters (push ... pars)) (setq par= s (reverse pars)) (save-window-excursion (while cmds ... ... ...))) (lambda (&rest parameters) "Run all custom agenda commands that have a fi= le 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 "C= annot 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 agen= das...") (let (...) (org-mobile-create-sumo-agenda)) (message "Creating age= ndas...done") (org-save-all-org-buffers) (message "Copying files...") (org-= mobile-copy-agenda-files) (message "Writing index file...") (org-mobile-cre= ate-index-file) (message "Writing checksums...") (org-mobile-write-checksum= s) (run-hooks (quote org-mobile-post-push-hook))) (save-excursion (save-window-excursion (org-mobile-check-setup) (org-mobi= le-prepare-file-lists) (run-hooks ...) (message "Creating agendas...") (let= ... ...) (message "Creating agendas...done") (org-save-all-org-buffers) (m= essage "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-fil= ter) (org-agenda-redo-command org-agenda-redo-command)) (save-excursion (sa= ve-window-excursion ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ))) (let ((a-buffer ...)) (let (... ... ...) (save-excursion ...)) (redraw-di= splay) (when (and a-buffer ...) (if ... ... ...))) org-mobile-push() call-interactively(org-mobile-push nil nil) > > Be sure you have the same source code on the various platforms, for the f= iles in > question. If newsticker uses some other file (e.g. a data file), then mak= e sure > that file is also the same across platforms.=20 > > HTH. Probably someone else can help more - someone familiar with the new= sticker > code, for instance. > --=20 Mit freundlichen Gr=C3=BC=C3=9Fen Sven Bretfeld ___________________________________ Prof. Dr. Sven Bretfeld \ CEntrum f=C3=BCr CERES \ REligionswissenschaftliche ________\_Studien__________________ Ruhr-Universit=C3=A4t Bochum Universit=C3=A4tsstra=C3=9Fe 150 D-44780 Bochum http://www.ruhr-uni-bochum.de/ceres/de/organisation/beteiligte/sven_bretfel= d.html