Mercurial > emacs
comparison lisp/progmodes/autoconf.el @ 40538:4b57ae8d5508
(autoconf-mode): Fix comment-start-skip.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 31 Oct 2001 02:32:18 +0000 |
parents | b174db545cfd |
children | 5ba37a8fa075 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
40537:12c60dbbc4fe | 40538:4b57ae8d5508 |
---|---|
2 | 2 |
3 ;; Copyright (C) 2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2000 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Dave Love <fx@gnu.org> | 5 ;; Author: Dave Love <fx@gnu.org> |
6 ;; Keywords: languages | 6 ;; Keywords: languages |
7 ;; $Revision: 1.1 $ | 7 ;; $Revision: 1.2 $ |
8 | 8 |
9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
10 | 10 |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
12 ;; it under the terms of the GNU General Public License as published by | 12 ;; it under the terms of the GNU General Public License as published by |
91 (set-syntax-table autoconf-mode-syntax-table) | 91 (set-syntax-table autoconf-mode-syntax-table) |
92 (set (make-local-variable 'parens-require-spaces) nil) ; for M4 arg lists | 92 (set (make-local-variable 'parens-require-spaces) nil) ; for M4 arg lists |
93 (set (make-local-variable 'defun-prompt-regexp) | 93 (set (make-local-variable 'defun-prompt-regexp) |
94 "^[ \t]*A[CM]_\\(\\sw\\|\\s_\\)+") | 94 "^[ \t]*A[CM]_\\(\\sw\\|\\s_\\)+") |
95 (set (make-local-variable 'comment-start) "dnl ") | 95 (set (make-local-variable 'comment-start) "dnl ") |
96 (set (make-local-variable 'comment-start-skip) "\\(\\<dnl\\|#\\) +") | 96 (set (make-local-variable 'comment-start-skip) "\\(?:\\<dnl\\|#\\) +") |
97 (set (make-local-variable 'font-lock-syntactic-keywords) | 97 (set (make-local-variable 'font-lock-syntactic-keywords) |
98 autoconf-font-lock-syntactic-keywords) | 98 autoconf-font-lock-syntactic-keywords) |
99 (set (make-local-variable 'font-lock-defaults) | 99 (set (make-local-variable 'font-lock-defaults) |
100 `(autoconf-font-lock-keywords nil nil (("_" . "w")))) | 100 `(autoconf-font-lock-keywords nil nil (("_" . "w")))) |
101 (set (make-local-variable 'imenu-generic-expression) | 101 (set (make-local-variable 'imenu-generic-expression) |