.emacs-my
changeset 357 84c8c5f03fd4
parent 356 fd1af7a494de
child 358 a6fb477c0e19
equal deleted inserted replaced
356:fd1af7a494de 357:84c8c5f03fd4
   191 ;; *Occur*
   191 ;; *Occur*
   192 (global-set-key [f7] 'occur)            ; Key binding as in mc
   192 (global-set-key [f7] 'occur)            ; Key binding as in mc
   193 
   193 
   194 ;; ----------------------------------------------------------------------
   194 ;; ----------------------------------------------------------------------
   195 ;; grep, find.
   195 ;; grep, find.
       
   196 
       
   197 ;; Assume that we have GNU grep, so -H available.
       
   198 (setq grep-command "grep -nH ")
       
   199 (setq grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs -o -name .git ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH ")
       
   200 ;; Do not set t because some grep do not has --color options.
       
   201 (setq grep-highlight-matches nil)
       
   202 (setq grep-use-null-device nil)
       
   203 
   196 (global-set-key [M-f7] 'rgrep)
   204 (global-set-key [M-f7] 'rgrep)
   197 
   205 
   198 ;; ----------------------------------------------------------------------
   206 ;; ----------------------------------------------------------------------
   199 ;; syntax highlighting.
   207 ;; syntax highlighting.
   200 
   208 
   414         ".class" "~" ".aux"
   422         ".class" "~" ".aux"
   415         ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe"
   423         ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe"
   416         ;; Place dir at end to appear at the start of completion-ignored-extensions.
   424         ;; Place dir at end to appear at the start of completion-ignored-extensions.
   417         "CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
   425         "CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
   418         ) )
   426         ) )
   419 
       
   420 ;; ----------------------------------------------------------------------
       
   421 ;; *grep*
       
   422 (setq grep-command "find . -name '*' -exec grep -nH '' {} ;"
       
   423       grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs -o -name .git ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH "
       
   424       grep-highlight-matches nil ; do not set t because some grep do not has --color options
       
   425       grep-use-null-device t)
       
   426 
   427 
   427 ;; ----------------------------------------------------------------------
   428 ;; ----------------------------------------------------------------------
   428 ;; music.
   429 ;; music.
   429 (setq gnus-audio-au-player "winamp.exe"
   430 (setq gnus-audio-au-player "winamp.exe"
   430       gnus-audio-directory "D:\\music"
   431       gnus-audio-directory "D:\\music"