[nongnu] elpa/raku-mode 6f3c29a29c 004/253: Add back the filename constraint

[ELPA Syncer]

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

    Add back the filename constraint
    
    I accidentally removed it in 6fa383e.
---
 perl6-mode.el | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/perl6-mode.el b/perl6-mode.el
index 7ff958a322..8385001aee 100644
--- a/perl6-mode.el
+++ b/perl6-mode.el
@@ -67,19 +67,21 @@
 
 (defun perl6-magic-matcher ()
   "Return non-nil if the current buffer is probably a Perl 6 file."
-  (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))
+  (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)))
 
 ;;;###autoload
 (add-to-list 'magic-mode-alist '(perl6-magic-matcher . perl6-mode))