From 3db193f1c7c860f3bf29e7b27dd1c2e3d1bc6913 Mon Sep 17 00:00:00 2001 From: bg66 Date: Fri, 22 Dec 2006 03:06:40 +0000 Subject: [PATCH] * mixi.el (mixi-realization-error): Use buffer variable only when it is bound and debug-on-error is t. --- ChangeLog | 5 +++++ mixi.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index daf4d76..a8596df 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2006-12-22 OHASHI Akira + * mixi.el (mixi-realization-error): Use buffer variable only when it + is bound and debug-on-error is t. + +2006-12-22 OHASHI Akira + * 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 "¤³¤Î¥Ú¡¼¥¸¤«¤éÀè¤Ï¥¢¥À¥ë¥È¡ÊÀ®¿Í¸þ¤±¡Ë¥³¥ó¥Æ¥ó¥Ä¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£
-- 1.7.10.4