# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1455293055 -7200
# Node ID 7c93663d44f30a3f3110e38ae96d49312bb903de
# Parent  c8606339804e6b835c8649293851419d2ce53d59
Modify archive file only if archive entries found.

diff -r c8606339804e -r 7c93663d44f3 .emacs-my
--- a/.emacs-my	Fri Feb 12 17:55:01 2016 +0200
+++ b/.emacs-my	Fri Feb 12 18:04:15 2016 +0200
@@ -1643,12 +1643,13 @@
           (let ( (last-command 'kill-region) )
             (kill-region entry-beg entry-end))
           )
-        (with-current-buffer (find-file-noselect archive)
-          (goto-char (point-max))
-          (insert ?\n)
-          (yank)
-          (save-buffer))
-        (save-buffer) ))))
+        (when (> (length (car kill-ring)) 0)
+          (with-current-buffer (find-file-noselect archive)
+            (goto-char (point-max))
+            (insert ?\n)
+            (yank)
+            (save-buffer))
+          (save-buffer) )))))
 
 (defun my/org-archive (&optional prefix)
   "Move all entries marked by `org-done-keywords' to archive