From 23d107d750ce2efe24658e9e96a98fecac9f7e66 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Nov 2001 11:01:55 +0000 Subject: [PATCH] (perl-mode): Don't use define-derived-mode. --- lisp/progmodes/perl-mode.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 6e5fc1fd6ea..407c5c3dad0 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -279,7 +279,7 @@ create a new comment." :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 @@ Various indentation styles: K&R BSD BLK GNU LW 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 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'." ;; 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 -- 2.39.2