emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/fsm 8da631d 02/16: fsm: Delete trailing whitespace


From: Stefan Monnier
Subject: [elpa] externals/fsm 8da631d 02/16: fsm: Delete trailing whitespace
Date: Sun, 29 Nov 2020 12:00:23 -0500 (EST)

branch: externals/fsm
commit 8da631d2ff7aab009017a54a9bc3f25167677e2d
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    fsm: Delete trailing whitespace
---
 fsm.el | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/fsm.el b/fsm.el
index 4bc4ebf..db2a17a 100644
--- a/fsm.el
+++ b/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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]