Subject: Re: bug#5711: 23.1; Customizing the bell

From: Stefan Monnier <[email-masked]>
Date: Fri, 12 Mar 2010 13:05:29 -0500

>   (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