From 735e14270ee0b527a4a014954667122aefe071ad Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 11 Aug 2018 02:05:33 +0200 Subject: [PATCH] Fix non-string errors from kill-ring When unpropertizing the kill ring. --- core/core-editor.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/core/core-editor.el b/core/core-editor.el index 88ae20724..0962c5a7b 100644 --- a/core/core-editor.el +++ b/core/core-editor.el @@ -102,7 +102,10 @@ fundamental-mode) for performance sake." (defun doom|unpropertize-kill-ring () "Remove text properties from `kill-ring' in the interest of shrinking the savehist file." - (setq kill-ring (mapcar #'substring-no-properties kill-ring))) + (setq kill-ring (cl-loop for item in kill-ring + if (stringp item) + collect (substring-no-properties item) + else if item collect it))) (add-hook 'kill-emacs-hook #'doom|unpropertize-kill-ring)) ;; persistent point location in buffers