core-os: add IS-WINDOWS & w32-get-true-file-attributes = nil

First step in a long journey towards Windows support.
This commit is contained in:
Henrik Lissner 2018-02-02 23:45:52 -05:00
parent 1dfe6c472a
commit b40924a80b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -2,6 +2,7 @@
(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