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:07:55 +0200 Message-ID: <878w5xtp2s.fsf@gmx.ch> References: <87lj9xsdrx.fsf@gmx.ch> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1277852974 22404 80.91.229.12 (29 Jun 2010 23:09:34 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 29 Jun 2010 23:09:34 +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:09:33 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 1OTjvm-00019g-9x for geh-help-gnu-emacs@m.gmane.org; Wed, 30 Jun 2010 01:09:31 +0200 Original-Received: from localhost ([127.0.0.1]:50599 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTjvl-00051F-Mf for geh-help-gnu-emacs@m.gmane.org; Tue, 29 Jun 2010 19:09:29 -0400 Original-Received: from [140.186.70.92] (port=46150 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTjvI-00051A-Rs for help-gnu-emacs@gnu.org; Tue, 29 Jun 2010 19:09:02 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OTjvH-0000Rb-1s for help-gnu-emacs@gnu.org; Tue, 29 Jun 2010 19:09:00 -0400 Original-Received: from mx4.rz.ruhr-uni-bochum.de ([134.147.64.53]:33978) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1OTjvG-0000RO-EB for help-gnu-emacs@gnu.org; Tue, 29 Jun 2010 19:08:59 -0400 X-Queued: (qmail 7590 invoked from network); 29 Jun 2010 23:08:57 -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:08:57 -0000 X-Queued: (qmail 754 invoked by uid 281); 29 Jun 2010 23:08:57 -0000 X-Qmailscanner: from 95.223.105.84 (0axIjN0NPR+3X1cTD9GHFQ==@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.026083 secs); 29 Jun 2010 23:08:57 -0000 Original-Received: from ip-95-223-105-84.unitymediagroup.de (HELO kamaloka) (0axIjN0NPR+3X1cTD9GHFQ==@95.223.105.84) by c2-3-4.rz.ruhr-uni-bochum.de with (DHE-RSA-AES128-SHA encrypted) SMTP; 29 Jun 2010 23:08:57 -0000 In-Reply-To: <87lj9xsdrx.fsf@gmx.ch> (Sven Bretfeld's message of "29 Jun 2010 23:57:22 +0200") 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:74016 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 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(# 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 ... ...)) #) eval((let nil (save-excursion (save-window-excursion ... ...)) #)) org-let(nil (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (let ... ... ...))) #) 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)