w3m-display-hook の破綻

[Hideyuki SHIRAI ( 白井秀行 ) <shirai@xxxxxxxxxxxxxxxxxxx>]

白井です。

なんか Emacs 21 で w3m-display-hook が変だなぁと思って調べたので
すが、w3m-e21.el で

(add-hook 'w3m-display-hook 'w3m-setup-favicon)

したあと、w3m.el で

(defcustom w3m-display-hook
  '(w3m-history-highlight-current-url
    w3m-move-point-for-localcgi
....

してもダメだということを発見しました。

○ Emacs 21

(add-hook 'foo-hook 'foo1) 
foo-hook => (foo1)

(defvar foo-hook '(hoge1 hoge2 hoge3))
foo-hook => (foo1)

という状態になっています。

ちなみに、

○ XEmacs 21.4.5

(add-hook 'foo-hook 'foo1)
foo-hook => (foo1)

(defvar foo-hook '(hoge1 hoge2 hoge3))
foo-hook => (hoge1 hoge2 hoge3)

なので、XEmacs で tab が出ないのでは？

# ぼくの XEmacs は (setq gutter-buffers-tab-enabled t) だと
# 立ち上がり時に crash するので確かめられません ^^;;;

(defcustom w3m-display-hook nil
  "*Hook run at the end of `w3m-goto-url'."
  :group 'w3m
  :type 'hook)

(add-hook 'w3m-display-hook 'w3m-history-highlight-current-url)
(add-hook 'w3m-display-hook 'w3m-move-point-for-localcgi)
(add-hook 'w3m-display-hook 'w3m-select-buffer-update)

にしちゃって良いですか？それとも、他に良い方法はあるでしょうか？

-- 
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)