Re: Feature request: quiet keyboard-quit

[Paul Jarc]

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