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 · Jul 15, 2018 · 5c246bc · 5c246bc
1 parent 7ad5494
commit 5c246bc
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/org-gcal.el b/org-gcal.el
@@ -415,7 +415,9 @@ 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)
+                (select-enable-clipboard nil))
+            (org-archive-subtree)))))
     (save-buffer)))
 
 (defun org-gcal--save-sexp (data file)