.emacs-my
changeset 153 a03216c9fa8c
parent 152 907336e50d23
child 154 9c4f8d401e12
equal deleted inserted replaced
152:907336e50d23 153:a03216c9fa8c
   327 ;; ======================================================================
   327 ;; ======================================================================
   328 ;; Convenient
   328 ;; Convenient
   329 
   329 
   330 ;; ----------------------------------------------------------------------
   330 ;; ----------------------------------------------------------------------
   331 ;; Completion
   331 ;; Completion
       
   332 
   332 (require 'icomplete) ; Interactive completion in minibuffer.
   333 (require 'icomplete) ; Interactive completion in minibuffer.
   333 (icomplete-mode) ; Toggle incremental minibuffer completion for this Emacs session.
   334 (icomplete-mode 1)
   334 ;; может дополнять несколько слов одновременно
   335 
   335 (load "complete")
   336 (setq completion-ignored-extensions
   336 (setq completion-ignored-extensions (quote ("CVS/" ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc"
   337       '("CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
   337                                             ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf"
   338         ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc"
   338                                             ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps"
   339         ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf"
   339                                             ".fns" ".kys" ".pgs" ".tps" ".vrs")))
   340         ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps"
   340 
   341         ".fns" ".kys" ".pgs" ".tps" ".vrs"))
   341 
   342 
   342 ;; ----------------------------------------------------------------------
   343 ;; ----------------------------------------------------------------------
   343 ;; *grep*
   344 ;; *grep*
   344 (setq grep-command "find . -name '*' -exec grep -nH '' {} ;"
   345 (setq grep-command "find . -name '*' -exec grep -nH '' {} ;"
   345       grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH "
   346       grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH "