279 |
:group 'perl) |
:group 'perl) |
280 |
|
|
281 |
;;;###autoload |
;;;###autoload |
282 |
(define-derived-mode perl-mode nil "Perl" |
(defun perl-mode () |
283 |
"Major mode for editing Perl code. |
"Major mode for editing Perl code. |
284 |
Expression and list commands understand all Perl brackets. |
Expression and list commands understand all Perl brackets. |
285 |
Tab indents for Perl code. |
Tab indents for Perl code. |
326 |
perl-label-offset -5 -8 -2 -2 -2 |
perl-label-offset -5 -8 -2 -2 -2 |
327 |
|
|
328 |
Turning on Perl mode runs the normal hook `perl-mode-hook'." |
Turning on Perl mode runs the normal hook `perl-mode-hook'." |
329 |
|
(interactive) |
330 |
|
(kill-all-local-variables) |
331 |
|
(use-local-map perl-mode-map) |
332 |
|
(setq major-mode 'perl-mode) |
333 |
|
(setq mode-name "Perl") |
334 |
|
(setq local-abbrev-table perl-mode-abbrev-table) |
335 |
|
(set-syntax-table perl-mode-syntax-table) |
336 |
(make-local-variable 'paragraph-start) |
(make-local-variable 'paragraph-start) |
337 |
(setq paragraph-start (concat "$\\|" page-delimiter)) |
(setq paragraph-start (concat "$\\|" page-delimiter)) |
338 |
(make-local-variable 'paragraph-separate) |
(make-local-variable 'paragraph-separate) |
366 |
;; Tell imenu how to handle Perl. |
;; Tell imenu how to handle Perl. |
367 |
(make-local-variable 'imenu-generic-expression) |
(make-local-variable 'imenu-generic-expression) |
368 |
(setq imenu-generic-expression perl-imenu-generic-expression) |
(setq imenu-generic-expression perl-imenu-generic-expression) |
369 |
(setq imenu-case-fold-search nil)) |
(setq imenu-case-fold-search nil) |
370 |
|
(run-hooks 'perl-mode-hook)) |
371 |
|
|
372 |
;; This is used by indent-for-comment |
;; This is used by indent-for-comment |
373 |
;; to decide how much to indent a comment in Perl code |
;; to decide how much to indent a comment in Perl code |