branch: elpa/scroll-on-jump
commit 8b108786da855dffd0f1957a0906dd3921e25711
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>
Cleanup: rename fun -> fn (personal preference)
---
scroll-on-jump.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/scroll-on-jump.el b/scroll-on-jump.el
index cd9bf83348..95a26ba688 100644
--- a/scroll-on-jump.el
+++ b/scroll-on-jump.el
@@ -539,8 +539,8 @@ Moving the point when ALSO-MOVE-POINT is set."
,@body)
(setq ,point-out (point)))))
-(defun scroll-on-jump--impl (use-window-start body-fun)
- "Main macro that wraps BODY-FUN in logic that reacts to change in `point'.
+(defun scroll-on-jump--impl (use-window-start body-fn)
+ "Main macro that wraps BODY-FN in logic that reacts to change in `point'.
Argument USE-WINDOW-START detects window scrolling when non-nil."
(let ((buf (current-buffer)) ; Set in case we have an error.
(window (selected-window))
@@ -564,7 +564,7 @@ Argument USE-WINDOW-START detects window scrolling when
non-nil."
(scroll-on-jump--inner-scoped-mark point-orig point-next
;; Run the main body of this function.
;; It's important the result if returned (hence the `prog1'
use).
- (funcall body-fun)))))
+ (funcall body-fn)))))
;; Quiet unused argument warning.
(ignore point-prev)
