.emacs-my
changeset 228 f55559c1ce8e
parent 227 cc94c73ddf20
child 229 0a42b3480404
equal deleted inserted replaced
227:cc94c73ddf20 228:f55559c1ce8e
   346 ;; Completion
   346 ;; Completion
   347 
   347 
   348 (require 'icomplete) ; Interactive completion in minibuffer.
   348 (require 'icomplete) ; Interactive completion in minibuffer.
   349 (icomplete-mode 1)
   349 (icomplete-mode 1)
   350 
   350 
   351 (setq completion-ignored-extensions
   351 (mapc (lambda (ext) (add-to-list 'completion-ignored-extensions ext))
   352       '("CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
   352       '(
   353         ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc"
   353         ".class" "~" ".aux"
   354         ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf"
   354         ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe"
   355         ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps"
   355         ;; Place dir at end to appear at the start of completion-ignored-extensions.
   356         ".fns" ".kys" ".pgs" ".tps" ".vrs"))
   356         "CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
       
   357         ) )
   357 
   358 
   358 ;; ----------------------------------------------------------------------
   359 ;; ----------------------------------------------------------------------
   359 ;; *grep*
   360 ;; *grep*
   360 (setq grep-command "find . -name '*' -exec grep -nH '' {} ;"
   361 (setq grep-command "find . -name '*' -exec grep -nH '' {} ;"
   361       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 "
   362       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 "