# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1609620070 -7200
# Node ID bedbd1cd366d2a4cfbe968a86d6d2d92467ce13b
# Parent  6a740def74e87b9f92ec309bcea1c58575e27908
Fixed byte compilation warning: assignment to free variable "for".

diff -r 6a740def74e8 -r bedbd1cd366d .emacs-my
--- a/.emacs-my	Sat Jan 02 22:38:46 2021 +0200
+++ b/.emacs-my	Sat Jan 02 22:41:10 2021 +0200
@@ -1994,7 +1994,7 @@
 Without prefix work on current file. With prefix work on
 `org-agenda-files'."
   (interactive "P")
-  (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do
+  (cl-loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do
         (my-org-archive-file file)))
 
 (setq org-agenda-include-diary nil)