[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: gensym
山崎です.
>>>>> In [emacs-w3m : No.04779]
>>>>> TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:
> >ところで, w3m-antenna-add-current-url で "Save for future sessions" し
> >ても, ~/.emacs が修正されるのを回避する方法はありますでしょうか?
> これはよく分かりません.
> >また, アンテナが更新される前に w3m-antenna-add-current-url を呼ぶと,
> >w3m-antenna-sites が初期化されないのですが, どこかで
> >w3m-antenna-setup を呼んだ方がよくないでしょうか?
> あてずっぽうですが,添付のパッチでどうでしょうか.
遅くなりましたが, 先のパッチをあてることで w3m-antenna-sites が初期化
されない問題は解決しました. が, customize で ~/.emacs が修正されるの
が嫌なので, antenna-edit を使うように以下を ~/.emacs-w3m に書いておく
ことにします.
(eval-after-load "w3m-antenna"
'(defun w3m-antenna-add (url &optional title)
"Add URL to antenna.
Optional argument TITLE is title of link."
(w3m-goto-url "about://antenna-edit/")
(re-search-forward "New site")
(w3m-next-form)
(let* ((act (w3m-action))
(form (nth 1 act))
(name (nth 2 act))
(value url))
(w3m-form-put form name value)
(w3m-form-replace value))
(w3m-next-form)
(let* ((act (w3m-action))
(form (nth 1 act))
(name (nth 2 act))
(value (or title
(input (read-from-minibuffer "TITLE: ")))))
(w3m-form-put form name value)
(w3m-form-replace value))
(re-search-forward "NEW")
(backward-char 1)
(widget-button-press (point))
)
)
--
Tomoaki YAMASAKI <tyms@plum.freemail.ne.jp>