зеркало из
https://github.com/iharh/notes.git
synced 2025-11-03 23:26:09 +02:00
18 строки
364 B
EmacsLisp
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)
|