From 9e131744fb17f18da23c18d4f91a140573cb1ad3 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 11 May 2022 16:47:53 +0200 Subject: [PATCH] Fix previous cperl-file-style change * lisp/progmodes/cperl-mode.el (cperl--set-file-style): New function. (cperl-mode): Add it to hack-local-variables-hook to really set the cperl style. --- lisp/progmodes/cperl-mode.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 76784562085..5ed4832481c 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1812,8 +1812,13 @@ or as help on variables `cperl-tips', `cperl-problems', (cperl-find-pods-heres)) (when cperl-file-style (cperl-set-style cperl-file-style)) + (add-hook 'hack-local-variables-hook #'cperl--set-file-style nil t) ;; Setup Flymake (add-hook 'flymake-diagnostic-functions #'perl-flymake nil t)) + +(defun cperl--set-file-style () + (when cperl-file-style + (cperl-set-style cperl-file-style))) ;; Fix for perldb - make default reasonable (defun cperl-db () -- 2.39.2