equal
deleted
inserted
replaced
1641 (goto-char (point-max))) |
1641 (goto-char (point-max))) |
1642 (setq entry-end (point)) |
1642 (setq entry-end (point)) |
1643 (let ( (last-command 'kill-region) ) |
1643 (let ( (last-command 'kill-region) ) |
1644 (kill-region entry-beg entry-end)) |
1644 (kill-region entry-beg entry-end)) |
1645 ) |
1645 ) |
1646 (with-current-buffer (find-file-noselect archive) |
1646 (when (> (length (car kill-ring)) 0) |
1647 (goto-char (point-max)) |
1647 (with-current-buffer (find-file-noselect archive) |
1648 (insert ?\n) |
1648 (goto-char (point-max)) |
1649 (yank) |
1649 (insert ?\n) |
1650 (save-buffer)) |
1650 (yank) |
1651 (save-buffer) )))) |
1651 (save-buffer)) |
|
1652 (save-buffer) ))))) |
1652 |
1653 |
1653 (defun my/org-archive (&optional prefix) |
1654 (defun my/org-archive (&optional prefix) |
1654 "Move all entries marked by `org-done-keywords' to archive |
1655 "Move all entries marked by `org-done-keywords' to archive |
1655 files with name mangled by `my/org-archive-location'. |
1656 files with name mangled by `my/org-archive-location'. |
1656 |
1657 |