477          (buffer-substring (match-end 0) (point-max))

   477          (buffer-substring (match-end 0) (point-max))

   478          'utf-16-le)

   478          'utf-16-le)

   479         0 -1)                           ; -1 for stripping final \0.

   479         0 -1)                           ; -1 for stripping final \0.

   480        ))))

   480        ))))

   481 

   481 

   482 (defun my-dos2cygwin-path (path)

   483 (defun my-dos2cygwin-path (path)

   483   "Convert DOS path to Cygwin according to current mount table."

   484   "Convert DOS path to Cygwin according to current mount table."

   484   (interactive (list (read-directory-name "Enter DOS path: ")))

   485   (interactive (list (read-directory-name "Enter DOS path: ")))

   485   (setq path (replace-regexp-in-string "\\\\" "/" (expand-file-name path)))

   486   (setq path (replace-regexp-in-string "\\\\" "/" (expand-file-name path)))

   486   (let ( (table cygwin-mount-table--internal) item prefix )

   487   (let ( (table cygwin-mount-table--internal) item prefix )