comparison lisp/progmodes/cfengine.el @ 90737:95d0cdf160ea

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 586-614) - Update from CVS - Update from erc--emacs--22 - Merge from gnus--rel--5.10 - Merge from erc--main--0 - Make byte compiler correctly write circular constants * gnus--rel--5.10 (patch 186-196) - Update from CVS - Merge from emacs--devo--0 Revision: [e-mail]/emacs--unicode--0--patch-162

90736:ef1369583937

;;; cfengine.el --- mode for editing Cfengine files

;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
;; Free Software Foundation, Inc.

;; Author: Dave Love <[e-mail]>
;; Keywords: languages

(defconst cfengine-font-lock-syntactic-keywords
  ;; In the main syntax-table, backslash is marked as a punctuation, because
  ;; of its use in DOS-style directory separators.  Here we try to recognize
  ;; the cases where backslash is used as an escape inside strings.
  '(("\\(\\(?:\\\\\\)+\\)\"" . "\\")))

(defvar cfengine-imenu-expression
  `((nil ,(concat "^[ \t]*" (eval-when-compile
			      (regexp-opt cfengine-actions t))
		  ":[^:]")

90737:95d0cdf160ea

;;; cfengine.el --- mode for editing Cfengine files

;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
;; Free Software Foundation, Inc.

;; Author: Dave Love <[e-mail]>
;; Keywords: languages

(defconst cfengine-font-lock-syntactic-keywords
  ;; In the main syntax-table, backslash is marked as a punctuation, because
  ;; of its use in DOS-style directory separators.  Here we try to recognize
  ;; the cases where backslash is used as an escape inside strings.
  '(("\\(\\(?:\\\\\\)+\\)\"" 1 "\\")))

(defvar cfengine-imenu-expression
  `((nil ,(concat "^[ \t]*" (eval-when-compile
			      (regexp-opt cfengine-actions t))
		  ":[^:]")