Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

make cperl's default abbrevs not contaminate the user's abbrev file

  • Loading branch information...
commit d737a56c05729ba3008a7b00bbcec8b43a6aefa6 1 parent e7591e4
@jrockway authored
Showing with 20 additions and 20 deletions.
  1. +20 −20 cperl-mode.el
View
40 cperl-mode.el
@@ -1738,26 +1738,26 @@ or as help on variables `cperl-tips', `cperl-problems',
(setq mode-name "CPerl")
(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)
- ("until" "until" cperl-electric-keyword 0)
- ("unless" "unless" cperl-electric-keyword 0)
- ("else" "else" cperl-electric-else 0)
- ("continue" "continue" cperl-electric-else 0)
- ("for" "for" cperl-electric-keyword 0)
- ("foreach" "foreach" cperl-electric-keyword 0)
- ("formy" "formy" cperl-electric-keyword 0)
- ("foreachmy" "foreachmy" cperl-electric-keyword 0)
- ("do" "do" cperl-electric-keyword 0)
- ("=pod" "=pod" cperl-electric-pod 0)
- ("=over" "=over" cperl-electric-pod 0)
- ("=head1" "=head1" cperl-electric-pod 0)
- ("=head2" "=head2" cperl-electric-pod 0)
- ("pod" "pod" cperl-electric-pod 0)
- ("over" "over" cperl-electric-pod 0)
- ("head1" "head1" cperl-electric-pod 0)
- ("head2" "head2" cperl-electric-pod 0)))
+ ("if" "if" cperl-electric-keyword 0 :system)
+ ("elsif" "elsif" cperl-electric-keyword 0 :system)
+ ("while" "while" cperl-electric-keyword 0 :system)
+ ("until" "until" cperl-electric-keyword 0 :system)
+ ("unless" "unless" cperl-electric-keyword 0 :system)
+ ("else" "else" cperl-electric-else 0 :system)
+ ("continue" "continue" cperl-electric-else 0 :system)
+ ("for" "for" cperl-electric-keyword 0 :system)
+ ("foreach" "foreach" cperl-electric-keyword 0 :system)
+ ("formy" "formy" cperl-electric-keyword 0 :system)
+ ("foreachmy" "foreachmy" cperl-electric-keyword 0 :system)
+ ("do" "do" cperl-electric-keyword 0 :system)
+ ("=pod" "=pod" cperl-electric-pod 0 :system)
+ ("=over" "=over" cperl-electric-pod 0 :system)
+ ("=head1" "=head1" cperl-electric-pod 0 :system)
+ ("=head2" "=head2" cperl-electric-pod 0 :system)
+ ("pod" "pod" cperl-electric-pod 0 :system)
+ ("over" "over" cperl-electric-pod 0 :system)
+ ("head1" "head1" cperl-electric-pod 0 :system)
+ ("head2" "head2" cperl-electric-pod 0 :system)))
(setq abbrevs-changed prev-a-c))
(setq local-abbrev-table cperl-mode-abbrev-table)
(if (cperl-val 'cperl-electric-keywords)
Please sign in to comment.
Something went wrong with that request. Please try again.