[nongnu] elpa/raku-mode 023eb3227b 007/253: Nullify case-fold-search for the entire function body

[ELPA Syncer]

branch: elpa/raku-mode
commit 023eb3227b285f53c21c02304f2c19790645fa3e
Author: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>

    Nullify case-fold-search for the entire function body
---
 perl6-mode.el | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/perl6-mode.el b/perl6-mode.el
index 6a198c3ecb..59940e1661 100644
--- a/perl6-mode.el
+++ b/perl6-mode.el
@@ -69,21 +69,21 @@
 ;;;###autoload
 (defun perl6-magic-matcher ()
   "Return non-nil if the current buffer is probably a Perl 6 file."
-  (and (and (stringp buffer-file-name)
-            (string-match "\\.\\(?:t\\|p[lm]\\)\\'" buffer-file-name))
-       (let ((case-fold-search nil)
-             (keep-going t)
-             (found-perl6 nil))
-         (while keep-going
-           (cond ((looking-at "^ *\\(?:#.*\\)?$")
-                  nil)
-                 ((looking-at perl6-magic-pattern)
-                  (setq keep-going nil
-                        found-perl6 t))
-                 (t
-                  (setq keep-going nil)))
-           (beginning-of-line 2))
-         found-perl6)))
+  (let ((case-fold-search nil))
+    (and (and (stringp buffer-file-name)
+              (string-match "\\.\\(?:t\\|p[lm]\\)\\'" buffer-file-name))
+         (let ((keep-going t)
+               (found-perl6 nil))
+           (while keep-going
+             (cond ((looking-at "^ *\\(?:#.*\\)?$")
+                    nil)
+                   ((looking-at perl6-magic-pattern)
+                    (setq keep-going nil
+                          found-perl6 t))
+                   (t
+                    (setq keep-going nil)))
+             (beginning-of-line 2))
+           found-perl6))))
 
 ;;;###autoload
 (add-to-list 'magic-mode-alist '(perl6-magic-matcher . perl6-mode))