[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
w3m-expand-url
- From: Yuuichi Teranishi <teranisi@xxxxxxxxxx>
- Date: Mon, 10 Sep 2001 19:56:43 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 01471
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..."