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