[Emacs-diffs] master 3aa3f73: Mark default cperl abbrevs as system ones

[Glenn Morris]

branch: master
commit 3aa3f73b9694d8a237360626601973d21e5c88eb
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Mark default cperl abbrevs as system ones
    
    * lisp/progmodes/cperl-mode.el (cperl-mode):
    Mark our abbrevs as system ones.  (Bug#10934)
---
 lisp/progmodes/cperl-mode.el |   40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 9658b8b..79c9e56 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',
                          [(control c) (control h) f])))
   (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 :system t)
+               ("elsif" "elsif" cperl-electric-keyword :system t)
+               ("while" "while" cperl-electric-keyword :system t)
+               ("until" "until" cperl-electric-keyword :system t)
+               ("unless" "unless" cperl-electric-keyword :system t)
+               ("else" "else" cperl-electric-else :system t)
+               ("continue" "continue" cperl-electric-else :system t)
+               ("for" "for" cperl-electric-keyword :system t)
+               ("foreach" "foreach" cperl-electric-keyword :system t)
+               ("formy" "formy" cperl-electric-keyword :system t)
+               ("foreachmy" "foreachmy" cperl-electric-keyword :system t)
+               ("do" "do" cperl-electric-keyword :system t)
+               ("=pod" "=pod" cperl-electric-pod :system t)
+               ("=over" "=over" cperl-electric-pod :system t)
+               ("=head1" "=head1" cperl-electric-pod :system t)
+               ("=head2" "=head2" cperl-electric-pod :system t)
+               ("pod" "pod" cperl-electric-pod :system t)
+               ("over" "over" cperl-electric-pod :system t)
+               ("head1" "head1" cperl-electric-pod :system t)
+               ("head2" "head2" cperl-electric-pod :system t)))
        (setq abbrevs-changed prev-a-c))
   (setq local-abbrev-table cperl-mode-abbrev-table)
   (if (cperl-val 'cperl-electric-keywords)