Mercurial > emacs

comparison lisp/progmodes/autoconf.el @ 40538:4b57ae8d5508

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)