From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Sun, 10 Jul 2016 16:10:12 +0000 (-0400)
Subject: packages/fsm: Fix compilation error
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/b3a57bf98ae09a64e6143fb006e306daf55657b2?hp=55da50d5b8ea79c017c8ae938f5cc94ce0a24b8c

packages/fsm: Fix compilation error

* packages/fsm/fsm.el (define-state-machine): Quote default :sleep
lambda (bug#23920).
---

diff --git a/packages/fsm/fsm.el b/packages/fsm/fsm.el
index 42dda1542..0b8c748ac 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)))))))