summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
55da50d)
* packages/fsm/fsm.el (define-state-machine): Quote default :sleep
lambda (bug#23920).
(put fsm :name ',name)
(put fsm :state nil)
(put fsm :state-data nil)
(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)))))))
(put fsm :deferred nil)
(fsm-update fsm state state-data timeout)
fsm)))))))