GNU bug report logs - #5711
23.1; Customizing the bell

Previous Next

Full log

Message #16 received at 5711 <at> debbugs.gnu.org (full text, mbox):

From: Eli Barzilay <eli <at> barzilay.org>
To: Stefan Monnier <monnier <at> IRO.UMontreal.CA>
Cc: 5711 <at> debbugs.gnu.org
Subject: Re: bug#5711: 23.1; Customizing the bell
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!

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.