From b40924a80bfb3a2986cdcdb5d9065d898e4fd564 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 2 Feb 2018 23:45:52 -0500 Subject: [PATCH] core-os: add IS-WINDOWS & w32-get-true-file-attributes = nil First step in a long journey towards Windows support. --- core/core-os.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/core/core-os.el b/core/core-os.el index 9b41c437e..28206edb7 100644 --- a/core/core-os.el +++ b/core/core-os.el @@ -1,7 +1,8 @@ ;;; core-os.el -*- lexical-binding: t; -*- -(defconst IS-MAC (eq system-type 'darwin)) -(defconst IS-LINUX (eq system-type 'gnu/linux)) +(defconst IS-MAC (eq system-type 'darwin)) +(defconst IS-LINUX (eq system-type 'gnu/linux)) +(defconst IS-WINDOWS (memq system-type '(cygwin windows-nt ms-dos))) ;; clipboard (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING) @@ -50,7 +51,11 @@ (IS-LINUX (setq x-gtk-use-system-tooltips nil ; native tooltips are ugly! - x-underline-at-descent-line t))) ; draw underline lower + x-underline-at-descent-line t)) ; draw underline lower + + (IS-WINDOWS + (setq w32-get-true-file-attributes nil) ; fix file io slowdowns + )) (provide 'core-os) ;;; core-os.el ends here