branch: externals/topspace
commit 86127bf20f241a3c421b13523f0de6590fe42055
Author: Trevor Pogue <pogu...@mcmaster.ca>
Commit: Trevor Pogue <pogu...@mcmaster.ca>
Performance optimization
- Improve performance of `topspace--post-command` by also only counting
lines
when point moved past previous line
---
topspace.el | 23 +++++++++++++++--------
1 file changed, 15 insertions(+), 8 deletions(-)
diff --git a/topspace.el b/topspace.el
index b1a6329372..23debe26cc 100644
--- a/topspace.el
+++ b/topspace.el
@@ -691,17 +691,24 @@ ARG defaults to 1."
(defun topspace--post-command ()
"Reduce top space height before the cursor can move past `window-end'."
- (when (and (= topspace--pre-command-window-start 1)
- (> (point) topspace--pre-command-point)
+ (when (= topspace--pre-command-window-start 1)
+ (let ((next-line-point))
+ (save-excursion
+ (goto-char topspace--pre-command-point)
+ (vertical-motion 1)
+ (beginning-of-visual-line)
+ (setq next-line-point (point)))
+ (when (and
+ (>= (point) next-line-point)
(< (- (line-number-at-pos (point))
(line-number-at-pos topspace--pre-command-point))
(window-text-height)))
- (let ((topspace-height (topspace-height)) (total-lines-past-max))
- (when (> topspace-height 0)
- (setq total-lines-past-max (topspace--total-lines-past-max
- topspace-height))
- (when (> total-lines-past-max 0)
- (topspace--decrease-height total-lines-past-max)))))
+ (let ((topspace-height (topspace-height)) (total-lines-past-max))
+ (when (> topspace-height 0)
+ (setq total-lines-past-max (topspace--total-lines-past-max
+ topspace-height))
+ (when (> total-lines-past-max 0)
+ (topspace--decrease-height total-lines-past-max)))))))
(when (and (= (window-start) 1)
topspace--got-first-window-configuration-change)
(topspace-set-height)))
