[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#5711: 23.1; Customizing the bell
From: |
Eli Barzilay |
Subject: |
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!