[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: M-x w3m
>>>>> In [emacs-w3m : No.01703]
>>>>> TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:
土屋さん> 要は、w3m が起動済みの時に M-x w3m RET C-k RET という操作で、
土屋さん> 単にpopup するようにしたかったわけです。
美しい!
これなら prefix arg は要りませんねえ。こんな感じでどうでしょう?
(defun w3m (&optional url)
"Visit the World Wide Web page using the external command w3m, w3mmee
or w3m-m17n. When you invoke this command interactively, it will
prompt you for a URL where you wish to go. Except that if you enters
the empty string and the buffer for w3m exists, it will just pop up
the buffer. URL should be a string which defaults to the value
of `w3m-home-page' or \"about:\". Otherwise, you can run this command
in the batch mode like \"emacs -f w3m http://emacs-w3m.namazu.org/&\".
The value of `w3m-pop-up-frames' specifies whether to pop up a new
frame, however, it will be ignored (treated as nil) when this command
is called non-interactively."
(interactive (let ((default (when (w3m-alive-p) 'popup)))
(unless (and current-prefix-arg default)
(list (w3m-input-url nil nil default)))))
(let ((nofetch (eq url 'popup))
(buffer (w3m-alive-p))
これ以降は変更ありません。
;; これってひどいやり取りですね。^^;;
--
Katsumi Yamaoka <yamaoka@namazu.org>