equal
deleted
inserted
replaced
27 ("\\[[^]]+]" . font-lock-type-face) |
27 ("\\[[^]]+]" . font-lock-type-face) |
28 )) |
28 )) |
29 |
29 |
30 (defun dict-c5-font-lock-extend-region () |
30 (defun dict-c5-font-lock-extend-region () |
31 "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'." |
31 "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'." |
32 ;; (message "%d, %d:%d" (point) font-lock-beg font-lock-end) |
32 ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end)) |
33 ;; (message "lines: %d" (count-lines font-lock-beg font-lock-end)) |
|
34 (cond |
33 (cond |
35 ((and |
34 ((and |
36 (< (count-lines font-lock-beg font-lock-end) 5) |
35 (< (count-lines font-lock-beg font-lock-end) 5) |
37 (< font-lock-end (point-max)) |
36 (not (and (<= (point-max) font-lock-end) (<= font-lock-beg (point-min)) ))) |
38 (< (point-min) font-lock-beg)) |
|
39 (message "XXX") |
|
40 (save-excursion |
37 (save-excursion |
41 (goto-char font-lock-beg) |
38 (goto-char font-lock-beg) |
42 (forward-line -2) |
39 (forward-line -2) |
43 (setq font-lock-beg (point)) |
40 (setq font-lock-beg (point)) |
44 (goto-char font-lock-end) |
41 (goto-char font-lock-end) |