diff options
| author | Glenn Morris | 2016-12-10 19:26:25 -0800 |
|---|---|---|
| committer | Glenn Morris | 2016-12-10 19:26:25 -0800 |
| commit | 3aa3f73b9694d8a237360626601973d21e5c88eb (patch) | |
| tree | 0a4571ec636f7e1ac22297b9438fc1000ea9cd40 | |
| parent | 3fd44333e91f4575bfa746e6f21406c788001c01 (diff) | |
| download | emacs-3aa3f73b9694d8a237360626601973d21e5c88eb.tar.gz emacs-3aa3f73b9694d8a237360626601973d21e5c88eb.zip | |
Mark default cperl abbrevs as system ones
* lisp/progmodes/cperl-mode.el (cperl-mode):
Mark our abbrevs as system ones. (Bug#10934)
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 9658b8b9280..79c9e56ba6a 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -1710,26 +1710,26 @@ or as help on variables `cperl-tips', `cperl-problems', | |||
| 1710 | [(control c) (control h) f]))) | 1710 | [(control c) (control h) f]))) |
| 1711 | (let ((prev-a-c abbrevs-changed)) | 1711 | (let ((prev-a-c abbrevs-changed)) |
| 1712 | (define-abbrev-table 'cperl-mode-abbrev-table '( | 1712 | (define-abbrev-table 'cperl-mode-abbrev-table '( |
| 1713 | ("if" "if" cperl-electric-keyword 0) | 1713 | ("if" "if" cperl-electric-keyword :system t) |
| 1714 | ("elsif" "elsif" cperl-electric-keyword 0) | 1714 | ("elsif" "elsif" cperl-electric-keyword :system t) |
| 1715 | ("while" "while" cperl-electric-keyword 0) | 1715 | ("while" "while" cperl-electric-keyword :system t) |
| 1716 | ("until" "until" cperl-electric-keyword 0) | 1716 | ("until" "until" cperl-electric-keyword :system t) |
| 1717 | ("unless" "unless" cperl-electric-keyword 0) | 1717 | ("unless" "unless" cperl-electric-keyword :system t) |
| 1718 | ("else" "else" cperl-electric-else 0) | 1718 | ("else" "else" cperl-electric-else :system t) |
| 1719 | ("continue" "continue" cperl-electric-else 0) | 1719 | ("continue" "continue" cperl-electric-else :system t) |
| 1720 | ("for" "for" cperl-electric-keyword 0) | 1720 | ("for" "for" cperl-electric-keyword :system t) |
| 1721 | ("foreach" "foreach" cperl-electric-keyword 0) | 1721 | ("foreach" "foreach" cperl-electric-keyword :system t) |
| 1722 | ("formy" "formy" cperl-electric-keyword 0) | 1722 | ("formy" "formy" cperl-electric-keyword :system t) |
| 1723 | ("foreachmy" "foreachmy" cperl-electric-keyword 0) | 1723 | ("foreachmy" "foreachmy" cperl-electric-keyword :system t) |
| 1724 | ("do" "do" cperl-electric-keyword 0) | 1724 | ("do" "do" cperl-electric-keyword :system t) |
| 1725 | ("=pod" "=pod" cperl-electric-pod 0) | 1725 | ("=pod" "=pod" cperl-electric-pod :system t) |
| 1726 | ("=over" "=over" cperl-electric-pod 0) | 1726 | ("=over" "=over" cperl-electric-pod :system t) |
| 1727 | ("=head1" "=head1" cperl-electric-pod 0) | 1727 | ("=head1" "=head1" cperl-electric-pod :system t) |
| 1728 | ("=head2" "=head2" cperl-electric-pod 0) | 1728 | ("=head2" "=head2" cperl-electric-pod :system t) |
| 1729 | ("pod" "pod" cperl-electric-pod 0) | 1729 | ("pod" "pod" cperl-electric-pod :system t) |
| 1730 | ("over" "over" cperl-electric-pod 0) | 1730 | ("over" "over" cperl-electric-pod :system t) |
| 1731 | ("head1" "head1" cperl-electric-pod 0) | 1731 | ("head1" "head1" cperl-electric-pod :system t) |
| 1732 | ("head2" "head2" cperl-electric-pod 0))) | 1732 | ("head2" "head2" cperl-electric-pod :system t))) |
| 1733 | (setq abbrevs-changed prev-a-c)) | 1733 | (setq abbrevs-changed prev-a-c)) |
| 1734 | (setq local-abbrev-table cperl-mode-abbrev-table) | 1734 | (setq local-abbrev-table cperl-mode-abbrev-table) |
| 1735 | (if (cperl-val 'cperl-electric-keywords) | 1735 | (if (cperl-val 'cperl-electric-keywords) |