--- 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!