[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: w3m-display-hook の破綻 

>> On Thu, 29 Aug 2002 12:49:30 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

山> 技術的には defcustom にもっと強い意志を持たせることは可能です。

衝動的に別解を考えてしまいました．

(progn
  ;; 初めは存在しない。
  (makunbound 'foo)
  ;; .emacs でユーザが追加。
  (add-hook 'foo 'bar)
  ;; xxx.elc が load されたとき。
  (defcustom foo '(baz)
    "docs."
    :initialize (lambda (symbol value)
                  (if (boundp symbol)
                      (progn
                        (setq value (eval value))
                        (while value
                          (add-hook symbol (car value))
                          (setq value (cdr value))))
                    (custom-initialize-set symbol value))))
  ;; さて foo の値は?
  foo)

山> まあ、こんな邪道はあまりやりたくないですけどね。

まあ，解がたくさんあるのは良いことです．

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )