branch: externals/xr
commit 513e81551f01a1557f1f6a38c4cc0dcbadb14ffa
Author: Mattias Engdegård <matti...@acm.org>
Commit: Mattias Engdegård <matti...@acm.org>
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)))
