[elpa] externals/corfu 4ef4ca3 5/6: Ensure that case-fold-search=t (See #17)

[Protesilaos Stavrou]

branch: externals/corfu
commit 4ef4ca3c7a9bbda3d2900c3d2340a377743d329a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Ensure that case-fold-search=t (See #17)
---
 corfu.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/corfu.el b/corfu.el
index fc08a26..d7cfc3d 100644
--- a/corfu.el
+++ b/corfu.el
@@ -180,13 +180,14 @@ Set to nil in order to disable confirmation."
   (let* ((window-min-height 1)
          (window-min-width 1)
          (x-gtk-resize-child-frames
-          (and
-           ;; XXX Hack to fix resizing on gtk3/gnome taken from posframe.el
-           ;; See https://github.com/minad/corfu/issues/17
-           (string-match-p "gtk3" system-configuration-features)
-           (string-match-p "gnome\\|cinnamon" (or (getenv 
"XDG_CURRENT_DESKTOP")
-                                                  (getenv "DESKTOP_SESSION") 
""))
-           'resize-mode))
+          (let ((case-fold-search t))
+            (and
+             ;; XXX Hack to fix resizing on gtk3/gnome taken from posframe.el
+             ;; See https://github.com/minad/corfu/issues/17
+             (string-match-p "gtk3" system-configuration-features)
+             (string-match-p "gnome\\|cinnamon" (or (getenv 
"XDG_CURRENT_DESKTOP")
+                                                    (getenv "DESKTOP_SESSION") 
""))
+             'resize-mode)))
          (after-make-frame-functions)
          (edge (window-inside-pixel-edges))
          (lh (line-pixel-height))