Changeset 4166 for trunk/lisp/progmodes/cfengine.el

Timestamp:

09/18/06 20:48:14 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/progmodes/cfengine.el (modified) (4 diffs)

trunk/lisp/progmodes/cfengine.el

@@ -85 +85 @@
-    ;; File, acl &c in group:   { token ... }
-    ("{[ \t]*\\([^ \t\n]+\\)" 1 font-lock-constant-face)))
+
+(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
@@ -219 +225 @@
-  (modify-syntax-entry ?$ "." cfengine-mode-syntax-table)
-  ;; Doze path separators:
-_
+.
-  ;; Otherwise, syntax defaults seem OK to give reasonable word
-  ;; movement.
@@ -238 +244 @@
-  ;; syntax properties.
-  (setq font-lock-defaults
-
+
+
+
-  (setq imenu-generic-expression cfengine-imenu-expression)
-  (set (make-local-variable 'beginning-of-defun-function)
@@ -250 +258 @@
-(provide 'cfengine)
-
-;
+
-;;; cfengine.el ends here