branch: elpa/scroll-on-jump
commit f7e7add273a673c8dc21882dcc2014215e5a0eb8
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>
Cleanup: quiet linter warnings
---
scroll-on-jump.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/scroll-on-jump.el b/scroll-on-jump.el
index 35ec55f28e..7ab611be59 100644
--- a/scroll-on-jump.el
+++ b/scroll-on-jump.el
@@ -171,7 +171,7 @@ Argument ALSO-MOVE-POINT When non-nil, move the POINT as
well."
(set-marker m (point)))))
(defmacro scroll-on-jump--save-mark-conditionally (test-condition &rest body)
- "Run BODY restoring the mark to it's original location."
+ "Run BODY, restoring the marks original location when TEST-CONDITION is
non-nil."
;; NOTE: it's assumed the buffer will not be modified.
(declare (indent 1))
(let ((mk-pos (gensym "mk-pos")))
@@ -571,6 +571,8 @@ Argument USE-WINDOW-START detects window scrolling when
non-nil."
;; It's important the result if returned (hence the
`prog1' use).
,@body))))
+ ;; Quiet unused argument warning.
+ (ignore point-prev)
(cond
;; Context changed or recursed, simply jump.
