[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: w3m-find-file
への要望:
method
明示
>> On 17 May 2001 20:45:25 +0900
>> 「土」== tsuchiya@pine.kuee.kyoto-u.ac.jp (TSUCHIYA Masatoshi) said as follows:
土> quick hack で実装してみました。
ごめんなさい、バグってました。正しくはこちら。
(defun w3m-find-file (file &optional type)
"w3m Interface function for local file."
(interactive
(list
(read-file-name "Filename: ")
(if current-prefix-arg
(completing-read "Content-Type: "
(mapcar (lambda (x) (cons (car x) (car x)))
w3m-content-type-alist)
nil
'require-match))))
(let ((w3m-content-type-alist w3m-content-type-alist))
(when type
(setq w3m-content-type-alist
(list (copy-sequence (assoc type w3m-content-type-alist))))
(setcar (nthcdr 1 (car w3m-content-type-alist)) ""))
(w3m-goto-url (w3m-expand-file-name-as-url file))))
土> なんていうか、乱暴な手口ですけど。
乱暴な手口だけど、まあいっか、という気分になったので、開発版には
commit しておきました。
--
土屋 雅稔 ( TSUCHIYA Masatoshi )
http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/