awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

refactor: use eval-when! less

Browse Source 
These uses of this macro are a micro optimization that yield no benefit.
The only place it's useful is in autoloads (which are guaranteed to be
byte-compiled during `doom sync`).
This commit is contained in:
Henrik Lissner
2024-08-15 23:21:37 -04:00
parent 0f4328058c
commit e8a444749a
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/doom-start.el
View File

@ -70,7 +70,7 @@
;; default 0.1 should make childframes and packages that manipulate them (like ;; default 0.1 should make childframes and packages that manipulate them (like
;; `lsp-ui', `company-box', and `posframe') feel much snappier. See ;; `lsp-ui', `company-box', and `posframe') feel much snappier. See
;; emacs-lsp/lsp-ui#613. ;; emacs-lsp/lsp-ui#613.
(eval-when! (boundp 'pgtk-wait-for-event-timeout) (when (boundp 'pgtk-wait-for-event-timeout)
(setq pgtk-wait-for-event-timeout 0.001)) (setq pgtk-wait-for-event-timeout 0.001))
;; Increase how much is read from processes in a single chunk (default is 4kb). ;; Increase how much is read from processes in a single chunk (default is 4kb).
@ -83,7 +83,7 @@
;; Performance on Windows is considerably worse than elsewhere. We'll need ;; Performance on Windows is considerably worse than elsewhere. We'll need
;; everything we can get. ;; everything we can get.
(eval-when! (boundp 'w32-get-true-file-attributes) (when (boundp 'w32-get-true-file-attributes)
(setq w32-get-true-file-attributes nil ; decrease file IO workload (setq w32-get-true-file-attributes nil ; decrease file IO workload
w32-pipe-read-delay 0 ; faster IPC w32-pipe-read-delay 0 ; faster IPC
w32-pipe-buffer-size (* 64 1024))) ; read more at a time (was 4K) w32-pipe-buffer-size (* 64 1024))) ; read more at a time (was 4K)

2
modules/lang/ocaml/config.el
View File

@ -132,5 +132,5 @@
(opam-switch-set-switch (tuareg-opam-current-compiler))) (opam-switch-set-switch (tuareg-opam-current-compiler)))
(eval-when! (modulep! +tree-sitter) (when (modulep! +tree-sitter)
(add-hook 'tuareg-mode-local-vars-hook #'tree-sitter!)) (add-hook 'tuareg-mode-local-vars-hook #'tree-sitter!))