summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-org.el16
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el
index e1fa33f..35a39cb 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -190,14 +190,16 @@ After sorting, the point is returned to its previous location
under the current heading."
(interactive "p")
(let ((heading (org-no-properties (org-get-heading t t)))
- starting-pos
+ (starting-pos (point))
chars-after-heading)
- (setq starting-pos (point))
- (save-excursion
- (org-back-to-heading t)
- (setq chars-after-heading (- starting-pos (point)))
- (outline-up-heading arg)
- (call-interactively 'org-sort))
+ (org-back-to-heading t)
+ (setq chars-after-heading (- starting-pos (point)))
+ (outline-up-heading arg)
+ (call-interactively #'org-sort)
+ ;; Sorting doesn't play well with `save-restriction' or markers,
+ ;; so just put the point where it was relative to original
+ ;; heading. This may not actually be the same tree if there are
+ ;; redundant headings.
(goto-char (+ (org-find-exact-headline-in-buffer heading nil t)
chars-after-heading))))