equal
deleted
inserted
replaced
1992 files with name mangled by `my-org-archive-location'. |
1992 files with name mangled by `my-org-archive-location'. |
1993 . |
1993 . |
1994 Without prefix work on current file. With prefix work on |
1994 Without prefix work on current file. With prefix work on |
1995 `org-agenda-files'." |
1995 `org-agenda-files'." |
1996 (interactive "P") |
1996 (interactive "P") |
1997 (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do |
1997 (cl-loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do |
1998 (my-org-archive-file file))) |
1998 (my-org-archive-file file))) |
1999 |
1999 |
2000 (setq org-agenda-include-diary nil) |
2000 (setq org-agenda-include-diary nil) |
2001 |
2001 |
2002 (defun my-org-kill-by-tag (tag) |
2002 (defun my-org-kill-by-tag (tag) |