branch: elpa/scroll-on-jump
commit 54b48665fcdffaba028de2f7713914f08ee2f0ba
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>
Cleanup: use prog1 to forward the return when mode-line-format is used
The return value isn't used currently but it's better practice
to return it.
---
scroll-on-jump.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/scroll-on-jump.el b/scroll-on-jump.el
index 321538c6fe..0bc11ebbdf 100644
--- a/scroll-on-jump.el
+++ b/scroll-on-jump.el
@@ -352,10 +352,11 @@ Moving the point when ALSO-MOVE-POINT is set."
;; No animation.
((zerop scroll-on-jump-duration)
(scroll-on-jump--immediate-scroll window lines-scroll dir))
+ ;; Animated scroll.
(scroll-on-jump-mode-line-format
- (let ((mode-line-format scroll-on-jump-mode-line-format))
- (scroll-on-jump--scroll-animated window lines-scroll dir
also-move-point))
- (force-mode-line-update))
+ (prog1 (let ((mode-line-format scroll-on-jump-mode-line-format))
+ (scroll-on-jump--scroll-animated window lines-scroll dir
also-move-point))
+ (force-mode-line-update)))
(t
(scroll-on-jump--scroll-animated window lines-scroll dir
also-move-point))))
