From aede4d4cc0b037e5989052a6595bda0abb9756b8 Mon Sep 17 00:00:00 2001
From: KemoNine <kemonine@kemonine.info>
Date: Sat, 27 Jul 2024 18:50:46 -0400
Subject: [PATCH] windows specific speedups

---
 code/init.el | 18 +++++++++++++++++-
 org/init.el  | 18 +++++++++++++++++-
 2 files changed, 34 insertions(+), 2 deletions(-)

diff --git a/code/init.el b/code/init.el
index f0b7fdb..6470f43 100644
--- a/code/init.el
+++ b/code/init.el
@@ -1,6 +1,22 @@
 ;; -*- lexical-binding: t; -*-
-;; TURN ON IN INIT FILE!!!!!
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; windows performance tweaks
+(when (eq system-type 'windows-nt)
+; https://lists.gnu.org/archive/html/bug-gnu-emacs/2012-10/msg00274.html
+; https://gioorgi.com/2013/solving-emacs-freeze-andor-slowdown-on-windows7/
+(setq w32-get-true-file-attributes nil)
+
+; https://www.reddit.com/r/emacs/comments/c9ef5i/comment/esx5ndr/
+(setq inhibit-compacting-font-caches t)
+
+; https://www.reddit.com/r/emacs/comments/c9ef5i/comment/esx5snw/
+(when (boundp 'w32-pipe-read-delay)
+(setq w32-pipe-read-delay 0)) 
+)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; misc performance tweaks
 ;; Make gc pauses faster by decreasing the threshold.
 (setq gc-cons-threshold (* 2 1000 1000))
 
diff --git a/org/init.el b/org/init.el
index a2c6ce8..c37ea92 100644
--- a/org/init.el
+++ b/org/init.el
@@ -1,6 +1,22 @@
 ;; -*- lexical-binding: t; -*-
-;; TURN ON IN INIT FILE!!!!!
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; windows performance tweaks
+(when (eq system-type 'windows-nt)
+; https://lists.gnu.org/archive/html/bug-gnu-emacs/2012-10/msg00274.html
+; https://gioorgi.com/2013/solving-emacs-freeze-andor-slowdown-on-windows7/
+(setq w32-get-true-file-attributes nil)
+
+; https://www.reddit.com/r/emacs/comments/c9ef5i/comment/esx5ndr/
+(setq inhibit-compacting-font-caches t)
+
+; https://www.reddit.com/r/emacs/comments/c9ef5i/comment/esx5snw/
+(when (boundp 'w32-pipe-read-delay)
+(setq w32-pipe-read-delay 0)) 
+)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; misc performance tweaks
 ;; Make gc pauses faster by decreasing the threshold.
 (setq gc-cons-threshold (* 2 1000 1000))