From 3987efef29c526083ed317c8a72ae7296d656729 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia-Ripoll Date: Mon, 4 Jan 2021 18:13:48 +0100 Subject: [PATCH] Add the mingw and msys2 tools to the path --- scripts/site-start.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/scripts/site-start.el b/scripts/site-start.el index 54f14fa..5da091b 100644 --- a/scripts/site-start.el +++ b/scripts/site-start.el @@ -1,8 +1,11 @@ (let* ((emacs-libexec-path (car (last exec-path))) (emacs-libexec-ndx (string-match "libexec" emacs-libexec-path)) - (emacs-root (substring emacs-libexec-path 0 emacs-libexec-ndx))) - (add-to-list 'exec-path (expand-file-name "bin/" emacs-root)) - (add-to-list 'exec-path (expand-file-name "usr/bin/" emacs-root)) + (emacs-root (substring emacs-libexec-path 0 emacs-libexec-ndx)) + (msys2-dir (expand-file-name "usr/bin/" emacs-root)) + (mingw-dir (expand-file-name "bin/" emacs-root) + (add-to-list 'exec-path msys2-dir) + (add-to-list 'exec-path mingw-dir) + (setenv "PATH" (concat mingw-dir ";" msys2-dir ";" (getenv "PATH"))) (let ((default-directory (expand-file-name "usr/share/emacs/site-lisp/" emacs-root))) (when (file-exists-p default-directory) (if (fboundp 'normal-top-level-add-subdirs-to-load-path)