mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
Fix savehist causing pauses due to faulty hook
This commit is contained in:
@ -44,14 +44,15 @@
|
|||||||
(require 'savehist)
|
(require 'savehist)
|
||||||
(setq savehist-file (concat doom-cache-dir "savehist")
|
(setq savehist-file (concat doom-cache-dir "savehist")
|
||||||
savehist-save-minibuffer-history t
|
savehist-save-minibuffer-history t
|
||||||
|
savehist-autosave-interval nil ; save on kill only
|
||||||
savehist-additional-variables '(kill-ring search-ring regexp-search-ring))
|
savehist-additional-variables '(kill-ring search-ring regexp-search-ring))
|
||||||
(savehist-mode 1)
|
(savehist-mode 1)
|
||||||
|
|
||||||
;; Remove text-property cruft from history
|
;; Remove text-property cruft from history
|
||||||
(defun doom|unpropertize-savehist ()
|
(defun doom|unpropertize-savehist ()
|
||||||
(mapc (lambda (list)
|
(mapc (lambda (sym)
|
||||||
(when (boundp list)
|
(when (boundp sym)
|
||||||
(set list (mapcar 'substring-no-properties (eval list)))))
|
(setf (symbol-value sym) (mapcar 'substring-no-properties (symbol-value sym)))))
|
||||||
'(kill-ring minibuffer-history helm-grep-history helm-ff-history
|
'(kill-ring minibuffer-history helm-grep-history helm-ff-history
|
||||||
file-name-history read-expression-history extended-command-history
|
file-name-history read-expression-history extended-command-history
|
||||||
evil-ex-history)))
|
evil-ex-history)))
|
||||||
|
Reference in New Issue
Block a user