Mercurial > emacs

changeset 30469:2fce61fd82ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(m4-mode-abbrev-table): New variable. (m4-mode): Set local-abbrev-table to m4-mode-abbrev-table.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 26 Jul 2000 13:03:26 +0000
parents 633f79b85c50
children 6f18c5924d2e
files lisp/progmodes/m4-mode.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/m4-mode.el	Wed Jul 26 13:02:53 2000 +0000
+++ b/lisp/progmodes/m4-mode.el	Wed Jul 26 13:03:26 2000 +0000
@@ -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