开发者

Emacs: font-lock-fontify-region and multiline

I am writing a minor mode for php/html files. I use a function (cf. font-lock-keywords) to fontify <?php ?> blocs.

In order to fontify multilined blocs, I need to set font-lock-multiline to t.

Everything is running quite nicely. Their is just a problem in this case : When I have a multiline bloc and a delete the closing tag (?>) the bloc is unfontified. When I put the tag back, the block is not fontified again.

I have three questions :

1/ is there a simple solution to this problem

if not 2/ is there any way to trigger font-lock-fontify-buffer each time I type those two chars开发者_如何学C : '?''>'

3/ better, is there a way to trigger this kind a fonction : when I type ?> I find the opening tag <?php and force a font-lock-fontify-region on this bloc.


This is a basic approach, and the logic is insufficient, but it demonstrates one option:

(defvar foo-minor-mode-map (make-keymap) "foo-minor-mode keymap.")
(define-key foo-minor-mode-map (kbd ">") 'foo-electric-gt)

(defun foo-electric-gt (&optional arg)
  (interactive "*p")
  (when (looking-back "\\?$")
    (save-excursion
      (let ((end (- (point) 1))
            (beg (+ (search-backward "<?php") 5)))
        (font-lock-fontify-region beg end))))
  (insert-char ?> arg))

(define-minor-mode foo-minor-mode
  "foo mode.

\\{foo-minor-mode-map}"
  :keymap 'foo-minor-mode-map)
0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜