--- a/.emacs-my	Sun Mar 28 22:13:05 2010 +0300
+++ b/.emacs-my	Tue Mar 30 23:38:28 2010 +0300
@@ -23,12 +23,14 @@
 
 (defvar my-devel-mode-list
   '(sh-mode script-mode java-mode c-mode
-            lisp-mode makefile-mode makefile-gmake-mode python-mode)
+            makefile-mode makefile-gmake-mode python-mode
+            lisp-mode emacs-lisp-mode)
   "List of development modes.")
 
 (defvar my-devel-mode-hook-list
   '(sh-mode-hook script-mode-hook java-mode-hook c-mode-hook
-            lisp-mode-hook makefile-mode-hook makefile-gmake-mode-hook python-mode-hook)
+            makefile-mode-hook makefile-gmake-mode-hook python-mode-hook
+            lisp-mode-hook emacs-lisp-mode-hook)
   "List of development mode hooks.")
 
 (defvar my-text-mode-list
@@ -253,6 +255,8 @@
 ;; Do not set t because some grep do not has --color options.
 (setq grep-highlight-matches nil)
 (setq grep-use-null-device nil)
+;; For find-dired.
+(setq find-ls-option '("-exec ls -ld {} \\;" . "-ld"))
 
 (global-set-key [M-f7] 'rgrep)
 
@@ -796,6 +800,12 @@
 ;; ----------------------------------------------------------------------
 ;; erc.
 
+;; Take off noise message.
+(setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE"))
+
+(setq erc-current-nick-highlight-type 'nick-or-keyword)
+(setq erc-track-use-faces t)
+
 (setq erc-server-coding-system 'utf-8)
 
 ;; ======================================================================