[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/fsm e3c4c03 04/16: fsm: Use lexical binding
From: |
Stefan Monnier |
Subject: |
[elpa] externals/fsm e3c4c03 04/16: fsm: Use lexical binding |
Date: |
Sun, 29 Nov 2020 12:00:23 -0500 (EST) |
branch: externals/fsm
commit e3c4c03a2b9f8de3359e31632801c38fd2322e4d
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>
fsm: Use lexical binding
---
fsm.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/fsm.el b/fsm.el
index 2535e05..655f39f 100644
--- a/fsm.el
+++ b/fsm.el
@@ -1,4 +1,4 @@
-;;; fsm.el --- state machine library
+;;; fsm.el --- state machine library -*- lexical-binding: t; -*-
;; Copyright (C) 2006, 2007, 2008 Magnus Henoch
@@ -56,6 +56,7 @@
;; Here is a simple (not using all the features of fsm.el) example:
;;
+;; ;; -*- lexical-binding: t; -*-
;; (require 'cl)
;; (labels ((hey (n ev)
;; (message "%d (%s)\tp%sn%s!" n ev
@@ -91,6 +92,7 @@
;; Version 0.2:
;; -- Delete trailing whitespace.
;; -- Fix formatting.
+;; -- Use lexical binding.
;; NOTE: This is version 0.1ttn4 of fsm.el, with the following
;; mods (an exercise in meta-meta-programming ;-) by ttn:
@@ -394,7 +396,7 @@ CALLBACK with the response as only argument."
"Send EVENT to FSM synchronously, and wait for a reply.
Return the reply.
`with-timeout' might be useful."
- (lexical-let (reply)
+ (let (reply)
(fsm-send-sync fsm event (lambda (r) (setq reply (list r))))
(while (null reply)
(fsm-sleep fsm 1))
@@ -403,14 +405,14 @@ Return the reply.
(defun fsm-make-filter (fsm)
"Return a filter function that sends events to FSM.
Events sent are of the form (:filter PROCESS STRING)."
- (lexical-let ((fsm fsm))
+ (let ((fsm fsm))
(lambda (process string)
(fsm-send-sync fsm (list :filter process string)))))
(defun fsm-make-sentinel (fsm)
"Return a sentinel function that sends events to FSM.
Events sent are of the form (:sentinel PROCESS STRING)."
- (lexical-let ((fsm fsm))
+ (let ((fsm fsm))
(lambda (process string)
(fsm-send-sync fsm (list :sentinel process string)))))
- [elpa] branch externals/fsm created (now b7d74b3), Stefan Monnier, 2020/11/29
- [elpa] externals/fsm cfbe515 06/16: fsm: Add FSM name to some fsm-debug-output messages, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm 3acbc4d 14/16: packages/fsm: Bump version to 0.2.1, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm aaea24a 01/16: fsm: Import fsm.el from emacs-jabber, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm 384864d 03/16: fsm: Fix formatting, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm e3c4c03 04/16: fsm: Use lexical binding,
Stefan Monnier <=
- [elpa] externals/fsm 74d3364 11/16: fsm: Bump version to 0.2, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm 3548ca5 12/16: fsm: Revert some changes suggested by checkdoc, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm 1e86cbc 09/16: fsm: Fix copyright, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm b7d74b3 16/16: * .gitignore: New file, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm 1044ede 10/16: fsm: Change FSMs from plists to uninterned symbols, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm 3b66086 13/16: packages/fsm: Fix compilation error, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm 5e69613 07/16: fsm: Fix checkdoc errors, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm 5ecf3cb 05/16: fsm: Port to cl-lib, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm ccc2f3f 08/16: fsm: Add packaging fields, Stefan Monnier, 2020/11/29
- [elpa] externals/fsm f4f4d3a 15/16: ; * packages/fsm/fsm.el: Comment., Stefan Monnier, 2020/11/29