Re: visible-bell

[弓岡 也守輝 (YUMIOKA Yasuteru) <te-kun@xxxxxxxxxxxxxx>]

弓岡です。

>>>>>yagi@xxxxxxxxxxxxxxx =='矢木'さん曰く
>>>>>Re: visible-bell
>>>>>at 24 Jan 2001 17:05:53 +0900
>>>>>[meadow-users-jp: 2996]

弓岡>visible-bell のことでお聞きしたいのですが、
弓岡>(setq visible-bell t) とすると、タイトルバーはフラッシュするのですが、
弓岡>window の中身までは反転されません。

矢木> ring-bell-function を使えば色々できます。
矢木> こんな感じ。

矢木> (setq ring-bell-function
矢木>       (lambda ()
矢木>         (let* ((f 'foreground-color) (b 'background-color)
矢木>                (F (frame-parameter nil f)) (B (frame-parameter nil b)))
矢木>           (modify-frame-parameters nil (list (cons f B) (cons b F)))
矢木>           (sit-for 0)
矢木>           (modify-frame-parameters nil (list (cons f F) (cons b B)))
矢木>           )))
ありがとうございます。
上記で、フラッシュできるようになりました。

矢木> 健康のためフラッシュさせ過ぎに気をつけましょう。
そうですね。
;;; 目がチカチカします。
;;; エラーを出さない方が先決かも(^^;
--
弓岡＠GNU Emacs マニュアル 買ったのはいいけど、鞄が重い....