# HG changeset patch
# User gavenkoa@gavenko.bifit.int
# Date 1225199163 -7200
# Node ID f65916e51b79912eb894cbbf44fd2a67ec2bf30e
# Parent  d2eaf2ed6d1ce2b90e204a1a8e17f55c66712804
Don't beep in my headphones!

diff -r d2eaf2ed6d1c -r f65916e51b79 .emacs-my
--- a/.emacs-my	Tue Oct 28 15:04:29 2008 +0200
+++ b/.emacs-my	Tue Oct 28 15:06:03 2008 +0200
@@ -263,7 +263,9 @@
 (setq gc-cons-threshold 2000000)
 
 ;; Don't beep in my headphones!
-;; (setq visible-bell t) ; XXX in text terminal revert screen if press [end] or [home]
+(setq ring-bell-function '(lambda () "Empty ring-bell-function." nil))
+(setq visible-bell t) ; With default ring-bell-function in text terminal
+                      ; revert screen if press [end] or [home]
 
 ;; Prompt before evaluating local bits of lisp.  This stops people
 ;; putting things at the end of files which delete all your files!