From 1578eb359abd6e734fc27d16fc0f4244f2d2b394 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 4 Feb 2005 03:42:14 +0000 Subject: [PATCH] Fixed. --- lisp/riece-log.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/riece-log.el b/lisp/riece-log.el index f16b284..ee3aef8 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -269,15 +269,16 @@ If LINES is t, insert today's logs entirely." (condition-case nil (progn (make-directory riece-log-lock-directory) + (add-hook 'riece-exit-hook + (lambda () + (condition-case nil + (delete-directory riece-log-lock-directory) + (error)))) (setq riece-log-enabled t)) (error))) (defun riece-log-disable () (define-key riece-command-mode-map "\C-cd" nil) - (if riece-log-enabled - (condition-case nil - (delete-directory riece-log-lock-directory) - (error))) (setq riece-log-enabled nil)) (provide 'riece-log) -- 1.7.10.4