(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 23c882a6881ed7767284130430687400543a4cc1..78c32490e1c48dcce1adeaccb0a3b53226f73e76 100644 (file)
--- 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