Merge: v0.7.3

2023-10-23 18:55:00 -05:00 · 2023-10-23 18:55:00 -05:00 · ee01bcb6e8
commit ee01bcb6e8
parent ac2d43588a 28c4215704
5 changed files with 140 additions and 107 deletions
--- a/org-ql.el
+++ b/org-ql.el
@ -624,9 +624,10 @@ Returns cons (INHERITED-TAGS . LOCAL-TAGS)."
  "Return outline path for heading at point."
  (save-excursion
    (let ((heading (save-match-data
-                     (if (looking-at org-complex-heading-regexp)
-                         (or (match-string 4) "")
-                       ""))))
+                     (let (case-fold-search)
+                       (if (looking-at org-complex-heading-regexp)
+                           (or (match-string-no-properties 4) "")
+                         "")))))
      (if (org-up-heading-safe)
          ;; MAYBE: It seems wrong to call the cache function from
          ;; inside this function, like a violation of separation of