protect kill-ring

org-archive-subtree messes the kill-ring. Wrapping it in a let binding creating a copy of kill-ring and we restore the kill-ring after the messup.
myuhe · Jun 18, 2018 · 3c2f44d · 3c2f44d
1 parent 7ad5494
commit 3c2f44d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/org-gcal.el b/org-gcal.el
@@ -415,7 +415,8 @@ It returns the code provided by the service."
                                              (plist-get tobj :month-end)
                                              (plist-get tobj :year-end))))
           (org-gcal--notify "Archived event." (org-element-property :title elem))
-          (org-archive-subtree))))
+          (let ((kill-ring kill-ring))
+            (org-archive-subtree)))))
     (save-buffer)))
 
 (defun org-gcal--save-sexp (data file)