+;;; For using attached Unix filesystems.
+(defun save-to-unix-hook ()
+ (save-excursion
+ (setq buffer-file-type t))
+ nil)
+
+(defun revert-from-unix-hook ()
+ (save-excursion
+ (setq buffer-file-type (find-buffer-file-type (buffer-file-name))))
+ nil)
+
+;; Really should provide this capability at the drive letter granularity.
+(defun using-unix-filesystems (flag)
+ (if flag
+ (progn
+ (add-hook 'write-file-hooks 'save-to-unix-hook)
+ (add-hook 'write-contents-hooks 'save-to-unix-hook)
+ (add-hook 'after-save-hook 'revert-from-unix-hook))
+ (progn
+ (remove-hook 'write-file-hooks 'save-to-unix-hook)
+ (remove-hook 'write-contents-hooks 'save-to-unix-hook)
+ (remove-hook 'after-save-hook 'revert-from-unix-hook))))
+