branch: elpa/subed
commit f8a7c6a5ae17918510b0df02adc2901a0509a2d0
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Fix test that failed because of lexical scoping
I have no idea why that test failed and why this fixes it.
---
subed/subed.el | 6 +++---
tests/test-subed.el | 6 +++---
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/subed/subed.el b/subed/subed.el
index 9854963..f94f887 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -206,9 +206,9 @@ that for `subed-point-sync-delay-after-motion' seconds."
(when subed--point-was-synced
(setq subed--point-sync-delay-after-motion-timer
(run-at-time subed-point-sync-delay-after-motion nil
- (lambda ()
- (setq subed--point-sync-delay-after-motion-timer nil)
- (subed-enable-sync-point-to-player))))))
+ '(lambda ()
+ (setq subed--point-sync-delay-after-motion-timer nil)
+ (subed-enable-sync-point-to-player))))))
;;; Sync player-to-point
diff --git a/tests/test-subed.el b/tests/test-subed.el
index 35b0849..438693e 100644
--- a/tests/test-subed.el
+++ b/tests/test-subed.el
@@ -79,9 +79,9 @@
(subed-disable-sync-point-to-player-temporarily)
(expect 'run-at-time :to-have-been-called-with
subed-point-sync-delay-after-motion nil
- (lambda ()
- (setq
subed--point-sync-delay-after-motion-timer nil)
- (subed-enable-sync-point-to-player))))
+ '(lambda ()
+ (setq
subed--point-sync-delay-after-motion-timer nil)
+ (subed-enable-sync-point-to-player))))
(it "cancels previously scheduled re-enabling of
point-to-player syncing."
(subed-disable-sync-point-to-player-temporarily)
(expect 'cancel-timer :not :to-have-been-called-with
"mock timer")
