From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Eli Barzilay Newsgroups: gmane.emacs.bugs Subject: bug#5711: 23.1; Customizing the bell Date: Fri, 12 Mar 2010 14:20:18 -0500 Message-ID: <19354.37874.141285.477444@winooski.ccs.neu.edu> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: dough.gmane.org 1268421890 28809 80.91.229.12 (12 Mar 2010 19:24:50 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 12 Mar 2010 19:24:50 +0000 (UTC) Cc: 5711@debbugs.gnu.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Mar 12 20:24:46 2010 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1NqATU-0000mu-Sg for geb-bug-gnu-emacs@m.gmane.org; Fri, 12 Mar 2010 20:24:45 +0100 Original-Received: from localhost ([127.0.0.1]:33355 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NqATU-0005bk-5g for geb-bug-gnu-emacs@m.gmane.org; Fri, 12 Mar 2010 14:24:44 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NqATQ-0005ax-47 for bug-gnu-emacs@gnu.org; Fri, 12 Mar 2010 14:24:40 -0500 Original-Received: from [140.186.70.92] (port=41877 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NqATO-0005ZN-KB for bug-gnu-emacs@gnu.org; Fri, 12 Mar 2010 14:24:39 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NqATL-0000Ok-BF for bug-gnu-emacs@gnu.org; Fri, 12 Mar 2010 14:24:38 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:35677) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NqATL-0000Od-7t for bug-gnu-emacs@gnu.org; Fri, 12 Mar 2010 14:24:35 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1NqAPt-0006pN-Ms; Fri, 12 Mar 2010 14:21:01 -0500 X-Loop: bug-gnu-emacs@gnu.org Resent-From: Eli Barzilay Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 12 Mar 2010 19:21:01 +0000 Resent-Message-ID: Resent-Sender: bug-gnu-emacs@gnu.org X-GNU-PR-Message: followup 5711 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 5711-submit@debbugs.gnu.org id=B5711.126842162426234 (code B ref 5711); Fri, 12 Mar 2010 19:21:01 +0000 Original-Received: (at 5711) by debbugs.gnu.org; 12 Mar 2010 19:20:24 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NqAPI-0006p5-FV for submit@debbugs.gnu.org; Fri, 12 Mar 2010 14:20:24 -0500 Original-Received: from winooski.ccs.neu.edu ([129.10.115.117] helo=barzilay.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NqAPG-0006p0-Q7 for 5711@debbugs.gnu.org; Fri, 12 Mar 2010 14:20:23 -0500 Original-Received: from eli by barzilay.org with local (Exim 4.66) (envelope-from ) id 1NqAPC-00085n-4u; Fri, 12 Mar 2010 14:20:18 -0500 In-Reply-To: X-Mailer: VM 8.0.12 under 23.1.1 (x86_64-unknown-linux-gnu) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Fri, 12 Mar 2010 14:21:01 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:35541 Archived-At: 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!