mirror/autoconf
2
0
Fork 0
mirror of git://git.sv.gnu.org/autoconf synced 2024-12-03 02:00:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Use `add-log-current-defun-function' for ChangeLog creation.

Browse Source 
Suggested by Tom Tromey.
* lib/emacs/autotest-mode.el (autotest-mode-map): New.
(autotest-mode): Adjust.
* lib/emacs/autoconf-mode.el (autoconf-mode-map): Modernize, map
'comment-region onto `C-c ;'.
Comments are `#', not `dnl'.
(autoconf-current-defun): New.
(autoconf-font-lock-keywords): Recognize `m4_defun'.
This commit is contained in:
Akim Demaille 2001-10-08 08:21:18 +00:00
parent 8e048c0492
commit b17d5c4b6c
3 changed files with 42 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ChangeLog
View File

@ -1,3 +1,16 @@
2001-10-08 Akim Demaille <akim@epita.fr>
Use `add-log-current-defun-function' for ChangeLog creation.
Suggested by Tom Tromey.
* lib/emacs/autotest-mode.el (autotest-mode-map): New.
(autotest-mode): Adjust.
* lib/emacs/autoconf-mode.el (autoconf-mode-map): Modernize, map
'comment-region onto `C-c ;'.
Comments are `#', not `dnl'.
(autoconf-current-defun): New.
(autoconf-font-lock-keywords): Recognize `m4_defun'.
2001-10-08 Akim Demaille <akim@epita.fr>
* lib/autoconf/general.m4 (_m4_divert(BODY)): Move to...

20
lib/emacs/autoconf-mode.el
View File

@ -33,7 +33,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\\)\\|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\\)(\\[?\\([A-Za-z0-9_]+\\)" 3 font-lock-function-name-face)
("^\\(\\(m4_\\)?define\\|A._DEFUN\\|m4_defun\\)(\\[?\\([A-Za-z0-9_]+\\)" 3 font-lock-function-name-face)
"default font-lock-keywords")
)
@ -53,20 +53,32 @@
(defvar autoconf-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-c\C-c" 'comment-region)
(define-key map '[(control c) (\;)] 'comment-region)
map))
(defun autoconf-current-defun ()
"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))
nil)))
;;;###autoload
(defun autoconf-mode ()
"A major-mode to edit autoconf input files like configure.in
"A major-mode to edit Autoconf files like configure.ac.
\\{autoconf-mode-map}
"
(interactive)
(kill-all-local-variables)
(use-local-map autoconf-mode-map)
(make-local-variable 'add-log-current-defun-function)
(setq add-log-current-defun-function 'autoconf-current-defun)
(make-local-variable 'comment-start)
(setq comment-start "dnl")
(setq comment-start "# ")
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)

14
lib/emacs/autotest-mode.el
View File

@ -58,15 +58,27 @@
(define-key map '[(control c) (\;)] 'comment-region)
map))
(defun autotest-current-defun ()
"Autotest value for `add-log-current-defun-function'.
This tells add-log.el how to find the current test group/macro."
(save-excursion
(if (re-search-backward "^\\(m4_define\\|m4_defun\\|AT_SETUP\\)(\\[+\\([^]]+\\)" nil t)
(buffer-substring (match-beginning 2)
(match-end 2))
nil)))
;;;###autoload
(defun autotest-mode ()
"A major-mode to edit Autotest input files like testsuite.at
"A major-mode to edit Autotest files like testsuite.at.
\\{autotest-mode-map}
"
(interactive)
(kill-all-local-variables)
(use-local-map autotest-mode-map)
(make-local-variable 'add-log-current-defun-function)
(setq add-log-current-defun-function 'autotest-current-defun)
(make-local-variable 'comment-start)
(setq comment-start "# ")
(make-local-variable 'parse-sexp-ignore-comments)