diff options
| author | Eric Blake <ebb9@byu.net> | 2008-11-03 11:38:37 -0500 |
|---|---|---|
| committer | Eric Blake <ebb9@byu.net> | 2009-07-25 20:56:52 -0600 |
| commit | 32440e1605b6f4113ee70389839fb5c2fa075c4a (patch) | |
| tree | 314c7db7c817410326386da10183265142d1e9f7 /lib/emacs | |
| parent | e18033c024a77b23b418858d0f942f53d872ae66 (diff) | |
| download | autoconf-32440e1605b6f4113ee70389839fb5c2fa075c4a.tar.gz | |
Recognize new m4sugar keywords.
* lib/emacs/autoconf-mode.el (autoconf-current-defun): Recognize
m4_define_default, m4_defun_init, m4_defun_once.
(autoconf-font-lock-keywords): Likewise.
Signed-off-by: Eric Blake <ebb9@byu.net>
Diffstat (limited to 'lib/emacs')
| -rw-r--r-- | lib/emacs/autoconf-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/emacs/autoconf-mode.el b/lib/emacs/autoconf-mode.el index a0aec862..7b507f6c 100644 --- a/lib/emacs/autoconf-mode.el +++ b/lib/emacs/autoconf-mode.el @@ -41,7 +41,7 @@ `(("\\bdnl \\(.*\\)" 1 font-lock-comment-face t) ("\\$[0-9*#@]" . font-lock-variable-name-face) ("\\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\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\|kstemp\\)\\|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) - ("^\\(\\(m4_\\)?define\\|A._DEFUN\\|m4_defun\\)(\\[?\\([A-Za-z0-9_]+\\)" 3 font-lock-function-name-face) + ("^\\(\\(m4_\\)?define\\(_default\\)?\\|A._DEFUN\\|m4_defun\\(_once\\|_init\\)?\\)(\\[?\\([A-Za-z0-9_]+\\)" 5 font-lock-function-name-face) "default font-lock-keywords") ) @@ -68,9 +68,9 @@ "Autoconf value for `add-log-current-defun-function'. This tells add-log.el how to find the current macro." (save-excursion - (if (re-search-backward "^\\(m4_define\\|m4_defun\\|A._DEFUN\\)(\\[*\\([A-Za-z0-9_]+\\)" nil t) - (buffer-substring (match-beginning 2) - (match-end 2)) + (if (re-search-backward "^\\(m4_define\\(_default\\)?\\|m4_defun\\(_once\\|_init\\)?\\|A._DEFUN\\)(\\[*\\([A-Za-z0-9_]+\\)" nil t) + (buffer-substring (match-beginning 4) + (match-end 4)) nil))) ;;;###autoload |