Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

more file extensions recognized as perl6

  • Loading branch information...
commit 421952d0835a409ffe69564f3a7a067d3a2b2f90 1 parent 1bef399
@renormalist renormalist authored
Showing with 5 additions and 5 deletions.
  1. +5 −5 cperl-mode.el
View
10 cperl-mode.el
@@ -1963,7 +1963,7 @@ will be reconstructed basing on these two variables."
(and
(boundp 'interpreter-mode-alist)
(assoc "miniperl" interpreter-mode-alist)
- (assoc "\\.\\([pP][Llm6]\\|al\\)$" auto-mode-alist)))
+ (assoc "\\.\\([pP][LlmM6]6?\\|al\\)$" auto-mode-alist)))
"*Whether to install us into `interpreter-' and `extension' mode lists."
:type 'boolean
:group 'cperl)
@@ -2088,7 +2088,7 @@ Older version of this page was called `perl5', newer `perl'."
:type 'boolean
:group 'cperl-speed)
-(defcustom cperl-scan-files-regexp "\\.\\([pP][Llm6]\\|xs\\)$"
+(defcustom cperl-scan-files-regexp "\\.\\([pP][LlmM6]6?\\|xs\\)$"
"*Regexp to match files to scan when generating TAGS."
:type 'regexp
:group 'cperl)
@@ -2742,7 +2742,7 @@ versions of Emacs."
(and cperl-clobber-mode-lists
(setq auto-mode-alist
- (append '(("\\.\\([pP][Llm6]\\|al\\)$" . perl-mode)) auto-mode-alist ))
+ (append '(("\\.\\([pP][LlmM6]6?\\|al\\)$" . perl-mode)) auto-mode-alist ))
(and (boundp 'interpreter-mode-alist)
(setq interpreter-mode-alist (append interpreter-mode-alist
'(("miniperl" . perl-mode))))))
@@ -8609,7 +8609,7 @@ in subdirectories too."
((eq all 'recursive)
;;(error "Not implemented: recursive")
(setq args (append (list "-e"
- "sub wanted {push @ARGV, $File::Find::name if /\\.[pP][Llm6]$/}
+ "sub wanted {push @ARGV, $File::Find::name if /\\.[pP][LlmM6]6?$/}
use File::Find;
find(\\&wanted, '.');
exec @ARGV;"
@@ -10813,7 +10813,7 @@ do extra unwind via `cperl-unwind-to-safe'."
(funcall f 'pod-spell 'cperl-pod-spell))) ; Avoid "not defined"
;; XEmacs additions
-;;;###autoload(add-to-list 'auto-mode-alist '("\\.\\([pP][LlMm]\\|al\\)\\'" . perl-mode))
+;;;###autoload(add-to-list 'auto-mode-alist '("\\.\\([pP][LlMm6]6?\\|al\\)\\'" . perl-mode))
;;;###autoload(add-to-list 'interpreter-mode-alist '("perl" . perl-mode))
(provide 'cperl-mode)
Please sign in to comment.
Something went wrong with that request. Please try again.