From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 27 Jun 2002 08:07:53 +0000 (+0000)
Subject: (perl-mode-abbrev-table): New variable.
X-Git-Tag: emacs-pretest-21.2.91~217
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb779338452c7e664fa9650ac677504a4f63bb13;p=emacs.git

(perl-mode-abbrev-table): New variable.
Set it up as an abbrev-table for Perl mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a5494c5a13..b8959ff0afc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-27  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* progmodes/perl-mode.el (perl-mode-abbrev-table): New variable.
+	Set it up as an abbrev-table for Perl mode.
+
 2002-06-24  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* dired.el (dired-find-file): Bind find-file-run-dired around the
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 27e3ccea2b8..e86f9d7a9e7 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -105,6 +105,10 @@
   :prefix "perl-"
   :group 'languages)
 
+(defvar perl-mode-abbrev-table nil
+  "Abbrev table in use in perl-mode buffers.")
+(define-abbrev-table 'perl-mode-abbrev-table ())
+
 (defvar perl-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "{" 'perl-electric-terminator)