cygwin-mount/mount-point.l の cygwin 1.7 対応 #xyzzy

gistfile1.cl

;; 超暫定対処版。
;; cygwin 1.7 からマウント情報をレジストリじゃなくて /etc/fstab および /etc/fstab.d/$USER に
;; 記録するようになったので cygwin-mount は動かなくなっています。

;; とりあえず以下のモンキーパッチで最低限の動作はすると思います。
;; ただ、独自のマウントポイントを定義している場合などには対応していません。

(require "cygwin-mount")

(defun cygmount-point-info (&key type path)
  (list
   (make-mount-point
    :cygpath "/"
    :winpath (map-slash-to-backslash
              (or (read-registry "SOFTWARE\\Cygwin\\setup" "rootdir" :local-machine)
                  (read-registry "SOFTWARE\\Wow6432Node\\Cygwin\\setup" "rootdir" :local-machine)))
    :flags nil
    :type :system)))

(defun cygdrive-prefix ()
  "/cygdrive")