[elpa] externals/xr 513e815 3/3: Run with case-fold-search set to nil

[Mattias Engdegård]

branch: externals/xr
commit 513e81551f01a1557f1f6a38c4cc0dcbadb14ffa
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Run with case-fold-search set to nil
    
    Although none of the regexps matches in the code appear to have their
    meaning altered by `case-fold-search' right now, it is a ticking bomb,
    so better be safe.
---
 xr.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/xr.el b/xr.el
index 1fd9324..c9ce0f2 100644
--- a/xr.el
+++ b/xr.el
@@ -559,7 +559,8 @@
     (set-buffer-multibyte t)
     (insert re-string)
     (goto-char (point-min))
-    (let ((rx (xr--parse-alt warnings)))
+    (let* ((case-fold-search nil)
+           (rx (xr--parse-alt warnings)))
       (when (looking-at (rx "\\)"))
         (error "Unbalanced \\)"))
       rx)))