equal
deleted
inserted
replaced
569 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
569 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
570 (message "shell, bash") |
570 (message "shell, bash") |
571 |
571 |
572 (cl-eval-when (compile) (require 'shell)) |
572 (cl-eval-when (compile) (require 'shell)) |
573 |
573 |
574 (setq explicit-bash-args '("-i")) |
574 (setq explicit-bash-args |
|
575 (if (eq system-type 'windows-nt) |
|
576 ;; https://emacs.stackexchange.com/questions/71487/mingw-shell-in-emacs/ |
|
577 (list "--login") |
|
578 (list "-i"))) |
575 |
579 |
576 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
580 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
577 (message "Cygwin, MSYS") |
581 (message "Cygwin, MSYS") |
578 |
582 |
579 (when (and (eq system-type 'cygwin) (fboundp #'cygwin-winpath-activate)) |
583 (when (and (eq system-type 'cygwin) (fboundp #'cygwin-winpath-activate)) |