[elpa] externals/org ed42dc34a8 1/3: * lisp/ol.el (org-link-search): Ignore case when matching headings

[ELPA Syncer]

branch: externals/org
commit ed42dc34a8f9be003480896fdd8a3238807dc9d7
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * lisp/ol.el (org-link-search): Ignore case when matching headings
    
    As per the docstring.
---
 lisp/ol.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/ol.el b/lisp/ol.el
index 20aab6bb8a..1bd42a980b 100644
--- a/lisp/ol.el
+++ b/lisp/ol.el
@@ -1237,7 +1237,7 @@ of matched result, which is either `dedicated' or 
`fuzzy'."
               (while (re-search-forward name nil t)
                 (let* ((element (org-element-at-point))
                        (name (org-element-property :name element)))
-                  (when (and name (equal words (split-string name)))
+                  (when (and name (equal (mapcar #'upcase words) (mapcar 
#'upcase (split-string name))))
                     (setq type 'dedicated)
                     (forward-line 0)
                     (throw :name-match t))))
@@ -1254,10 +1254,11 @@ of matched result, which is either `dedicated' or 
`fuzzy'."
             (goto-char (point-min))
             (catch :found
               (while (re-search-forward title-re nil t)
-                (when (equal words
-                             (split-string
-                              (org-link--normalize-string
-                               (org-get-heading t t t t))))
+                (when (equal (mapcar #'upcase words)
+                              (mapcar #'upcase
+                                     (split-string
+                                      (org-link--normalize-string
+                                       (org-get-heading t t t t)))))
                   (throw :found t)))
               nil)))
       (forward-line 0)