bug-gnu-emacs
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#5711: 23.1; Customizing the bell

From: Stefan Monnier
Subject: bug#5711: 23.1; Customizing the bell
Date: Fri, 12 Mar 2010 13:05:29 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.93 (gnu/linux) 
>   (setq ring-bell-function
>         (lambda ()
>           (if (foo)
>             (call-process "aplay" nil 0 nil "foo.wav")
>             (let ((visible-bell (bar))) (real-ding)))))

Doesn't

(setq ring-bell-function
      (lambda ()
        (if (foo)
            (call-process "aplay" nil 0 nil "foo.wav")
          (let ((visible-bell (bar)) (ring-bell-function nil)) (ding)))))

do the trick?


        Stefan
reply via email to
[Prev in Thread] Current Thread [Next in Thread]