branch: externals/topspace
commit ce7fc980085dace00b0bba45034c79f2303a750f
Author: Trevor Pogue <pogu...@mcmaster.ca>
Commit: Trevor Pogue <pogu...@mcmaster.ca>
Internal refactoring
- Rename `topspace-height-to-make-buffer-centered` back to
`topspace--height-to-make-buffer-centered` from when it was accidentally
renamed in commit 15ac6c969a525ebb4d0f4ea15cbe3435104d0391
---
topspace.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/topspace.el b/topspace.el
index 47f1531cb5..6c2162980f 100644
--- a/topspace.el
+++ b/topspace.el
@@ -336,7 +336,7 @@ Return the current line plus the top space height
TOPSPACE-HEIGHT."
(+ (topspace--count-lines (window-start) (point))
(or topspace-height (topspace-height))))
-(defun topspace-height-to-make-buffer-centered ()
+(defun topspace--height-to-make-buffer-centered ()
"Return the necessary top space height to center selected window's buffer."
(let ((buffer-height (topspace--count-lines (window-start) (window-end)))
(result)
@@ -548,7 +548,7 @@ the top space pixel height / `default-line-height'."
(when height (topspace--set-height (topspace--correct-height height)))
(when (and (not height) (topspace--eval-choice
topspace-autocenter-buffers))
(setq height (alist-get (selected-window) topspace--autocenter-heights))
- (unless height (setq height (topspace-height-to-make-buffer-centered)))
+ (unless height (setq height (topspace--height-to-make-buffer-centered)))
(setq height (topspace--correct-height height))
(setf (alist-get window topspace--heights) height))
height))
@@ -562,7 +562,7 @@ Customize `topspace-center-position' to adjust the
centering position.
Customize `topspace-autocenter-buffers' to run this command automatically
after first opening buffers and after window sizes change."
(interactive)
- (let ((center-height (topspace-height-to-make-buffer-centered)))
+ (let ((center-height (topspace--height-to-make-buffer-centered)))
(setf (alist-get (selected-window) topspace--autocenter-heights)
center-height)
(topspace--draw center-height)))
