.emacs-my
changeset 84 f65916e51b79
parent 83 d2eaf2ed6d1c
child 87 9258c46dc165
equal deleted inserted replaced
83:d2eaf2ed6d1c 84:f65916e51b79
   261 
   261 
   262 ;; Try to speed things up, especially in VM.
   262 ;; Try to speed things up, especially in VM.
   263 (setq gc-cons-threshold 2000000)
   263 (setq gc-cons-threshold 2000000)
   264 
   264 
   265 ;; Don't beep in my headphones!
   265 ;; Don't beep in my headphones!
   266 ;; (setq visible-bell t) ; XXX in text terminal revert screen if press [end] or [home]
   266 (setq ring-bell-function '(lambda () "Empty ring-bell-function." nil))
       
   267 (setq visible-bell t) ; With default ring-bell-function in text terminal
       
   268                       ; revert screen if press [end] or [home]
   267 
   269 
   268 ;; Prompt before evaluating local bits of lisp.  This stops people
   270 ;; Prompt before evaluating local bits of lisp.  This stops people
   269 ;; putting things at the end of files which delete all your files!
   271 ;; putting things at the end of files which delete all your files!
   270 (setq enable-local-variables t
   272 (setq enable-local-variables t
   271       enable-local-eval      1)
   273       enable-local-eval      1)