[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master c04700a 04/11: fsm: Use lexical binding
From: |
Thomas Fitzsimmons |
Subject: |
[elpa] master c04700a 04/11: fsm: Use lexical binding |
Date: |
Sat, 05 Sep 2015 10:05:15 +0000 |
branch: master
commit c04700ae40391ee5ed49d13c66e8d9dd5cdd08d4
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>
fsm: Use lexical binding
---
packages/fsm/fsm.el | 10 ++++++----
1 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/packages/fsm/fsm.el b/packages/fsm/fsm.el
index 2535e05..655f39f 100644
--- a/packages/fsm/fsm.el
+++ b/packages/fsm/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] master updated (e0a3544 -> e71233a), Thomas Fitzsimmons, 2015/09/05
- [elpa] master 97aab57 02/11: fsm: Delete trailing whitespace, Thomas Fitzsimmons, 2015/09/05
- [elpa] master c04700a 04/11: fsm: Use lexical binding,
Thomas Fitzsimmons <=
- [elpa] master 7864e2c 03/11: fsm: Fix formatting, Thomas Fitzsimmons, 2015/09/05
- [elpa] master 3e025b4 06/11: fsm: Add FSM name to some fsm-debug-output messages, Thomas Fitzsimmons, 2015/09/05
- [elpa] master 2cc2d6f 08/11: fsm: Add packaging fields, Thomas Fitzsimmons, 2015/09/05
- [elpa] master a79dd37 07/11: fsm: Fix checkdoc errors, Thomas Fitzsimmons, 2015/09/05
- [elpa] master d9a9ea7 09/11: fsm: Fix copyright, Thomas Fitzsimmons, 2015/09/05
- [elpa] master eced577 01/11: fsm: Import fsm.el from emacs-jabber, Thomas Fitzsimmons, 2015/09/05
- [elpa] master e71233a 11/11: fsm: Bump version to 0.2, Thomas Fitzsimmons, 2015/09/05
- [elpa] master 488396a 10/11: fsm: Change FSMs from plists to uninterned symbols, Thomas Fitzsimmons, 2015/09/05
- [elpa] master 940d886 05/11: fsm: Port to cl-lib, Thomas Fitzsimmons, 2015/09/05