amogus2/emacs-dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Various enhancements in garbage collection, file-name-handler-alist, and recentf

Browse Source
This commit is contained in:
James Cherti
2025-02-18 15:58:05 -05:00
parent e16fe62722
commit 1293be787c
2 changed files with 16 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
early-init.el
View File

@@ -89,9 +89,10 @@ minimalistic appearance during startup.")
(setq gc-cons-threshold most-positive-fixnum) (setq gc-cons-threshold most-positive-fixnum)
(add-hook 'emacs-startup-hook (defun minimal-emacs--restore-gc-cons-threshold ()
(lambda () "Restore `minimal-emacs-gc-cons-threshold'."
(setq gc-cons-threshold minimal-emacs-gc-cons-threshold))) (setq gc-cons-threshold minimal-emacs-gc-cons-threshold))
(add-hook 'emacs-startup-hook #'minimal-emacs--restore-gc-cons-threshold 105)
;;; Misc ;;; Misc
@@ -127,15 +128,17 @@ minimalistic appearance during startup.")
(let ((file-name-handler-alist (let ((file-name-handler-alist
(if args-left old-value file-name-handler-alist))) (if args-left old-value file-name-handler-alist)))
(funcall fn args-left))) (funcall fn args-left)))
;; Remember the old value to reset it as needed.
(add-hook 'emacs-startup-hook ;; Restore the old value to reset it as needed.
(lambda () (defun minimal-emacs--restore-file-name-handler-alist ()
"Restore `file-name-handler-alist'."
(set-default-toplevel-value (set-default-toplevel-value
'file-name-handler-alist 'file-name-handler-alist
;; Merge instead of overwrite to preserve any changes made ;; Merge instead of overwrite to preserve any changes made since startup.
;; since startup.
(delete-dups (append file-name-handler-alist old-value)))) (delete-dups (append file-name-handler-alist old-value))))
101))
(add-hook
'emacs-startup-hook #'minimal-emacs--restore-file-name-handler-alist 101))
(unless noninteractive (unless noninteractive
(unless minimal-emacs-debug (unless minimal-emacs-debug

10
init.el
View File

@@ -208,15 +208,7 @@
;; recently. ;; recently.
(setq recentf-max-saved-items 300) ; default is 20 (setq recentf-max-saved-items 300) ; default is 20
(setq recentf-max-menu-items 15) (setq recentf-max-menu-items 15)
(setq recentf-auto-cleanup (if (daemonp) 300 'never)) (setq recentf-auto-cleanup (if (daemonp) 300 'mode))
(defun minimal-emacs--cleanup-hook ()
"Run `recentf-cleanup' if `recentf' is loaded and `recentf-mode' is enabled."
(when (and (featurep 'recentf)
recentf-mode
(fboundp 'recentf-cleanup))
(recentf-cleanup)))
(add-hook 'kill-emacs-hook #'minimal-emacs--cleanup-hook)
;; Update recentf-exclude ;; Update recentf-exclude
(setq recentf-exclude (list "^/\\(?:ssh\\|su\\|sudo\\)?:")) (setq recentf-exclude (list "^/\\(?:ssh\\|su\\|sudo\\)?:"))