diff options
Diffstat (limited to 'pearl.el')
| -rw-r--r-- | pearl.el | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -6973,6 +6973,10 @@ buffer doesn't show." (let ((ranks (pearl--issue-id-ranks result source))) (pearl--merge-query-result result source) (pearl--reorder-issue-subtrees nil 'asc ranks)) + ;; The reorder rewrites the issue block with delete+insert, which + ;; drops the fold overlays and leaves every subtree expanded. + ;; Re-fold so the page stays the scannable outline it was. + (pearl--restore-page-visibility) (pearl--write-linear-source-header source) (message "Refetched %s ordered by %s %sending" (pearl--source-name source) sort @@ -7002,6 +7006,10 @@ Returns `client', `server', `grouped', or `no-issues'." (message "No issues to sort in this buffer") 'no-issues) (_ + ;; The reorder rewrites the issue block with delete+insert, which + ;; drops the fold overlays and leaves every subtree expanded. Re-fold + ;; so the page stays the scannable outline it was before the sort. + (pearl--restore-page-visibility) (pearl--write-linear-source-header updated) (message "Sorted current buffer by %s %sending" sort (if (eq order 'asc) "asc" "desc")) |