From: Eli Barzilay <eli@barzilay.org>
To: Stefan Monnier <monnier@IRO.UMontreal.CA>
Cc: 5711@debbugs.gnu.org
Subject: bug#5711: 23.1; Customizing the bell
Date: Fri, 12 Mar 2010 14:20:18 -0500 [thread overview]
Message-ID: <19354.37874.141285.477444@winooski.ccs.neu.edu> (raw)
In-Reply-To: <jwvhbol8lhy.fsf-monnier+emacs@gnu.org>
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!
next prev parent reply other threads:[~2010-03-12 19:20 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-03-12 15:54 bug#5711: 23.1; Customizing the bell Eli Barzilay
2010-03-12 17:14 ` Drew Adams
2010-03-12 18:05 ` Stefan Monnier
2010-03-12 19:20 ` Eli Barzilay [this message]
2010-03-15 19:39 ` Glenn Morris
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=19354.37874.141285.477444@winooski.ccs.neu.edu \
--to=eli@barzilay.org \
--cc=5711@debbugs.gnu.org \
--cc=monnier@IRO.UMontreal.CA \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).