# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1320789604 -7200
# Node ID c39f6e6fd191f995fcb396d858ddc3c565e359b1
# Parent  c1f795e32b098eeb98fac0084f977856cabf208e
Enable man and info page from Cygwin and from '~/usr/share'.

diff -r c1f795e32b09 -r c39f6e6fd191 .emacs-my
--- a/.emacs-my	Tue Nov 08 12:11:54 2011 +0200
+++ b/.emacs-my	Wed Nov 09 00:00:04 2011 +0200
@@ -1019,15 +1019,28 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "Info")
 
-;; Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet
-;; repository tree. So it must be installed manually. My usual configuration is install user local software
-;; into ~/usr DISTDIR.
 (unless (getenv "INFOPATH")
   (setenv "INFOPATH" "~/usr/share/info:"))
 
+;; Assume that cygwin-mount already activated.
+(when (featurep 'cygwin-mount)
+  (setenv "INFOPATH" "/usr/share/info/:~/usr/share/info/:")
+  ;; Redefine path-separator to UNIX to update Info-directory-list.
+  (let ( (path-separator ":") )
+    (require 'info)
+    (info-initialize)
+    ))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "man, woman")
 
+;; Assume that cygwin-mount already activated.
+(when (featurep 'cygwin-mount)
+  (let ( (path (expand-file-name "~")) )
+    (when (string-match "\\([c-z]\\):/" path)
+      (setenv "MANPATH" (concat "/cygdrive/" (substring path 0 1) "/" (substring path 3) "/usr/share/man/:"))
+      ) ))
+
 (setq woman-use-own-frame nil)
 (setq woman-fill-frame t)
 ;; I prefer EN man pages.