Author: deton.kih Date: Sun Nov 11 06:09:22 2007 New Revision: 5045
Modified: trunk/scm/tutcode.scm Log: * scm/tutcode.scm - (tutcode-flush): Fix not to set state on if current state is off. <http://arika.org/diary/20071021#p01> Modified: trunk/scm/tutcode.scm ============================================================================== --- trunk/scm/tutcode.scm (original) +++ trunk/scm/tutcode.scm Sun Nov 11 06:09:22 2007 @@ -262,7 +262,8 @@ ;;; @param pc ����ƥ����ȥꥹ�� (define (tutcode-flush pc) (rk-flush (tutcode-context-rk-context pc)) - (tutcode-context-set-state! pc 'tutcode-state-on) + (if (tutcode-context-on? pc) ; ���ջ��˸ƤФ줿���ϥ���ˤ��������� + (tutcode-context-set-state! pc 'tutcode-state-on)) ; �Ѵ����֤ꥢ���� (tutcode-context-set-head! pc ()) (tutcode-context-set-nr-candidates! pc 0))
