equal
deleted
inserted
replaced
437 |
437 |
438 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
438 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
439 (message "shell, bash, Cygwin, MSYS") |
439 (message "shell, bash, Cygwin, MSYS") |
440 |
440 |
441 (eval-when 'compile (require 'shell)) |
441 (eval-when 'compile (require 'shell)) |
|
442 |
|
443 ;; Activate Cygwin for native Windows Emacs if available. |
|
444 (when (and (eq window-system 'w32) (require 'cygwin-mount nil t)) |
|
445 (cygwin-mount-activate)) |
442 |
446 |
443 (defvar my-use-windows-shell nil |
447 (defvar my-use-windows-shell nil |
444 "If t 'cmdproxy.exe' will be used as shell. |
448 "If t 'cmdproxy.exe' will be used as shell. |
445 Affect on \\[shell] like commands. If nil, 'sh' will be used." ) |
449 Affect on \\[shell] like commands. If nil, 'sh' will be used." ) |
446 |
450 |
1484 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1488 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1485 (message "man, woman") |
1489 (message "man, woman") |
1486 |
1490 |
1487 (eval-when 'compile (require 'woman)) |
1491 (eval-when 'compile (require 'woman)) |
1488 |
1492 |
1489 ;; Assume that cygwin-mount already activated. |
|
1490 (when (featurep 'cygwin-mount) |
1493 (when (featurep 'cygwin-mount) |
1491 (let ( (path (expand-file-name "~")) ) |
1494 (let ( (path (expand-file-name "~")) ) |
1492 (when (string-match "\\([c-z]\\):/" path) |
1495 (when (string-match "\\([c-z]\\):/" path) |
1493 (setenv "MANPATH" (concat "/cygdrive/" (substring path 0 1) "/" (substring path 3) "/usr/share/man/:")) |
1496 (setenv "MANPATH" (concat "/cygdrive/" (substring path 0 1) "/" (substring path 3) "/usr/share/man/:")) |
1494 ) )) |
1497 ) )) |