.emacs-my
changeset 686 563751ecd385
parent 685 dccfef291718
child 688 5ddce6e50379
equal deleted inserted replaced
685:dccfef291718 686:563751ecd385
   225   (set-cursor-color "brown")
   225   (set-cursor-color "brown")
   226   ;; (set-mouse-color "white")
   226   ;; (set-mouse-color "white")
   227   (setq cursor-type 'box)           ; box, hollow, bar, hbar
   227   (setq cursor-type 'box)           ; box, hollow, bar, hbar
   228   ;;(setq blink-matching-delay 0.01)
   228   ;;(setq blink-matching-delay 0.01)
   229   (blink-cursor-mode 1)
   229   (blink-cursor-mode 1)
       
   230   (setq use-file-dialog t)
       
   231   (setq use-dialog-box t)
   230   ;; (set-face-font 'default "7x14")
   232   ;; (set-face-font 'default "7x14")
   231   )
   233   )
   232 
   234 
   233 ;; See what I am typing immediately (for keystroke in minibuffer).
   235 ;; See what I am typing immediately (for keystroke in minibuffer).
   234 (setq echo-keystrokes 0.2)
   236 (setq echo-keystrokes 0.2)
       
   237 
       
   238 (fset 'yes-or-no-p 'y-or-n-p)
       
   239 
       
   240 (when (boundp 'confirm-kill-emacs)
       
   241   (setq confirm-kill-emacs 'y-or-n-p))
   235 
   242 
   236 ;;; ----------------------------------------------------------------
   243 ;;; ----------------------------------------------------------------
   237 (message "silent runing")
   244 (message "silent runing")
   238 
   245 
   239 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
   246 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
   302     (server-start))
   309     (server-start))
   303   )
   310   )
   304 
   311 
   305 ;;; ----------------------------------------------------------------
   312 ;;; ----------------------------------------------------------------
   306 (message "standart/general settings")
   313 (message "standart/general settings")
   307 
       
   308 (when (boundp 'confirm-kill-emacs)
       
   309   (setq confirm-kill-emacs 'y-or-n-p))
       
   310 
   314 
   311 ;; Try to speed things up, especially in VM.
   315 ;; Try to speed things up, especially in VM.
   312 (setq gc-cons-threshold 2000000)
   316 (setq gc-cons-threshold 2000000)
   313 
   317 
   314 ;; Default 'command-history' length too short (in Emacs 23.2 is 30).
   318 ;; Default 'command-history' length too short (in Emacs 23.2 is 30).