.emacs-my
changeset 408 78cf8a4feb66
parent 404 c8e90a10c941
child 409 b8fe73dd1ab5
equal deleted inserted replaced
404:c8e90a10c941 408:78cf8a4feb66
   174 (if (boundp 'confirm-kill-emacs)
   174 (if (boundp 'confirm-kill-emacs)
   175     (setq confirm-kill-emacs 'yes-or-no-p))
   175     (setq confirm-kill-emacs 'yes-or-no-p))
   176 
   176 
   177 ;; Try to speed things up, especially in VM.
   177 ;; Try to speed things up, especially in VM.
   178 (setq gc-cons-threshold 2000000)
   178 (setq gc-cons-threshold 2000000)
       
   179 
       
   180 ;; Default 'command-history' length too short (in Emacs 23.2 is 30).
       
   181 (setq history-length 200)
   179 
   182 
   180 ;; Don't beep in my headphones!
   183 ;; Don't beep in my headphones!
   181 (setq ring-bell-function '(lambda () "Empty ring-bell-function." nil))
   184 (setq ring-bell-function '(lambda () "Empty ring-bell-function." nil))
   182 (setq visible-bell t) ; With default ring-bell-function in text terminal
   185 (setq visible-bell t) ; With default ring-bell-function in text terminal
   183                       ; revert screen if press [end] or [home]
   186                       ; revert screen if press [end] or [home]