Commit 5fdd4046 authored by Chong Yidong's avatar Chong Yidong
Browse files

* lisp/progmodes/cperl-mode.el (cperl-mode): Derive from prog-mode.

parent 029529ac
2011-06-26 Chong Yidong <cyd@stupidchicken.com>
* progmodes/cperl-mode.el (cperl-mode): Derive from prog-mode.
2011-06-26 Glenn Morris <rgm@gnu.org> 2011-06-26 Glenn Morris <rgm@gnu.org>
* progmodes/f90.el (f90-critical-indent): New option. * progmodes/f90.el (f90-critical-indent): New option.
......
...@@ -1522,7 +1522,7 @@ the last)." ...@@ -1522,7 +1522,7 @@ the last)."
(defvar compilation-error-regexp-alist) (defvar compilation-error-regexp-alist)
;;;###autoload ;;;###autoload
(defun cperl-mode () (define-derived-mode cperl-mode prog-mode "CPerl"
"Major mode for editing Perl code. "Major mode for editing Perl code.
Expression and list commands understand all C brackets. Expression and list commands understand all C brackets.
Tab indents for Perl code. Tab indents for Perl code.
...@@ -1695,9 +1695,6 @@ with no args. ...@@ -1695,9 +1695,6 @@ with no args.
DO NOT FORGET to read micro-docs (available from `Perl' menu) DO NOT FORGET to read micro-docs (available from `Perl' menu)
or as help on variables `cperl-tips', `cperl-problems', or as help on variables `cperl-tips', `cperl-problems',
`cperl-praise', `cperl-speed'." `cperl-praise', `cperl-speed'."
(interactive)
(kill-all-local-variables)
(use-local-map cperl-mode-map)
(if (cperl-val 'cperl-electric-linefeed) (if (cperl-val 'cperl-electric-linefeed)
(progn (progn
(local-set-key "\C-J" 'cperl-linefeed) (local-set-key "\C-J" 'cperl-linefeed)
...@@ -1710,8 +1707,6 @@ or as help on variables `cperl-tips', `cperl-problems', ...@@ -1710,8 +1707,6 @@ or as help on variables `cperl-tips', `cperl-problems',
(cperl-define-key "\C-hf" 'cperl-info-on-current-command [(control h) f]) (cperl-define-key "\C-hf" 'cperl-info-on-current-command [(control h) f])
(cperl-define-key "\C-c\C-hf" 'cperl-info-on-command (cperl-define-key "\C-c\C-hf" 'cperl-info-on-command
[(control c) (control h) f]))) [(control c) (control h) f])))
(setq major-mode cperl-use-major-mode)
(setq mode-name "CPerl")
(let ((prev-a-c abbrevs-changed)) (let ((prev-a-c abbrevs-changed))
(define-abbrev-table 'cperl-mode-abbrev-table '( (define-abbrev-table 'cperl-mode-abbrev-table '(
("if" "if" cperl-electric-keyword 0) ("if" "if" cperl-electric-keyword 0)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment