254 (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> {} \\;") |
255 ;; 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. |
256 (setq grep-highlight-matches nil) |
256 (setq grep-highlight-matches nil) |
257 (setq grep-use-null-device nil) |
257 (setq grep-use-null-device nil) |
258 ;; For find-dired. |
258 ;; For find-dired. |
259 (setq find-ls-option '("-exec ls -ld {} \\;" . "-ld")) |
259 ;; (setq find-ls-option '("-exec ls -ld {} \\;" . "-ld")) |
260 |
260 |
261 (global-set-key [M-f7] 'rgrep) |
261 (global-set-key [M-f7] 'rgrep) |
262 |
262 |
263 ;; ---------------------------------------------------------------------- |
263 ;; ---------------------------------------------------------------------- |
264 ;; syntax highlighting. |
264 ;; syntax highlighting. |
634 "If t 'cmdproxy.exe' will be used as shell. Affect on M-x shell like |
634 "If t 'cmdproxy.exe' will be used as shell. Affect on M-x shell like |
635 commands. If nil, 'sh' will be used." ) |
635 commands. If nil, 'sh' will be used." ) |
636 |
636 |
637 (when (eq window-system 'w32) ; may require Cygwin or MSYS |
637 (when (eq window-system 'w32) ; may require Cygwin or MSYS |
638 (setenv "ESHELL" "bash") |
638 (setenv "ESHELL" "bash") |
639 (if my-use-windows-shell |
639 (when my-use-windows-shell |
640 ;; Restore shell name if user set SHELL env var for Cygwin/MSYS. |
640 ;; Restore shell name if user set SHELL env var for Cygwin/MSYS. |
641 (setq shell-file-name (concat exec-directory "cmdproxy.exe")) |
641 (setq shell-file-name (concat exec-directory "cmdproxy.exe")) |
642 ;; Use shell from Cygwin/MinGW. |
642 ;; Use shell from Cygwin/MinGW. |
643 (setq shell-file-name "sh") |
643 (setq shell-file-name "sh") |
|
644 ;; Here is workaround: when explicit-shell-file-name is "bash" and shell-file-name is "cmdproxy.exe" |
|
645 ;; find-dired incorrect quote args (in shell-quote-argument (w32-shell-name) return "bash", but |
|
646 ;; shell-command used shell-file-name which value "cmdproxy.exe"). So I put additional space in pattern to |
|
647 ;; prevent quoting. |
|
648 (setq find-ls-option '("-exec ls -ld {} ;" . "-ld")) |
644 ) |
649 ) |
645 ;; (setq explicit-shell-file-name "bash") |
650 ;; (setq explicit-shell-file-name "bash") |
646 (setq explicit-bash-args '("-i")) |
651 (setq explicit-bash-args '("-i")) |
647 (setq explicit-sh-args '("-i")) |
652 (setq explicit-sh-args '("-i")) |
648 ;; Here is workaround: when explicit-shell-file-name is "bash" and shell-file-name is "cmdproxy.exe" |
|
649 ;; find-dired incorrect quote args (in shell-quote-argument (w32-shell-name) return "bash", but |
|
650 ;; shell-command used shell-file-name which value "cmdproxy.exe"). So I put additional space in pattern to |
|
651 ;; prevent quoting. |
|
652 (setq find-ls-option '("-exec ls -ld {} ;" . "-ld")) |
|
653 ) |
653 ) |
654 |
654 |
655 ;; ====================================================================== |
655 ;; ====================================================================== |
656 ;; spell, ispall, aspell. |
656 ;; spell, ispall, aspell. |
657 |
657 |