equal
deleted
inserted
replaced
552 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
552 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
553 (message "Cygwin, MSYS") |
553 (message "Cygwin, MSYS") |
554 |
554 |
555 (when (and (eq system-type 'cygwin) (fboundp #'cygwin-winpath-activate)) |
555 (when (and (eq system-type 'cygwin) (fboundp #'cygwin-winpath-activate)) |
556 (cygwin-winpath-activate)) |
556 (cygwin-winpath-activate)) |
|
557 |
|
558 ;; Add some standard places to PATH as Emacs is not started from login shell |
|
559 ;; on Windows... |
|
560 (when (eq system-type 'cygwin) |
|
561 (mapc (lambda (path) |
|
562 (unless (cl-search (concat ":" path ":") (concat ":" (getenv "PATH") ":")) |
|
563 (setenv "PATH" (concat (getenv "PATH") ":" path)))) |
|
564 (list (expand-file-name "~/.local/bin") "/usr/local/bin"))) |
557 |
565 |
558 (defun follow-cygwin-symlink () |
566 (defun follow-cygwin-symlink () |
559 "Follow new-style (and also UCS-16) Cygwin symlinks." |
567 "Follow new-style (and also UCS-16) Cygwin symlinks." |
560 (save-excursion |
568 (save-excursion |
561 (goto-char 0) |
569 (goto-char 0) |