--- 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)
;; ======================================================================