diff options
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 7759ed5aed3..2b4f4c7520c 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -980,6 +980,13 @@ XDG convention for dotfiles." (found-path (if (file-exists-p xdg-path) xdg-path oldstyle-path))) found-path)) +(defcustom gc-cons-opportunistic-idle-time 5 + "Number of seconds before trying an opportunistic GC. +After this number of seconds of idle time, Emacs tries to collect +garbage more eagerly (i.e. with thresholds halved) in the hope +to avoid running the GC later during non-idle time." + :type 'integer) + (defun command-line () "A subroutine of `normal-top-level'. Amongst another things, it parses the command-line arguments." @@ -1377,6 +1384,16 @@ please check its value") (eq face-ignored-fonts old-face-ignored-fonts)) (clear-face-cache))) + ;; Start opportunistic GC (after loading the init file, so we obey + ;; its settings). This is desirable for two reason: + ;; - It reduces the number of times we have to GC in the middle of + ;; an operation. + ;; - It means we GC when the C stack is short, reducing the risk of false + ;; positives from the conservative stack scanning. + (when gc-cons-opportunistic-idle-time + (run-with-idle-timer gc-cons-opportunistic-idle-time t + #'garbage-collect-maybe 2)) + (setq after-init-time (current-time)) ;; Display any accumulated warnings after all functions in ;; `after-init-hook' like `desktop-read' have finalized possible |