From: bg66 <bg66>
Date: Fri, 22 Dec 2006 03:06:40 +0000 (+0000)
Subject: * mixi.el (mixi-realization-error): Use buffer variable only when it
X-Git-Tag: mixi-el-1_0_0~148
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3db193f1c7c860f3bf29e7b27dd1c2e3d1bc6913;p=elisp%2Fmixi.git

* mixi.el (mixi-realization-error): Use buffer variable only when it
is bound and debug-on-error is t.
---

diff --git a/ChangeLog b/ChangeLog
index daf4d76..a8596df 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2006-12-22  OHASHI Akira  <bg66@koka-in.org>
 
+	* mixi.el (mixi-realization-error): Use buffer variable only when it
+	is bound and debug-on-error is t.
+
+2006-12-22  OHASHI Akira  <bg66@koka-in.org>
+
 	* mixi.el (mixi-realization-error): New error symbol.
 	(mixi-realization-error): New macro.
 	(mixi-realize-friend): Use it.
diff --git a/mixi.el b/mixi.el
index 6c08005..52c21c0 100644
--- a/mixi.el
+++ b/mixi.el
@@ -212,7 +212,10 @@ Increase this value when unexpected error frequently occurs."
      'error-conditions '(mixi-realization-error error))
 
 (defmacro mixi-realization-error (type object)
-  `(signal 'mixi-realization-error (list ,type ,object buffer)))
+  `(let ((data (if (and (boundp 'buffer) debug-on-error)
+		   (list ,type ,object buffer)
+		 (list ,type ,object))))
+     (signal 'mixi-realization-error data)))
 
 (defconst mixi-message-adult-contents
   "¤³¤Î¥Ú¡¼¥¸¤«¤éÀè¤Ï¥¢¥À¥ë¥È¡ÊÀ®¿Í¸þ¤±¡Ë¥³¥ó¥Æ¥ó¥Ä¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£<br>