me-with-org-parent-heading: make sure we widen also in case of errors

ag91 · Sep 3, 2024 · 42dfd50 · 42dfd50
1 parent cc52a1e
commit 42dfd50
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/moldable-emacs.el b/moldable-emacs.el
@@ -372,10 +372,15 @@ so with keyword entries, into a org table with headings.
   "Execute BODY with narrowing on the upmost parent heading if it exists."
   `(save-excursion
      (while (org-up-heading-safe))
-     (ignore-errors (org-narrow-to-subtree))
-     (let ((r__ (progn ,@body)))
-       (widen)
-       r__)))
+     (with-demoted-errors (org-narrow-to-subtree))
+     (condition-case err
+         (let ((r__ (progn ,@body)))
+           (widen)
+           r__)
+       (error
+        (widen)
+        (error err)))
+     ))
 
 (defun me-first-org-table (&optional buffer)
   "Find first org table.  Optionally in BUFFER."