From: Glenn Morris <rgm@gnu.org>
Date: Sun, 11 Dec 2016 03:26:25 +0000 (-0800)
Subject: Mark default cperl abbrevs as system ones
X-Git-Tag: emacs-26.0.90~1135
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3aa3f73b9694d8a237360626601973d21e5c88eb;p=emacs.git

Mark default cperl abbrevs as system ones

* lisp/progmodes/cperl-mode.el (cperl-mode):
Mark our abbrevs as system ones.  (Bug#10934)
---

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',
 			  [(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)