[Date Prev][Date Next][Thread Prev][][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/