427 |
((looking-at "=cut") 1) |
((looking-at "=cut") 1) |
428 |
(t 3))) |
(t 3))) |
429 |
|
|
430 |
|
(defvar perl-mode-hook nil |
431 |
|
"Normal hook to run when entering Perl mode.") |
432 |
|
|
433 |
;;;###autoload |
;;;###autoload |
434 |
(defun perl-mode () |
(defun perl-mode () |
435 |
"Major mode for editing Perl code. |
"Major mode for editing Perl code. |
522 |
;; Setup outline-minor-mode. |
;; Setup outline-minor-mode. |
523 |
(set (make-local-variable 'outline-regexp) perl-outline-regexp) |
(set (make-local-variable 'outline-regexp) perl-outline-regexp) |
524 |
(set (make-local-variable 'outline-level) 'perl-outline-level) |
(set (make-local-variable 'outline-level) 'perl-outline-level) |
525 |
(run-hooks 'perl-mode-hook)) |
(run-mode-hooks 'perl-mode-hook)) |
526 |
|
|
527 |
;; This is used by indent-for-comment |
;; This is used by indent-for-comment |
528 |
;; to decide how much to indent a comment in Perl code |
;; to decide how much to indent a comment in Perl code |