[nongnu] elpa/symbol-overlay ff16ccf472 118/152: Merge pull request #44 from walseb/lisp-to-c-primitive

[ELPA Syncer]

branch: elpa/symbol-overlay
commit ff16ccf472507ef4a4d8303e79bb12bf25345714
Merge: 75c6ba66c0 63323516b4
Author: Steve Purcell <steve@sanityinc.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #44 from walseb/lisp-to-c-primitive
    
    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."