diff options
| author | Glenn Morris <[email protected]> | 2006-12-05 05:23:55 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2006-12-05 05:23:55 +0000 |
| commit | 449657e878a7c33e9deb9ce30cfdd6ac365268d0 (patch) | |
| tree | a92779ce7177153e8f0b15c46e16cc08ec298c51 /lisp/progmodes/cperl-mode.el | |
| parent | 4673156b6bdc4488834ba948f0b08398608edbcd (diff) | |
(cperl-mode): Define abbrevs even if abbrev-table is non-nil (saved
user abbrevs may have been restored).
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 983087d07b..14cbaf9c0f 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1681,9 +1681,8 @@ or as help on variables `cperl-tips', `cperl-problems', [(control c) (control h) f]))) (setq major-mode cperl-use-major-mode) (setq mode-name "CPerl") - (if (not cperl-mode-abbrev-table) - (let ((prev-a-c abbrevs-changed)) - (define-abbrev-table 'cperl-mode-abbrev-table '( + (let ((prev-a-c abbrevs-changed)) + (define-abbrev-table 'cperl-mode-abbrev-table '( ("if" "if" cperl-electric-keyword 0) ("elsif" "elsif" cperl-electric-keyword 0) ("while" "while" cperl-electric-keyword 0) @@ -1704,7 +1703,7 @@ or as help on variables `cperl-tips', `cperl-problems', ("over" "over" cperl-electric-pod 0) ("head1" "head1" cperl-electric-pod 0) ("head2" "head2" cperl-electric-pod 0))) - (setq abbrevs-changed prev-a-c))) + (setq abbrevs-changed prev-a-c)) (setq local-abbrev-table cperl-mode-abbrev-table) (if (cperl-val 'cperl-electric-keywords) (abbrev-mode 1)) |