From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 11 May 2022 14:47:53 +0000 (+0200)
Subject: Fix previous cperl-file-style change
X-Git-Tag: emacs-29.0.90~1910^2~792
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e131744fb17f18da23c18d4f91a140573cb1ad3;p=emacs.git

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.
---

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 ()