From 8eac6e91e43222a13dc75611806e393d5b0f897d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 18 Mar 2005 00:13:40 +0000 Subject: [PATCH] (perl-mode-hook): Defvar it. (perl-mode): Use run-mode-hooks. --- lisp/progmodes/perl-mode.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index ad4633e20eb..2bd30da0bfd 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -427,6 +427,9 @@ create a new comment." ((looking-at "=cut") 1) (t 3))) +(defvar perl-mode-hook nil + "Normal hook to run when entering Perl mode.") + ;;;###autoload (defun perl-mode () "Major mode for editing Perl code. @@ -519,7 +522,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'." ;; Setup outline-minor-mode. (set (make-local-variable 'outline-regexp) perl-outline-regexp) (set (make-local-variable 'outline-level) 'perl-outline-level) - (run-hooks 'perl-mode-hook)) + (run-mode-hooks 'perl-mode-hook)) ;; This is used by indent-for-comment ;; to decide how much to indent a comment in Perl code -- 2.39.2