[Emacs-diffs] /srv/bzr/emacs/trunk r104725: * lisp/progmodes/cperl-mode.el (cperl-mode): Derive from prog-mode.

[Chong Yidong]

------------------------------------------------------------
revno: 104725
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2011-06-25 23:42:22 -0400
message:
  * lisp/progmodes/cperl-mode.el (cperl-mode): Derive from prog-mode.
modified:
  lisp/ChangeLog
  lisp/progmodes/cperl-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-26 01:22:45 +0000
+++ b/lisp/ChangeLog    2011-06-26 03:42:22 +0000
@@ -1,3 +1,7 @@
+2011-06-26  Chong Yidong  <address@hidden>
+
+       * progmodes/cperl-mode.el (cperl-mode): Derive from prog-mode.
+
 2011-06-26  Glenn Morris  <address@hidden>
 
        * progmodes/f90.el (f90-critical-indent): New option.

=== modified file 'lisp/progmodes/cperl-mode.el'
--- a/lisp/progmodes/cperl-mode.el      2011-06-25 18:08:41 +0000
+++ b/lisp/progmodes/cperl-mode.el      2011-06-26 03:42:22 +0000
@@ -1522,7 +1522,7 @@
 (defvar compilation-error-regexp-alist)
 
 ;;;###autoload
-(defun cperl-mode ()
+(define-derived-mode cperl-mode prog-mode "CPerl"
   "Major mode for editing Perl code.
 Expression and list commands understand all C brackets.
 Tab indents for Perl code.
@@ -1695,9 +1695,6 @@
 DO NOT FORGET to read micro-docs (available from `Perl' menu)
 or as help on variables `cperl-tips', `cperl-problems',
 `cperl-praise', `cperl-speed'."
-  (interactive)
-  (kill-all-local-variables)
-  (use-local-map cperl-mode-map)
   (if (cperl-val 'cperl-electric-linefeed)
       (progn
        (local-set-key "\C-J" 'cperl-linefeed)
@@ -1710,8 +1707,6 @@
        (cperl-define-key "\C-hf" 'cperl-info-on-current-command [(control h) 
f])
        (cperl-define-key "\C-c\C-hf" 'cperl-info-on-command
                          [(control c) (control h) f])))
-  (setq major-mode cperl-use-major-mode)
-  (setq mode-name "CPerl")
   (let ((prev-a-c abbrevs-changed))
     (define-abbrev-table 'cperl-mode-abbrev-table '(
                ("if" "if" cperl-electric-keyword 0)