Update of /cvsroot/emacs-jabber/emacs-jabber/tests
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv14501/tests
Modified Files:
nick-change-fail.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-539
Creator: Magnus Henoch <ma...@fr...>
Avoid errors in nick-change-fail error reporting
Index: nick-change-fail.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/tests/nick-change-fail.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- nick-change-fail.el 17 Jun 2008 14:49:52 -0000 1.2
+++ nick-change-fail.el 17 Jun 2008 14:50:42 -0000 1.3
@@ -80,7 +80,10 @@
(princ "Conversation was:\n")
(with-current-buffer "*-ja...@mo...-*"
(princ (buffer-string)))
- (princ "Contents of groupchat buffer:\n")
- (with-current-buffer (jabber-muc-get-buffer ncf-room-name)
- (princ (buffer-string)))
+ (let ((muc-buffer (get-buffer (jabber-muc-get-buffer ncf-room-name))))
+ (if muc-buffer
+ (with-current-buffer muc-buffer
+ (princ "Contents of groupchat buffer:\n")
+ (princ (buffer-string)))
+ (princ "Groupchat buffer not created.\n")))
(kill-emacs 1))
|
