(m4-mode-abbrev-table): New variable.

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

1 files changed, 7 insertions, 1 deletions

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