branch: elpa/raku-mode
commit 023eb3227b285f53c21c02304f2c19790645fa3e
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
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))
