[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b3a57bf 1/2: packages/fsm: Fix compilation error
From: |
Thomas Fitzsimmons |
Subject: |
[elpa] master b3a57bf 1/2: packages/fsm: Fix compilation error |
Date: |
Sun, 10 Jul 2016 16:19:25 +0000 (UTC) |
branch: master
commit b3a57bf98ae09a64e6143fb006e306daf55657b2
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>
packages/fsm: Fix compilation error
* packages/fsm/fsm.el (define-state-machine): Quote default :sleep
lambda (bug#23920).
---
packages/fsm/fsm.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/packages/fsm/fsm.el b/packages/fsm/fsm.el
index 42dda15..0b8c748 100644
--- a/packages/fsm/fsm.el
+++ b/packages/fsm/fsm.el
@@ -186,9 +186,10 @@ arguments.
(put fsm :name ',name)
(put fsm :state nil)
(put fsm :state-data nil)
- (put fsm :sleep ,(or sleep (lambda (secs)
- (accept-process-output
- nil secs))))
+ (put fsm :sleep ,(or sleep '(lambda (secs)
+ (accept-process-output
+ nil secs))))
+
(put fsm :deferred nil)
(fsm-update fsm state state-data timeout)
fsm)))))))