Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv9488
Modified Files:
fsm.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-380
Creator: Magnus Henoch <ma...@fr...>
More information in fsm debug output
Index: fsm.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/fsm.el,v
retrieving revision 2.3
retrieving revision 2.4
diff -u -d -r2.3 -r2.4
--- fsm.el 5 Feb 2007 21:59:03 -0000 2.3
+++ fsm.el 12 Aug 2007 22:00:29 -0000 2.4
@@ -1,6 +1,6 @@
;;; fsm.el --- state machine library
-;; Copyright (C) 2006 Magnus Henoch
+;; Copyright (C) 2006, 2007 Magnus Henoch
;; Author: Magnus Henoch <ma...@fr...>
;; Version: 0.1ttn4
@@ -368,9 +368,11 @@
(plist-put (cddr fsm) :deferred
(cons (list event callback) deferred))))
((null result)
- (fsm-debug-output "Warning: event %S ignored in state %s" event state))
+ (fsm-debug-output "Warning: event %S ignored in state %s/%s" event fsm-name state))
((eq (car-safe result) :error-signaled)
- (fsm-debug-output "Error: %s" (error-message-string (cdr result))))
+ (fsm-debug-output "Error in %s/%s: %s"
+ fsm-name state
+ (error-message-string (cdr result))))
(t
(destructuring-bind (new-state new-state-data &optional timeout) result
(fsm-update fsm new-state new-state-data timeout))))))))
|
