[nongnu] elpa/symbol-overlay 63323516b4 117/152: Replaced lisp implementation of window start and end with c primitive

[ELPA Syncer]

branch: elpa/symbol-overlay
commit 63323516b4751010bd551f2f8203e7b6e7d1694d
Author: Sebastian Wålinder <s.walinder@gmail.com>
Commit: Sebastian Wålinder <s.walinder@gmail.com>

    Replaced lisp implementation of window start and end with c primitive
---
 symbol-overlay.el | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index be2186d329..ca39e28333 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -274,15 +274,7 @@ depending on SCOPE and WINDOW."
                        max (progn (forward-paragraph) (point))))
           (narrow-to-region min max)))
     (when window
-      (let ((lines (round (window-screen-lines)))
-            (pt (point))
-            beg)
-        (save-excursion
-          (forward-line (- lines))
-          (setq beg (point))
-          (goto-char pt)
-          (forward-line lines)
-          (narrow-to-region beg (point)))))))
+      (narrow-to-region (window-start) (window-end)))))
 
 (defun symbol-overlay-remove-temp ()
   "Delete all temporary overlays."