# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1006340515 0
# Node ID 42d60301f16a6bbd026c6817c9c9733c6b38a8f0
# Parent  7e936c1a2c48c7c96610cf0b7279daed7aedb28e
(perl-mode): Don't use define-derived-mode.

diff -r 7e936c1a2c48 -r 42d60301f16a lisp/progmodes/perl-mode.el
--- a/lisp/progmodes/perl-mode.el	Wed Nov 21 10:42:11 2001 +0000
+++ b/lisp/progmodes/perl-mode.el	Wed Nov 21 11:01:55 2001 +0000
@@ -279,7 +279,7 @@
   :group 'perl)
 
 ;;;###autoload
-(define-derived-mode perl-mode nil "Perl"
+(defun perl-mode ()
   "Major mode for editing Perl code.
 Expression and list commands understand all Perl brackets.
 Tab indents for Perl code.
@@ -326,6 +326,13 @@
   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)
@@ -359,7 +366,8 @@
   ;; 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))
+  (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