Find the edges of the screen more efficiently.

diff --git a/context-coloring.el b/context-coloring.el
index d296f0d217426b1aa7b078ece839ff2411a411dd..d89f8447f357230ed4790cba92d8408152b8aea7 100644 (file)
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -959,12 +959,14 @@ scopes and variables."
                    (start (progn (goto-char context-coloring-changed-start)
                                  (while (and (< (point-min) (point))
                                              (pos-visible-in-window-p))
-                                   (beginning-of-defun))
+                                   (end-of-line 0))
+                                 (beginning-of-defun)
                                  (point)))
                    (end (progn (goto-char context-coloring-changed-end)
                                (while (and (> (point-max) (point))
                                            (pos-visible-in-window-p))
-                                 (end-of-defun))
+                                 (forward-line 1))
+                               (end-of-defun)
                                (point))))
               (context-coloring-elisp-colorize-region-initially start end)))
            (t