1017 ;(autoload 'LaTeX-preview-setup "preview") |
1017 ;(autoload 'LaTeX-preview-setup "preview") |
1018 |
1018 |
1019 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1019 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1020 (message "Info") |
1020 (message "Info") |
1021 |
1021 |
1022 ;; Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet |
|
1023 ;; repository tree. So it must be installed manually. My usual configuration is install user local software |
|
1024 ;; into ~/usr DISTDIR. |
|
1025 (unless (getenv "INFOPATH") |
1022 (unless (getenv "INFOPATH") |
1026 (setenv "INFOPATH" "~/usr/share/info:")) |
1023 (setenv "INFOPATH" "~/usr/share/info:")) |
1027 |
1024 |
|
1025 ;; Assume that cygwin-mount already activated. |
|
1026 (when (featurep 'cygwin-mount) |
|
1027 (setenv "INFOPATH" "/usr/share/info/:~/usr/share/info/:") |
|
1028 ;; Redefine path-separator to UNIX to update Info-directory-list. |
|
1029 (let ( (path-separator ":") ) |
|
1030 (require 'info) |
|
1031 (info-initialize) |
|
1032 )) |
|
1033 |
1028 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1034 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1029 (message "man, woman") |
1035 (message "man, woman") |
|
1036 |
|
1037 ;; Assume that cygwin-mount already activated. |
|
1038 (when (featurep 'cygwin-mount) |
|
1039 (let ( (path (expand-file-name "~")) ) |
|
1040 (when (string-match "\\([c-z]\\):/" path) |
|
1041 (setenv "MANPATH" (concat "/cygdrive/" (substring path 0 1) "/" (substring path 3) "/usr/share/man/:")) |
|
1042 ) )) |
1030 |
1043 |
1031 (setq woman-use-own-frame nil) |
1044 (setq woman-use-own-frame nil) |
1032 (setq woman-fill-frame t) |
1045 (setq woman-fill-frame t) |
1033 ;; I prefer EN man pages. |
1046 ;; I prefer EN man pages. |
1034 (setq manual-program "LANG=C man") |
1047 (setq manual-program "LANG=C man") |