mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(cfengine-font-lock-syntactic-keywords): New var.

Browse Source 
(cfengine-mode): Use it.  Fix \ syntax to be like /.
This commit is contained in:
Stefan Monnier 2006-09-11 07:12:37 +00:00
parent a8b7149d7e
commit 7efd03c350
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2006-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/cfengine.el (cfengine-font-lock-syntactic-keywords): New var.
(cfengine-mode): Use it. Fix \ syntax to be like /.
* bindings.el (mode-line-buffer-identification-keymap):
Move initialization into declaration.

14
lisp/progmodes/cfengine.el
View File

@ -85,6 +85,12 @@ This includes those for cfservd as well as cfagent."))
;; 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
`((nil ,(concat "^[ \t]*" (eval-when-compile
(regexp-opt cfengine-actions t))
@ -218,7 +224,7 @@ to the action header."
;; variable substitution:
(modify-syntax-entry ?$ "." cfengine-mode-syntax-table)
;; Doze path separators:
(modify-syntax-entry ?\\ "_" cfengine-mode-syntax-table)
(modify-syntax-entry ?\\ "." cfengine-mode-syntax-table)
;; Otherwise, syntax defaults seem OK to give reasonable word
;; movement.
@ -237,7 +243,9 @@ to the action header."
;; functions in evaluated classes to string syntax, and then obey
;; syntax properties.
(setq font-lock-defaults
'(cfengine-font-lock-keywords nil nil nil beginning-of-line))
'(cfengine-font-lock-keywords nil nil nil beginning-of-line
(font-lock-syntactic-keywords
. cfengine-font-lock-syntactic-keywords)))
(setq imenu-generic-expression cfengine-imenu-expression)
(set (make-local-variable 'beginning-of-defun-function)
#'cfengine-beginning-of-defun)
@ -249,5 +257,5 @@ to the action header."
(provide 'cfengine)
;;; arch-tag: 6b931be2-1505-4124-afa6-9675971e26d4
;; arch-tag: 6b931be2-1505-4124-afa6-9675971e26d4
;;; cfengine.el ends here