branch: elpa/scroll-on-drag
commit b9541a601bddbc77792465fe57faba0f65341d8e
Author: Campbell Barton <[email protected]>
Commit: Campbell Barton <[email protected]>
Cleanup: function quotes
---
scroll-on-drag.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index cdf51a5e30..342e3e545c 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -153,9 +153,9 @@ Argument ALSO-MOVE-POINT When non-nil, move the POINT as
well."
"Return data associated with visual line mode or nil when none is found."
;; The checks are written so as not to require evil mode as a dependency.
(when (and (fboundp 'evil-visual-state-p)
- (funcall 'evil-visual-state-p)
+ (funcall #'evil-visual-state-p)
(fboundp 'evil-visual-type)
- (eq (funcall 'evil-visual-type) 'line)
+ (eq (funcall #'evil-visual-type) 'line)
(boundp 'evil-visual-point))
(let ((mark (symbol-value 'evil-visual-point)))
(when (markerp mark)
@@ -273,7 +273,7 @@ Returns true when scrolling took place, otherwise nil."
(setq scroll-timer
(run-with-timer
scroll-on-drag-delay nil
- #'(lambda () (funcall timer-update-fn timer-update-fn))))))
+ (lambda () (funcall timer-update-fn timer-update-fn))))))
;; Stops calling 'timer-update-fn'.
(timer-stop-fn
