branch: elpa/symbol-overlay
commit ff16ccf472507ef4a4d8303e79bb12bf25345714
Merge: 75c6ba66c0 63323516b4
Author: Steve Purcell <[email protected]>
Commit: GitHub <[email protected]>
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."
