comparison lisp/progmodes/perl-mode.el @ 41346:42d60301f16a

(perl-mode): Don't use define-derived-mode.

41345:7e936c1a2c48

  "*Lines starting with this regular expression are not auto-indented."
  :type 'regexp
  :group 'perl)

;;;###autoload
(define-derived-mode perl-mode nil "Perl"
  "Major mode for editing Perl code.
Expression and list commands understand all Perl brackets.
Tab indents for Perl code.
Comments are delimited with # ... \\n.
Paragraphs are separated by blank lines only.

  perl-brace-offset               -5   -8    0    0    0
  perl-brace-imaginary-offset      0    0    4    0    0
  perl-label-offset               -5   -8   -2   -2   -2

Turning on Perl mode runs the normal hook `perl-mode-hook'."
  (make-local-variable 'paragraph-start)
  (setq paragraph-start (concat "$\\|" page-delimiter))
  (make-local-variable 'paragraph-separate)
  (setq paragraph-separate paragraph-start)
  (make-local-variable 'paragraph-ignore-fill-prefix)

			      . perl-font-lock-syntactic-face-function)
			     (parse-sexp-lookup-properties . t)))
  ;; Tell imenu how to handle Perl.
  (make-local-variable 'imenu-generic-expression)
  (setq imenu-generic-expression perl-imenu-generic-expression)
  (setq imenu-case-fold-search nil))

;; This is used by indent-for-comment
;; to decide how much to indent a comment in Perl code
;; based on its context.
(defun perl-comment-indent ()

41346:42d60301f16a

  "*Lines starting with this regular expression are not auto-indented."
  :type 'regexp
  :group 'perl)

;;;###autoload
(defun perl-mode ()
  "Major mode for editing Perl code.
Expression and list commands understand all Perl brackets.
Tab indents for Perl code.
Comments are delimited with # ... \\n.
Paragraphs are separated by blank lines only.

  perl-brace-offset               -5   -8    0    0    0
  perl-brace-imaginary-offset      0    0    4    0    0
  perl-label-offset               -5   -8   -2   -2   -2

Turning on Perl mode runs the normal hook `perl-mode-hook'."
  (interactive)
  (kill-all-local-variables)
  (use-local-map perl-mode-map)
  (setq major-mode 'perl-mode)
  (setq mode-name "Perl")
  (setq local-abbrev-table perl-mode-abbrev-table)
  (set-syntax-table perl-mode-syntax-table)
  (make-local-variable 'paragraph-start)
  (setq paragraph-start (concat "$\\|" page-delimiter))
  (make-local-variable 'paragraph-separate)
  (setq paragraph-separate paragraph-start)
  (make-local-variable 'paragraph-ignore-fill-prefix)

			      . perl-font-lock-syntactic-face-function)
			     (parse-sexp-lookup-properties . t)))
  ;; Tell imenu how to handle Perl.
  (make-local-variable 'imenu-generic-expression)
  (setq imenu-generic-expression perl-imenu-generic-expression)
  (setq imenu-case-fold-search nil)
  (run-hooks 'perl-mode-hook))

;; This is used by indent-for-comment
;; to decide how much to indent a comment in Perl code
;; based on its context.
(defun perl-comment-indent ()