(bdf-generate-font): New argument CHARSET. Give WIDTH

[gnu-emacs] / lisp / progmodes / m4-mode.el

diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el
index ddf91a3742b6acb3b3c2f39a10e5d43bbee21e33..dc1aae1bff29aa539093a6fdce2aad63a350ec89 100644 (file)
--- a/lisp/progmodes/m4-mode.el
+++ b/lisp/progmodes/m4-mode.el
@@ -41,17 +41,29 @@
 
 ;;; Code:
 
-(defvar m4-program 
+(defgroup m4 nil
+  "m4 code editing commands for Emacs."
+  :prefix "m4-"
+  :group 'languages)
+
+(defcustom m4-program 
   (cond 
    ((file-exists-p "/usr/local/bin/m4") "/usr/local/bin/m4")
    ((file-exists-p "/usr/bin/m4") "/usr/bin/m4")
    ((file-exists-p "/bin/m4") "/bin/m4")
    ((file-exists-p "/usr/ccs/bin/m4") "/usr/ccs/bin/m4")
+   ( t "m4")
    )
-  "File name of the m4 executable.")
+  "File name of the m4 executable."
+  :type 'file
+  :group 'm4)
 
 ;;options to m4
-(defconst m4-program-options nil)
+(defcustom m4-program-options nil
+  "Options to pass to `m4-program'."
+  :type '(repeat string)
+  :group 'm4)
+
 ;;to use --prefix-builtins, you can use
 ;;(defconst m4-program-options '("-P"))
 ;;or
@@ -69,6 +81,11 @@
     "Default font-lock-keywords for m4 mode.")
 )
 
+(defcustom m4-mode-hook nil
+  "*Hook called by `m4-mode'."
+  :type 'hook
+  :group 'm4)
+
 ;;this may still need some work
 (defvar m4-mode-syntax-table nil
   "syntax table used in m4 mode")