emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source 
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
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
core/core-os.el
View file

@ -1,7 +1,8 @@
;;; core-os.el -*- lexical-binding: t; -*- ;;; core-os.el -*- lexical-binding: t; -*-
(defconst IS-MAC (eq system-type 'darwin)) (defconst IS-MAC (eq system-type 'darwin))
(defconst IS-LINUX (eq system-type 'gnu/linux)) (defconst IS-LINUX (eq system-type 'gnu/linux))
(defconst IS-WINDOWS (memq system-type '(cygwin windows-nt ms-dos)))
;; clipboard ;; clipboard
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING) (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)
@ -50,7 +51,11 @@
(IS-LINUX (IS-LINUX
(setq x-gtk-use-system-tooltips nil ; native tooltips are ugly! (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) (provide 'core-os)
;;; core-os.el ends here ;;; core-os.el ends here