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   (when 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"))

   644     ;; Here is workaround: when explicit-shell-file-name is "bash" and shell-file-name is "cmdproxy.exe"

   642     ;; 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

   643     ;; 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

   644     ;; shell-command used shell-file-name which value "cmdproxy.exe"). So I put additional space in pattern to

   647     ;; prevent quoting.

   645     ;; prevent quoting.

   648     (setq find-ls-option '("-exec ls -ld {}  ;" . "-ld"))

   646     (setq find-ls-option '("-exec ls -ld {}  ;" . "-ld"))