* 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 (file)
--- 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 (file)
--- 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>