;; 良かった、林さんとこでも起きて。:-p
>>>> In <87r9c5m48l.fsf(a)buck.sodan.org>
>>>> Yoshiki Hayashi <yoshiki(a)xemacs.org> wrote:
山岡> (let ((force-dialog-box-use t))
山岡> (y-or-n-p "What? "))
以下、補足です。
dialog.el の関数 `yes-or-no-p-dialog-box' を追いかけてみたところ、
(event-object event)
が `yes' などの symbol を返すことが期待されているのに、実際は
(let ((widget-callback-current-channel #<x-frame "emacs" 0x26a7>))
(funcall (quote call-interactively) (quote yes)))
のような S 式が返ってきます。
`event-object' は built-in なので、これ以上はパス。(^^;;)
--
Katsumi Yamaoka <yamaoka(a)jpl.org>