savehist: don't save kill ring string properties

1 files changed, 9 insertions, 4 deletions

diff --git a/init.el b/init.el
index 3bf30b1..dc72deb 100644
--- a/init.el
+++ b/init.el
@@ -108,11 +108,16 @@
 
 (setq savehist-file (expand-file-name "~/.emacs.d/cache/history"))
 (require 'savehist)
+
 (savehist-mode t)
-(setq savehist-additional-variables
-      '(kill-ring search-ring regexp-search-ring)
-      savehist-ignored-variables
-      '(ido-file-history))
+
+(defun jao-unpropertize-kill-ring ()
+  (setq kill-ring (mapcar #'substring-no-properties kill-ring)))
+
+(add-hook 'kill-emacs-hook #'jao-unpropertize-kill-ring)
+
+(setq savehist-additional-variables '(kill-ring search-ring regexp-search-ring)
+      savehist-ignored-variables '(ido-file-history))
 
 ;;;; yes/no, bell, startup message