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

w3m-expand-url



http://a.northeye.net/ でリンクがたどれるよう、
w3m-expand-url を以下のように修正してみました。
まずかったらすみません。

Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.368
diff -u -r1.368 w3m.el
--- w3m.el	2001/09/10 03:19:42	1.368
+++ w3m.el	2001/09/10 10:40:28
@@ -2854,7 +2854,7 @@
      ((string-match "^#" url)
       (concat base url))
      ;; URL has absolute spec.
-     ((string-match "^[^:/]+:" url)
+     ((string-match "^[^:/?]+:" url)
       url)
      ((string-match "^/" url)
       (if (string-match "^\\([^:/]+://[^/]*\\)/" base)
@@ -2865,7 +2865,7 @@
 	(if (string-match "^\\([^:]+://[^/]*\\)/" base)
 	    (setq server (match-string 1 base)
 		  base (substring base (match-end 1))))
-	(setq path (expand-file-name url (file-name-directory base)))
+	(setq path (concat (file-name-directory base) url))
 	;; remove drive (for Win32 platform)
 	(if (string-match "^.:" path)
 	    (setq path (substring path (match-end 0))))

--
Yuuichi Teranishi (寺西裕一) <teranisi@gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"Love is needing to be loved..."