Fix non-string errors from kill-ring
When unpropertizing the kill ring.
This commit is contained in:
parent
12c5490a39
commit
735e14270e
1 changed files with 4 additions and 1 deletions
|
@ -102,7 +102,10 @@ fundamental-mode) for performance sake."
|
||||||
(defun doom|unpropertize-kill-ring ()
|
(defun doom|unpropertize-kill-ring ()
|
||||||
"Remove text properties from `kill-ring' in the interest of shrinking the
|
"Remove text properties from `kill-ring' in the interest of shrinking the
|
||||||
savehist file."
|
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))
|
(add-hook 'kill-emacs-hook #'doom|unpropertize-kill-ring))
|
||||||
|
|
||||||
;; persistent point location in buffers
|
;; persistent point location in buffers
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue