diff options
| author | Quentin Aristote <quentin@aristote.fr> | 2021-11-19 23:06:29 +0100 |
|---|---|---|
| committer | Quentin Aristote <quentin@aristote.fr> | 2021-11-19 23:06:29 +0100 |
| commit | 05804191279dffa716c73f148b1d7b9320d60139 (patch) | |
| tree | a351f3447399c4e7e8c03b5acf31773e8fcbb24b | |
| parent | 83dfc402d4ec46eab83f770da57edfd784d73b25 (diff) | |
correct archive-all-read to not skip entries
| -rw-r--r-- | local/bibli-paris/bibli-paris.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/local/bibli-paris/bibli-paris.el b/local/bibli-paris/bibli-paris.el index 0822ec1..68955a7 100644 --- a/local/bibli-paris/bibli-paris.el +++ b/local/bibli-paris/bibli-paris.el @@ -399,7 +399,12 @@ STATE (string)." (interactive) (org-map-entries (lambda () (if (equal (org-get-todo-state) "DONE") - (org-archive-subtree))))) + (progn + ;; archiving an entry moves the cursor to next entry + ;; so we move it back to the previous entry + (org-archive-subtree) + (setq org-map-continue-from (outline-get-last-sibling)) + ))))) ;; minor mode |