[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]
Re: visible-bell
- X-ml-count: 2996
- Subject: Re: visible-bell
- From: yagi@xxxxxxxxxxxxxxx
- Date: 24 Jan 2001 17:05:53 +0900
- User-agent: Nana-gnus/6.13.9 SEMI/1.13.5 (Meihō) FLIM/1.13.2 (Kasanui) Emacs/20.6 (i386-*-windows98.1998) MULE/4.1 (AOI) Meadow/1.13 Beta1 (TANAHASHI:61)
矢木です。
弓岡 也守輝 (YUMIOKA Yasuteru) <te-kun@xxxxxxxxxxxxxx> writes:
>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)))
)))
おわり
健康のためフラッシュさせ過ぎに気をつけましょう。