From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 26 Jul 2000 13:03:26 +0000 (+0000)
Subject: (m4-mode-abbrev-table): New variable.
X-Git-Tag: emacs-pretest-21.0.90~2601
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfdbf5b691e7d7f21a9bacd27b4afdd86b13e04f;p=emacs.git

(m4-mode-abbrev-table): New variable.
(m4-mode): Set local-abbrev-table to m4-mode-abbrev-table.
---

diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el
index 23c882a6881..78c32490e1c 100644
--- a/lisp/progmodes/m4-mode.el
+++ b/lisp/progmodes/m4-mode.el
@@ -108,6 +108,12 @@
     (define-key map "\C-c\C-c" 'comment-region)
     map))
 
+(defvar m4-mode-abbrev-table nil
+  "Abbrev table used while in text mode.")
+
+(unless m4-mode-abbrev-table
+  (define-abbrev-table 'm4-mode-abbrev-table ()))
+
 (defun m4-m4-buffer ()
   "send contents of the current buffer to m4"
   (interactive)
@@ -134,7 +140,7 @@
   (setq comment-start "#")
   (make-local-variable 'parse-sexp-ignore-comments)
   (setq parse-sexp-ignore-comments t)
-
+  (setq local-abbrev-table m4-mode-abbrev-table)
 
   (make-local-variable	'font-lock-defaults)  
   (setq major-mode 'm4-mode