From 546270c310c00985a31945617180202ed4ddddf8 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Mon, 31 Jul 2017 14:27:49 +0200 Subject: [PATCH] =?UTF-8?q?[Perl]=20Replace=20=E2=80=99perl-mode=E2=80=99?= =?UTF-8?q?=20with=20=E2=80=99cperl-mode=E2=80=99=20more=20thorougly?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- init.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index 8201271..049502f 100644 --- a/init.el +++ b/init.el @@ -1492,9 +1492,14 @@ _RET_: ?RET? _M_: ?M? (use-package cperl-mode :commands (cperl-mode) - :mode (("\\.pl\\'" . cperl-mode) - ("\\.pm\\'" . cperl-mode) - ("\\.plx\\’" . cperl-mode)) + :mode (("\\.plx\\’" . cperl-mode)) + :init (progn + ;; exchange perl-mode with cperl-mode + (mapc + (lambda (pair) + (if (eq (cdr pair) 'perl-mode) + (setcdr pair 'cperl-mode))) + (append auto-mode-alist interpreter-mode-alist))) :config (progn (add-hook 'cperl-mode-hook 'flycheck-mode) (add-hook 'cperl-mode-hook 'prettify-symbols-mode)