1
0
Fork 0
mirror of https://github.com/haml/haml.git synced 2022-11-09 12:33:31 -05:00

[Emacs] Treat loud comments like silent ones.

This commit is contained in:
Nathan Weizenbaum 2009-03-17 01:34:28 -07:00
parent 743cbeb8d7
commit 1b694ba850

View file

@ -80,18 +80,17 @@ text nested beneath them.")
(concat "^\\( *\\)" re "\n\\(?:\\(?:\\1 .*\\| *\\)\n\\)*")) (concat "^\\( *\\)" re "\n\\(?:\\(?:\\1 .*\\| *\\)\n\\)*"))
(defconst haml-font-lock-keywords (defconst haml-font-lock-keywords
`((,(haml-nested-regexp "-#.*") 0 font-lock-comment-face) `((,(haml-nested-regexp "\\(?:-#\\|/\\).*") 0 font-lock-comment-face)
(,(haml-nested-regexp ":\\w+") 0 font-lock-string-face) (,(haml-nested-regexp ":\\w+") 0 font-lock-string-face)
(haml-highlight-interpolation 1 font-lock-variable-name-face prepend) (haml-highlight-interpolation 1 font-lock-variable-name-face prepend)
(haml-highlight-ruby-tag 1 font-lock-preprocessor-face) (haml-highlight-ruby-tag 1 font-lock-preprocessor-face)
(haml-highlight-ruby-script 1 font-lock-preprocessor-face) (haml-highlight-ruby-script 1 font-lock-preprocessor-face)
("^ *\\(\t\\)" 1 'haml-tab-face) ("^ *\\(\t\\)" 1 'haml-tab-face)
("^!!!.*" 0 font-lock-constant-face) ("^!!!.*" 0 font-lock-constant-face)
("| *$" 0 font-lock-string-face) ("| *$" 0 font-lock-string-face)))
("^[ \t]*\\(/.*\\)$" 1 font-lock-comment-face append)))
(defconst haml-filter-re "^ *\\(:\\)\\w+") (defconst haml-filter-re "^ *:\\w+")
(defconst haml-comment-re "^ *\\(-\\)\\#") (defconst haml-comment-re "^ *\\(?:-\\#\\|/\\)")
(defun haml-fontify-region-as-ruby (beg end) (defun haml-fontify-region-as-ruby (beg end)
"Use Ruby's font-lock variables to fontify the region between BEG and END." "Use Ruby's font-lock variables to fontify the region between BEG and END."