From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: prj@po.cwru.edu (Paul Jarc)
Newsgroups: gmane.emacs.bugs
Subject: Re: Feature request: quiet keyboard-quit
Date: Wed, 22 May 2002 11:53:52 -0400
Organization: What did you have in mind?  A short, blunt, human pyramid?
Sender: bug-gnu-emacs-admin@gnu.org
Message-ID: <m33cwk9o0p.fsf@multivac.cwru.edu>
References: <200205220809.g4M89PW00568@localhost.localdomain>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1022082842 32599 127.0.0.1 (22 May 2002 15:54:02 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 22 May 2002 15:54:02 +0000 (UTC)
Return-path: <bug-gnu-emacs-admin@gnu.org>
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 17AYR7-0008TJ-00
	for <gnu-bug-gnu-emacs@m.gmane.org>; Wed, 22 May 2002 17:54:01 +0200
Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 17AYRe-0002E8-00; Wed, 22 May 2002 11:54:34 -0400
Original-Received: from ashd1-2.relay.mail.uu.net ([199.171.54.246])
	by fencepost.gnu.org with smtp (Exim 3.34 #1 (Debian))
	id 17AYQH-00024y-00
	for <bug-gnu-emacs@prep.ai.mit.edu>; Wed, 22 May 2002 11:53:09 -0400
Original-Received: from eeyore.INS.cwru.edu by mr1.ash.ops.us.uu.net with ESMTP 
	(peer crosschecked as: eeyore.INS.CWRU.Edu [129.22.8.17])
	id QQmpyt17430
	for <gnu-emacs-bug@moderators.isc.org>; Wed, 22 May 2002 15:53:08 GMT
Original-Received: by eeyore.INS.cwru.edu (8.9.3/CWRU-2.8-bsdi)
	id LAA07477; Wed, 22 May 2002 11:53:08 -0400 (EDT) (from news for gnu-emacs-bug@moderators.isc.org)
Original-To: gnu-emacs-bug@moderators.isc.org
Original-Path: not-for-mail
Original-Newsgroups: gnu.emacs.bug
Original-Lines: 24
Original-NNTP-Posting-Host: multivac.student.cwru.edu
Original-X-Trace: eeyore.INS.cwru.edu 1022082787 4423 129.22.96.25 (22 May 2002 15:53:07 GMT)
Original-X-Complaints-To: abuse@po.cwru.edu
Original-NNTP-Posting-Date: 22 May 2002 15:53:07 GMT
Mail-Copies-To: nobody
User-Agent: Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.2 (i686-pc-linux-gnu)
Cancel-Lock: sha1:iePnC0ccGbdQ71Nt+GV2D7VAcOA=
Errors-To: bug-gnu-emacs-admin@gnu.org
X-BeenThere: bug-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.9
Precedence: bulk
List-Help: <mailto:bug-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:bug-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs>,
	<mailto:bug-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Bug reports for GNU Emacs,
	the Swiss army knife of text editors <bug-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs>,
	<mailto:bug-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/bug-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.bugs:1524
X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:1524

epameinondas@gmx.de (Oliver Scholz) wrote:
> Apparently `keyboard-quit' can't be defadviced "after" or "around":
>
> (defadvice keyboard-quit (around do-not-beep! activate)
>   (let ((ring-bell-function (lambda () nil)))
>     ad-do-it))
>
> .. is futile.

You could define a function like:
(defun my-keyboard-quit ()
  (interactive)
  (let ((ring-bell-function 'ignore))
    (keyboard-quit)))
Then bind that to C-g.

> .. is pointless when `keyboard-quit' gets a call from the lisp code.

You could redefine keyboard-quit itself to cover that case.  I'm not
sure whether byte-compiled code calling keyboard-quit would need to be
recompiled.


paul