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

Re: w3m-expand-url



>> On Thu, 11 Oct 2001 14:09:13 +0900
>> 「渡」== watanabe@sigmaitec.co.jp (渡辺 正 / Tadashi Watanabe) said as follows:

渡> T-gnus の nnshimbun でこの ML を読ませていただいていますが、Meadow 
渡> と NT Emacs で Xref: が、
渡> Xref: http://www.namazu.orgc:/~tsuchiya/emacs-w3m/ml/msg01677.html
渡> のようになってしまいます。

以下のパッチでどうでしょうか。
--- w3m.el	2001/10/11 03:31:02	1.423
+++ w3m.el	2001/10/11 06:57:39
@@ -3005,7 +3005,14 @@
   (w3m-view-previous-page (if (integerp count) (- count) -1)))
 
 (unless (fboundp 'w3m-expand-path-name)
-  (defalias 'w3m-expand-path-name 'expand-file-name))
+  (if (memq system-type '(windows-nt OS/2 emx))
+      (defun w3m-expand-path-name (name &optional base)
+	"Convert path string NAME to the canonicalized one."
+	(let ((x (expand-file-name name base)))
+	  (if (string-match "\\`.:" x)
+	      (substring x (match-end 0))
+	    x)))
+    (defalias 'w3m-expand-path-name 'expand-file-name)))
 
 (defconst w3m-url-components-regexp
   "\\`\\(\\([^:/\\?#]+\\):\\)?\\(//\\([^/\\?#]*\\)\\)?\\([^\\?#]*\\)\\(\\?\\([^#]*\\)\\)?\\(#\\(.*\\)\\)?\\'"
;; さっそく、[emacs-w3m:01672] のアドバイスが役に立ちました。有難うご
;; ざいました > 元木さん

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )