--- a/.emacs-my	Sun May 15 23:31:06 2016 +0300
+++ b/.emacs-my	Wed May 18 14:05:30 2016 +0300
@@ -440,6 +440,10 @@
 
 (eval-when 'compile (require 'shell))
 
+;; Activate Cygwin for native Windows Emacs if available.
+(when (and (eq window-system 'w32) (require 'cygwin-mount nil t))
+  (cygwin-mount-activate))
+
 (defvar my-use-windows-shell nil
   "If t 'cmdproxy.exe' will be used as shell.
 Affect on \\[shell] like commands. If nil, 'sh' will be used." )
@@ -1486,7 +1490,6 @@
 
 (eval-when 'compile (require 'woman))
 
-;; Assume that cygwin-mount already activated.
 (when (featurep 'cygwin-mount)
   (let ( (path (expand-file-name "~")) )
     (when (string-match "\\([c-z]\\):/" path)