[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: パスにス ペースがある NAME タグ



From: Hideyuki SHIRAI (白井秀行) <shirai@meadowy.org> 曰く
Subject: [emacs-w3m:07279] Re: パスにスペースがある NAME タグ
Message-ID: <20041217.112829.143315232.shirai.hideyuki@rdmg.mgcs.mei.co.jp>
Date: Fri, 17 Dec 2004 11:28:29 +0900 (JST)

> > local にある html ファイルへのパスにスペースが含まれている時に、NAME タ
> > グが正しく解析されていないようです。
> 
> おそらくこういうことだと思います。わかりやすいバグだけど見つける
> のは大変なパターンです :-)

> --- w3m.el	10 Dec 2004 18:56:21 +0900	1.913
> +++ w3m.el	17 Dec 2004 11:26:42 +0900	
> @@ -2905,10 +2905,11 @@

うーむ。これだけだと、違うファイルだと思って、リロードしちゃいま
すね。local は特別扱いしちゃっていいような気がします。

# CVS HEAD にだけ当てておきます。

-- 
白井秀行@リモート、リモート(謎)

Index: w3m.el
===================================================================
RCS file: /cvsroot/w3m-shirai/emacs-w3m/w3m.el,v
retrieving revision 1.913
diff -u -u -r1.913 w3m.el
--- w3m.el	2004/12/10 10:44:29	1.913
+++ w3m.el	2004/12/17 03:23:57
@@ -2903,17 +2903,19 @@
 	    (setq end (match-beginning 0))
 	    (delete-region (match-beginning 1) (match-end 1))
 	    (setq href (w3m-expand-url (w3m-decode-anchor-string href)))
-	    (setq href (if (and (string-match w3m-url-components-regexp href)
-				(match-beginning 8))
-			   (concat (w3m-url-transfer-encode-string
-				    (substring href 0 (match-beginning 8))
-				    (w3m-charset-to-coding-system charset))
-				   "#" (match-string 9 href))
+	    (unless (w3m-url-local-p href)
+	      (setq href (if (and (string-match w3m-url-components-regexp href)
+				  (match-beginning 8))
+			     (let ((tmp (match-string 9 href)))
+			       (concat (w3m-url-transfer-encode-string
+					(substring href 0 (match-beginning 8))
+					(w3m-charset-to-coding-system charset))
+				       "#" tmp))
 			 (w3m-url-transfer-encode-string
 			  href
-			  (w3m-charset-to-coding-system charset)))
-		  hseq (or (and (null hseq) 0) (abs hseq))
-		  w3m-max-anchor-sequence (max hseq w3m-max-anchor-sequence))
+			  (w3m-charset-to-coding-system charset)))))
+	    (setq hseq (or (and (null hseq) 0) (abs hseq)))
+	    (setq w3m-max-anchor-sequence (max hseq w3m-max-anchor-sequence))
 	    (w3m-add-text-properties start end
 				     (list 'face (if (w3m-arrived-p href)
 						     'w3m-arrived-anchor-face