| changeset 378 | b0f57ea29b28 |
| parent 373 | bdf2522ad35c |
| parent 377 | 3e8792ee03cc |
| child 380 | 2f34c2357bef |
| 373:bdf2522ad35c | 378:b0f57ea29b28 |
|---|---|
21 ;; ---------------------------------------------------------------------- |
21 ;; ---------------------------------------------------------------------- |
22 ;; mode groups |
22 ;; mode groups |
23 |
23 |
24 (defvar my-devel-mode-list |
24 (defvar my-devel-mode-list |
25 '(sh-mode script-mode java-mode c-mode |
25 '(sh-mode script-mode java-mode c-mode |
26 lisp-mode makefile-mode makefile-gmake-mode python-mode) |
26 makefile-mode makefile-gmake-mode python-mode |
27 lisp-mode emacs-lisp-mode) |
|
27 "List of development modes.") |
28 "List of development modes.") |
28 |
29 |
29 (defvar my-devel-mode-hook-list |
30 (defvar my-devel-mode-hook-list |
30 '(sh-mode-hook script-mode-hook java-mode-hook c-mode-hook |
31 '(sh-mode-hook script-mode-hook java-mode-hook c-mode-hook |
31 lisp-mode-hook makefile-mode-hook makefile-gmake-mode-hook python-mode-hook) |
32 makefile-mode-hook makefile-gmake-mode-hook python-mode-hook |
33 lisp-mode-hook emacs-lisp-mode-hook) |
|
32 "List of development mode hooks.") |
34 "List of development mode hooks.") |
33 |
35 |
34 (defvar my-text-mode-list |
36 (defvar my-text-mode-list |
35 '(outline-mode text-mode) |
37 '(outline-mode text-mode) |
36 "List of text modes.") |
38 "List of text modes.") |
251 ;; This pattern oriented to POSIX like sh shell and availability of GNU grep for -H option. |
253 ;; This pattern oriented to POSIX like sh shell and availability of GNU grep for -H option. |
252 (setq grep-find-template "find . <X> -type f <F> -exec grep <C> -nH <R> {} \\;") |
254 (setq grep-find-template "find . <X> -type f <F> -exec grep <C> -nH <R> {} \\;") |
253 ;; Do not set t because some grep do not has --color options. |
255 ;; Do not set t because some grep do not has --color options. |
254 (setq grep-highlight-matches nil) |
256 (setq grep-highlight-matches nil) |
255 (setq grep-use-null-device nil) |
257 (setq grep-use-null-device nil) |
258 ;; For find-dired. |
|
259 (setq find-ls-option '("-exec ls -ld {} \\;" . "-ld")) |
|
256 |
260 |
257 (global-set-key [M-f7] 'rgrep) |
261 (global-set-key [M-f7] 'rgrep) |
258 |
262 |
259 ;; ---------------------------------------------------------------------- |
263 ;; ---------------------------------------------------------------------- |
260 ;; syntax highlighting. |
264 ;; syntax highlighting. |
793 (defun rcirc-handler-301 (process cmd sender args) |
797 (defun rcirc-handler-301 (process cmd sender args) |
794 "/away message handler.") |
798 "/away message handler.") |
795 |
799 |
796 ;; ---------------------------------------------------------------------- |
800 ;; ---------------------------------------------------------------------- |
797 ;; erc. |
801 ;; erc. |
802 |
|
803 ;; Take off noise message. |
|
804 (setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE")) |
|
805 |
|
806 (setq erc-current-nick-highlight-type 'nick-or-keyword) |
|
807 (setq erc-track-use-faces t) |
|
798 |
808 |
799 (setq erc-server-coding-system 'utf-8) |
809 (setq erc-server-coding-system 'utf-8) |
800 |
810 |
801 ;; ====================================================================== |
811 ;; ====================================================================== |
802 ;; VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil. |
812 ;; VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil. |