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:
parent
1dfe6c472a
commit
b40924a80b
1 changed files with 8 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue