[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 97aab57 02/11: fsm: Delete trailing whitespace
From: |
Thomas Fitzsimmons |
Subject: |
[elpa] master 97aab57 02/11: fsm: Delete trailing whitespace |
Date: |
Sat, 05 Sep 2015 10:05:14 +0000 |
branch: master
commit 97aab575af3c28e78810374eb843d9037340f3b6
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>
fsm: Delete trailing whitespace
---
packages/fsm/fsm.el | 18 ++++++++++--------
1 files changed, 10 insertions(+), 8 deletions(-)
diff --git a/packages/fsm/fsm.el b/packages/fsm/fsm.el
index 4bc4ebf..db2a17a 100644
--- a/packages/fsm/fsm.el
+++ b/packages/fsm/fsm.el
@@ -42,7 +42,7 @@
;; possibly returning a value.
;; The essential macros/functions are:
-;;
+;;
;; define-state-machine - create start-FOO function
;; define-state - event handler for each state (required)
;; define-enter-state - called when entering a state (optional)
@@ -81,7 +81,6 @@
;; (:event (zow :ping (if (= 0 count)
;; (fsm-goodbye-cruel-world 'pingpong)
;; 3))))))))
-;;
;; (fsm-send (start-pingpong -16) t)
;;
;; Copy into a buffer, uncomment, and type M-x eval-buffer RET.
@@ -89,6 +88,9 @@
;; form with `nil', eval just the `labels' form and then type
;; M-x start-pingpong RET -16 RET.
+;; Version 0.2:
+;; -- Delete trailing whitespace.
+
;; NOTE: This is version 0.1ttn4 of fsm.el, with the following
;; mods (an exercise in meta-meta-programming ;-) by ttn:
;; -- Refill for easy (traditional 80-column) perusal.
@@ -148,7 +150,7 @@ arguments.
\(fn NAME :start ((ARG ...) DOCSTRING BODY) [:sleep SLEEP-FUNCTION])"
(declare (debug (&define name :name start
&rest
- &or [":start"
+ &or [":start"
(lambda-list
[&optional ("interactive" interactive)]
stringp def-body)]
@@ -286,12 +288,12 @@ any state machines using them. Return nil."
The timer is canceled if another event occurs before, unless the
event handler explicitly asks to keep the timer."
(fsm-stop-timer fsm)
- (setf (cddr fsm)
- (plist-put
- (cddr fsm)
+ (setf (cddr fsm)
+ (plist-put
+ (cddr fsm)
:timeout (run-with-timer secs
nil
- #'fsm-send-sync fsm
+ #'fsm-send-sync fsm
:timeout))))
(defun fsm-stop-timer (fsm)
@@ -360,7 +362,7 @@ CALLBACK with the response as only argument."
(fsm-debug-output "Sent %S to %s in state %s"
(or (car-safe event) event) fsm-name state)
(let ((result (condition-case e
- (funcall state-fn fsm state-data event
+ (funcall state-fn fsm state-data event
(or callback 'ignore))
((debug error) (cons :error-signaled e)))))
;; Special case for deferring an event until next state change.
- [elpa] master updated (e0a3544 -> e71233a), Thomas Fitzsimmons, 2015/09/05
- [elpa] master 97aab57 02/11: fsm: Delete trailing whitespace,
Thomas Fitzsimmons <=
- [elpa] master c04700a 04/11: fsm: Use lexical binding, Thomas Fitzsimmons, 2015/09/05
- [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