emacs-jabber fsm.el,2.3,2.4

[Magnus H. <leg...@us...>]

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))))))))