Add function to remove non-existant files from file-name-history

2021-01-04 13:29:09 -05:00 · 2021-01-04 13:29:09 -05:00 · f1e539139e
commit f1e539139e
parent 0c123b0c74
1 changed files with 9 additions and 1 deletions
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@ -61,7 +61,15 @@

 (use-package savehist :demand
  :config
-  (savehist-mode))
+  (savehist-mode)
+  (defun savehist-file-name-history-cleanup ()
+    "Delete all the files in file-name-history that don't exist anymore"
+    (interactive)
+    (setq file-name-history
+          (seq-filter
+           (lambda (file)
+             (or (file-remote-p file) (file-exists-p file)))
+           file-name-history))))

 (use-package paren :demand
  :config