Commit 8eac6e91 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(perl-mode-hook): Defvar it.

(perl-mode): Use run-mode-hooks.
parent 8510cb94
...@@ -427,6 +427,9 @@ create a new comment." ...@@ -427,6 +427,9 @@ create a new comment."
((looking-at "=cut") 1) ((looking-at "=cut") 1)
(t 3))) (t 3)))
(defvar perl-mode-hook nil
"Normal hook to run when entering Perl mode.")
;;;###autoload ;;;###autoload
(defun perl-mode () (defun perl-mode ()
"Major mode for editing Perl code. "Major mode for editing Perl code.
...@@ -519,7 +522,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'." ...@@ -519,7 +522,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'."
;; Setup outline-minor-mode. ;; Setup outline-minor-mode.
(set (make-local-variable 'outline-regexp) perl-outline-regexp) (set (make-local-variable 'outline-regexp) perl-outline-regexp)
(set (make-local-variable 'outline-level) 'perl-outline-level) (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 ;; This is used by indent-for-comment
;; to decide how much to indent a comment in Perl code ;; to decide how much to indent a comment in Perl code
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment