(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 5a5494c5a134cd29006c7db1f5eb7890dc01d942..b8959ff0afcf0894041f7b6cab6bb8c8c02556a1 100644 (file)
--- 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\e,Bm\e(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 27e3ccea2b82549f5c0b35c7c816145ba1bb653f..e86f9d7a9e775c64b485e24ab4dfb35d3769c5c2 100644 (file)
--- 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)