Mercurial > emacs

comparison lisp/progmodes/m4-mode.el @ 21447:42e8acda5021

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Customize
author Stephen Eglen <stephen@gnu.org>
date Thu, 09 Apr 1998 12:31:57 +0000
parents 229f31952731
children 7a6b8dd13afb
comparison
equal deleted inserted replaced
21446:830023d4cec6 21447:42e8acda5021
39 ;;; to Simon Marshall for the regexp tip 39 ;;; to Simon Marshall for the regexp tip
40 ;;; to Martin Buchholz for some general fixes 40 ;;; to Martin Buchholz for some general fixes
41 41
42 ;;; Code: 42 ;;; Code:
43 43
44 (defvar m4-program 44 (defgroup m4 nil
45 "m4 code editing commands for Emacs."
46 :prefix "m4-"
47 :group 'languages)
48
49 (defcustom m4-program
45 (cond 50 (cond
46 ((file-exists-p "/usr/local/bin/m4") "/usr/local/bin/m4") 51 ((file-exists-p "/usr/local/bin/m4") "/usr/local/bin/m4")
47 ((file-exists-p "/usr/bin/m4") "/usr/bin/m4") 52 ((file-exists-p "/usr/bin/m4") "/usr/bin/m4")
48 ((file-exists-p "/bin/m4") "/bin/m4") 53 ((file-exists-p "/bin/m4") "/bin/m4")
49 ((file-exists-p "/usr/ccs/bin/m4") "/usr/ccs/bin/m4") 54 ((file-exists-p "/usr/ccs/bin/m4") "/usr/ccs/bin/m4")
55 ( t "m4")
50 ) 56 )
51 "File name of the m4 executable.") 57 "File name of the m4 executable."
58 :type 'file
59 :group 'm4)
52 60
53 ;;options to m4 61 ;;options to m4
54 (defconst m4-program-options nil) 62 (defcustom m4-program-options nil
63 "Options to pass to `m4-program'."
64 :type '(repeat string)
65 :group 'm4)
66
55 ;;to use --prefix-builtins, you can use 67 ;;to use --prefix-builtins, you can use
56 ;;(defconst m4-program-options '("-P")) 68 ;;(defconst m4-program-options '("-P"))
57 ;;or 69 ;;or
58 ;;(defconst m4-program-options '("--prefix-builtins")) 70 ;;(defconst m4-program-options '("--prefix-builtins"))
59 71
66 ("\\\$\\\*" . font-lock-variable-name-face) 78 ("\\\$\\\*" . font-lock-variable-name-face)
67 ("\\b\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|un\\(d\\(efine\\|ivert\\)\\|ix\\)\\)\\b" . font-lock-keyword-face) 79 ("\\b\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|un\\(d\\(efine\\|ivert\\)\\|ix\\)\\)\\b" . font-lock-keyword-face)
68 ("\\b\\(m4_\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(_undefine\\|exit\\|wrap\\)\\|aketemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|undivert\\)\\)\\b" . font-lock-keyword-face) 80 ("\\b\\(m4_\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(_undefine\\|exit\\|wrap\\)\\|aketemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|undivert\\)\\)\\b" . font-lock-keyword-face)
69 "Default font-lock-keywords for m4 mode.") 81 "Default font-lock-keywords for m4 mode.")
70 ) 82 )
83
84 (defcustom m4-mode-hook nil
85 "*Hook called by `m4-mode'."
86 :type 'hook
87 :group 'm4)
71 88
72 ;;this may still need some work 89 ;;this may still need some work
73 (defvar m4-mode-syntax-table nil 90 (defvar m4-mode-syntax-table nil
74 "syntax table used in m4 mode") 91 "syntax table used in m4 mode")
75 (setq m4-mode-syntax-table (make-syntax-table)) 92 (setq m4-mode-syntax-table (make-syntax-table))