notes/util/editors/emacs/.emacs.d/rc/emacs-rc-bell.el
Ihar Hancharenka 9685f30a41 m
2025-04-03 11:30:33 +03:00

18 строки
364 B
EmacsLisp

;; disable bell (beep)
(defun my-bell-function ()
(unless
(memq this-command
'(isearch-abort
next-line previous-line backward-char forward-char
scroll-up scroll-down cua-scroll-up cua-scroll-down
down up
keyboard-quit exit-minibuffer abort-recursive-edit
mwheel-scroll
)
)
(ding)
)
)
(setq ring-bell-function 'my-bell-function)