[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 3e025b4 06/11: fsm: Add FSM name to some fsm-debug-output
From: |
Thomas Fitzsimmons |
Subject: |
[elpa] master 3e025b4 06/11: fsm: Add FSM name to some fsm-debug-output messages |
Date: |
Sat, 05 Sep 2015 10:05:16 +0000 |
branch: master
commit 3e025b4473b36825a6c754dbc7012f04ee9343e4
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>
fsm: Add FSM name to some fsm-debug-output messages
---
packages/fsm/fsm.el | 8 +++++---
1 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/packages/fsm/fsm.el b/packages/fsm/fsm.el
index cb49e93..b7a7693 100644
--- a/packages/fsm/fsm.el
+++ b/packages/fsm/fsm.el
@@ -94,6 +94,8 @@
;; -- Fix formatting.
;; -- Use lexical binding.
;; -- Port to cl-lib.
+;; -- Remove unnecessary fsm-debug-output message.
+;; -- Add FSM name to fsm-debug-output messages that were not including it.
;; NOTE: This is version 0.1ttn4 of fsm.el, with the following
;; mods (an exercise in meta-meta-programming ;-) by ttn:
@@ -336,15 +338,15 @@ CALLBACK with the response as only argument."
(fsm-debug-output "%s enters %s" fsm-name new-state)
(let ((enter-fn (gethash new-state (get fsm-name :fsm-enter))))
(when (functionp enter-fn)
- (fsm-debug-output "Found enter function for %S" new-state)
+ (fsm-debug-output "Found enter function for %s/%s" fsm-name new-state)
(condition-case e
(cl-destructuring-bind (newer-state-data newer-timeout)
(funcall enter-fn fsm new-state-data)
- (fsm-debug-output "Using data from enter function")
(plist-put (cddr fsm) :state-data newer-state-data)
(fsm-maybe-change-timer fsm newer-timeout))
((debug error)
- (fsm-debug-output "Didn't work: %S" e)))))
+ (fsm-debug-output "%s/%s update didn't work: %S"
+ fsm-name new-state e)))))
(let ((deferred (nreverse (plist-get (cddr fsm) :deferred))))
(setf (cddr fsm)
- [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, 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 <=
- [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