emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/subed f8a7c6a 029/389: Fix test that failed because of lex


From: ELPA Syncer
Subject: [nongnu] elpa/subed f8a7c6a 029/389: Fix test that failed because of lexical scoping
Date: Fri, 3 Dec 2021 10:59:50 -0500 (EST)

branch: elpa/subed
commit f8a7c6a5ae17918510b0df02adc2901a0509a2d0
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@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")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]