# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1324416509 -7200
# Node ID 1c6bb299d28b6c82042c61460ab16fa0185d493c
# Parent  38ca922a6d11290d19fa65589ad71f2162dc30f1
Return non-nil if region was adjusted.

diff -r 38ca922a6d11 -r 1c6bb299d28b dict-mode.el
--- a/dict-mode.el	Tue Dec 20 23:18:04 2011 +0200
+++ b/dict-mode.el	Tue Dec 20 23:28:29 2011 +0200
@@ -29,20 +29,23 @@
 
 (defun dict-c5-font-lock-extend-region ()
   "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'."
-  (let (beg end)
+  (let ((changed nil))
     (save-excursion
       ;; (message "%d, %d:%d" point font-lock-beg font-lock-end)
       (goto-char font-lock-beg)
       (beginning-of-line)
       (when (eq (char-after (point)) ?_)
         (forward-line 3)
-        (setq font-lock-end (point)))
+        (setq font-lock-end (point))
+        (setq changed t))
       (goto-char font-lock-beg)
       (forward-line -2)
       (when (eq (char-after (point)) ?_)
-        (setq font-lock-beg (point)))
-      )))
-
+        (setq font-lock-beg (point))
+        (setq changed t))
+      )
+    changed
+    ))
 
 ;;;###autoload
 (define-derived-mode dict-c5-mode fundamental-mode "Dict-c5"