branch: elpa/symbol-overlay
commit 63323516b4751010bd551f2f8203e7b6e7d1694d
Author: Sebastian Wålinder <[email protected]>
Commit: Sebastian Wålinder <[email protected]>
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."
