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

From: Eli Barzilay <[email-masked]>
Date: Fri, 12 Mar 2010 14:20:18 -0500

On Mar 12, Stefan Monnier wrote:
> >   (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?

Ah, you're right -- sorry.  Fine to close this bug then.  BTW, a
better answer would be:

  (defun real-ding () (let ((ring-bell-function nil)) (ding)))

The only thing that might make sense is to show this in the docs as a
way to do this kind of thing (but I don't have any strong opinion
about that).

-- 
          ((lambda (x) (x x)) (lambda (x) (x x)))          Eli Barzilay:
                    http://barzilay.org/                   Maze is Life!