From 63f394b3bf4fb22999e2ba2e889c6a88438eed91 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 4 Feb 2005 04:30:06 +0000 Subject: [PATCH] * riece-log.el (riece-log-enable): Add debug message. --- lisp/ChangeLog | 4 ++++ lisp/riece-log.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ba1b81d..d6ba125 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-02-04 Daiki Ueno + + * riece-log.el (riece-log-enable): Add debug message. + 2005-02-04 OHASHI Akira * riece-biff.el (riece-biff-functions): Abolish. diff --git a/lisp/riece-log.el b/lisp/riece-log.el index ee3aef8..ade7e6e 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -275,7 +275,9 @@ If LINES is t, insert today's logs entirely." (delete-directory riece-log-lock-directory) (error)))) (setq riece-log-enabled t)) - (error))) + (error + (if riece-debug + (message "Can't create lock directory for riece-log"))))) (defun riece-log-disable () (define-key riece-command-mode-map "\C-cd" nil) -- 1.7.10.4