--- 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.