From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.devel Subject: xml.el bug Date: Thu, 07 Oct 2004 10:06:56 +0900 Organization: Emacsen advocacy group Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1097111253 10738 80.91.229.6 (7 Oct 2004 01:07:33 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 7 Oct 2004 01:07:33 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Oct 07 03:07:18 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CFMkY-0000jm-00 for ; Thu, 07 Oct 2004 03:07:18 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CFMrG-0006WS-H8 for ged-emacs-devel@m.gmane.org; Wed, 06 Oct 2004 21:14:14 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CFMrA-0006WN-4Q for emacs-devel@gnu.org; Wed, 06 Oct 2004 21:14:08 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CFMr9-0006WB-Ng for emacs-devel@gnu.org; Wed, 06 Oct 2004 21:14:07 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CFMr9-0006W8-K7 for emacs-devel@gnu.org; Wed, 06 Oct 2004 21:14:07 -0400 Original-Received: from [69.61.11.2] (helo=washington.hostforweb.net) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1CFMkI-0004Np-JT for emacs-devel@gnu.org; Wed, 06 Oct 2004 21:07:02 -0400 Original-Received: from localhost ([127.0.0.1]) by washington.hostforweb.net with esmtpa (Exim 4.42) id 1CFMkM-00055U-0c for emacs-devel@gnu.org; Wed, 06 Oct 2004 21:07:06 -0400 Original-To: emacs-devel@gnu.org X-Face: #kKnN,xUnmKia.'[pp`; Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu; B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:i39gSgvOulmGVe59Ym5HE9+iXEs= X-Hashcash: 1:17:041007:emacs-devel@gnu.org::sGvCymfuFnJPkHcv:00000000000000000000000000000000000000000006xC X-Antivirus-Scanner: Clean mail though you should still use an Antivirus X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.hostforweb.net X-AntiAbuse: Original Domain - gnu.org X-AntiAbuse: Originator/Caller UID/GID - [0 0] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:28014 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:28014 Hi, I got an error while parsing BBC news using shimbun[1] and xml.el. Here's a Lisp form which reproduces the same error as the case of parsing the contents of: http://www.bbc.co.uk/syndication/feeds/news/ukfs_news/world/rss091.xml (xml-substitute-special "The chief of Guinea-Bissau's army is killed by rebel soldiers in what is described as a "revolt" over unpaid wages.") [1] Shimbun is a library, a part of emacs-w3m. The backtrace is: Debugger entered--Lisp error: (wrong-type-argument listp "\"") cadr("\"") (stringp (cadr expansion)) (and (eq (length expansion) 1) (stringp (cadr expansion))) (if (and (eq ... 1) (stringp ...)) (setq children (concat prev-part expansion)) (if (stringp ...) (setq children ...) (setq children ...))) (cond ((null children) (if ... ... ...)) ((stringp children) (if ... ... ...)) ((and ... ...) (setcar children ...)) ((stringp expansion) (setq children ...)) ((stringp ...) (setcar children ...) (setq children ...)) (t (setq children ...))) (let* ((this-part ...) (prev-part ...) (entity ...) (expansion ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ... ...) (t ...)) (setq point end-point)) (while (string-match "&\\([^;]+\\);" string point) (setq end-point (match-end 0)) (let* (... ... ... ...) (cond ... ... ... ... ... ...) (setq point end-point))) (let ((point 0) children end-point) (while (string-match "&\\([^;]+\\);" string point) (setq end-point ...) (let* ... ... ...)) (cond (... ...) (... ...) (... string) (t ...))) xml-substitute-special("The chief of Guinea-Bissau's army is killed by rebel soldiers in what is described as a "revolt" over unpaid wages.")