.emacs-my
changeset 220 a1004ec442f3
parent 215 404b444d990b
parent 218 1a48dde2dfa3
child 222 1e9b259f8abe
--- a/.emacs-my	Wed Dec 09 11:04:53 2009 +0200
+++ b/.emacs-my	Thu Dec 17 22:47:31 2009 +0200
@@ -15,10 +15,6 @@
 ;; Shut off message buffer by setting nil.
 (setq message-log-max 100)
 
-;;(add-hook 'after-init-hook
-;;    '(lambda () (setq debug-on-error t)))
-;;(debug-on-entry 'command-line-1)
-
 ;; Set the debug option to enable a backtrace when a problem occurs.
 (setq debug-on-error nil)               ; t/nil
 
@@ -32,7 +28,7 @@
 (scroll-bar-mode 1)
 
 (if window-system
-    ;; Для X-window и Win
+    ;; For graphical environment.
     (progn
       ;;установка цветов экрана
       (set-background-color "white")
@@ -45,11 +41,14 @@
       ;; (set-face-font 'default "7x14")
       (fringe-mode 'default)
       )
-  ;; Для tty
+  ;; For tty.
   (progn
     )
 )
 
+;; See what I am typing immediately (for keystroke in minibuffer).
+(setq echo-keystrokes 0.2)
+
 ;; ----------------------------------------------------------------------
 ;; Silent runing.
 
@@ -125,6 +124,14 @@
  )
 
 ;; ----------------------------------------------------------------------
+;; search
+(setq case-fold-search t)
+
+;; ----------------------------------------------------------------------
+;; *Occur*
+(global-set-key [f7] 'occur)            ; Key binding as in mc
+
+;; ----------------------------------------------------------------------
 ;; *Text*
 (setq default-major-mode 'text-mode)
 
@@ -209,9 +216,6 @@
 (global-set-key [M-f4]  'save-buffers-kill-emacs)
 (global-set-key [f6]    'toggle-truncate-lines)
 
-;; *Occur*
-(global-set-key [f7] 'occur)            ; Key binding as in mc
-
 ;; frames, windows manipulation, switch buffers
 (global-set-key [?\C-x right] 'next-buffer)
 (global-set-key [?\C-x left]  'previous-buffer)