org-narrow-to-subtree: save match data

1 files changed, 4 insertions, 3 deletions

diff --git a/org.el b/org.el
index 81b1611..55a2d71 100644
--- a/org.el
+++ b/org.el
@@ -6676,9 +6676,10 @@ If optional TXT is given, check this string instead of the current kill."
   "Narrow buffer to the current subtree."
   (interactive)
   (save-excursion
-    (narrow-to-region
-     (progn (org-back-to-heading) (point))
-     (progn (org-end-of-subtree t t) (point)))))
+    (save-match-data
+      (narrow-to-region
+       (progn (org-back-to-heading) (point))
+       (progn (org-end-of-subtree t t) (point))))))
 
 
 ;;; Outline Sorting