obsolete/dict-c5-mode.el
changeset 332 49545a5764ef
parent 331 b69b69ac7457
child 333 22928defcb53
equal deleted inserted replaced
331:b69b69ac7457 332:49545a5764ef
    21 
    21 
    22 (defvar dict-c5-font-lock-keywords
    22 (defvar dict-c5-font-lock-keywords
    23   '(
    23   '(
    24     ("^\\(_\\{5,\\}\\)\n\n\\(\\w.*\\)$"
    24     ("^\\(_\\{5,\\}\\)\n\n\\(\\w.*\\)$"
    25      (1 font-lock-function-name-face) (2 font-lock-keyword-face))
    25      (1 font-lock-function-name-face) (2 font-lock-keyword-face))
    26     ("\\[[^]]+]" . font-lock-type-face)
    26     ("\\[[^]\n]+]" . font-lock-type-face)
    27     ))
    27     ))
    28 
    28 
    29 (defun dict-c5-font-lock-extend-region ()
    29 (defun dict-c5-font-lock-extend-region ()
    30   "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'."
    30   "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'."
    31   ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end))
    31   ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end))