From: Tatsuya Kinoshita <t...@vega.ocn.ne.jp> said
Subject: [emacs-w3m:10980] Re: Bug#537327: w3m-el can't render 
http://www.crummy.com/software/BeautifulSoup/documentation.html
Message-ID: <20090803.204534.59000234.tats%nob...@tats.iris.ne.jp>
Date: Mon, 03 Aug 2009 20:45:34 +0900 (JST)

> Hi emacs-w3m developers,
> 
> This bug is forwarded from Debian bug tracking system:
> http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=537327
> 
> (If possible, please preserve 457...@bugs.debian.org in replies.)
> 
> On July 17, 2009 at 12:56PM +1000,
> trentbuck (at gmail.com) wrote:
> 
>> Package: w3m-el-snapshot
>> Version: 1.4.344+0.20090405-1
>> Severity: normal
>> 
>> This URL works in w3m but not in w3m-el:
>> 
>>     http://www.crummy.com/software/BeautifulSoup/documentation.html
>> 
>> To reproduce this:
>> 
>>     emacs -Q -l /etc/emacs/site-start.d/50w3m-el-snapshot.el --eval 
>> '(w3m-browse-url 
>> "http://www.crummy.com/software/BeautifulSoup/documentation.html";)'
>> 
>> The contents of *Messages* is
>> 
>>     ("emacs" "-Q" "-l" "/etc/emacs/site-start.d/50w3m-el-snapshot.el" 
>> "--eval" "(w3m-browse-url 
>> \"http://www.crummy.com/software/BeautifulSoup/documentation.html\";)")
>>     For information about GNU Emacs and the GNU system, type C-h C-a.
>>     error in process sentinel: w3m-fontify-anchors: Wrong type argument: 
>> number-or-marker-p, nil
>>     error in process sentinel: Wrong type argument: number-or-marker-p, nil

Thank you for your report.

I just installed this patch to CVS Head.

-- 
Hideyuki SHIRAI (mailto:shi...@meadowy.org)

Index: w3m.el
===================================================================
RCS file: /cvsroot/w3m-shirai/emacs-w3m/w3m.el,v
retrieving revision 1.1260
retrieving revision 1.1261
diff -u -r1.1260 -r1.1261
--- w3m.el      30 Jul 2009 00:34:06 -0000      1.1260
+++ w3m.el      4 Aug 2009 01:12:05 -0000       1.1261
@@ -3457,8 +3457,9 @@
   ;; is replaced from "&" and embedded in the w3m's halfdump should be
   ;; restored into "&" some time.
   (let ((start 0) (buf))
-    (while (string-match "&amp;" str start)
-      (setq buf (cons "&" (cons (substring str start (match-beginning 0)) buf))
+    (while (string-match "\\(&amp;\\)\\|\\([\t\r\f\n]+\\)" str start)
+      (setq buf (cons (if (match-beginning 1) "&" " ")
+                     (cons (substring str start (match-beginning 0)) buf))
            start (match-end 0)))
     (apply (function concat)
           (nreverse (cons (substring str start) buf)))))



-- 
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org

Reply via email to