diff options
author | Richard M. Stallman <rms@gnu.org> | 2005-03-18 00:13:40 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2005-03-18 00:13:40 +0000 |
commit | 8eac6e91e43222a13dc75611806e393d5b0f897d (patch) | |
tree | dbf9897206740f06c01ca6ae8dd27d551d3ed49e | |
parent | 8510cb9473cd99f6b8fb0a5551b0d898b13898fe (diff) | |
download | emacs-8eac6e91e43222a13dc75611806e393d5b0f897d.tar.gz |
(perl-mode-hook): Defvar it.
(perl-mode): Use run-mode-hooks.
-rw-r--r-- | lisp/progmodes/perl-mode.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |