Add bindings to widen org-buffer on next/previous heading

1 files changed, 17 insertions, 0 deletions

@@ -367,5 +367,22 @@ instead of the true count."
            (call-interactively 'org-insert-link)))))
 
 
+;;; Next and previous heading, with widening
+(defun acdw/org-next-heading-widen (arg)
+  (interactive "p")
+  (let ((point-target (if (> arg 0)
+                          (point-max)
+                        (point-min))))
+    (unless (or (org-next-visible-heading arg)
+                (/= (point) point-target))
+      (when (buffer-narrowed-p)
+        (widen)
+        (org-next-visible-heading arg)))))
+
+(defun acdw/org-previous-heading-widen (arg)
+  (interactive "p")
+  (acdw/org-next-heading (- arg)))
+
+
 (provide 'acdw-org)
 ;; acdw-org.el ends here