From: ueno <ueno>
Date: Fri, 4 Feb 2005 04:30:06 +0000 (+0000)
Subject: * riece-log.el (riece-log-enable): Add debug message.
X-Git-Tag: riece-1_0_7~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=63f394b3bf4fb22999e2ba2e889c6a88438eed91;p=elisp%2Friece.git

* riece-log.el (riece-log-enable): Add debug message.
---

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  <ueno@unixuser.org>
+
+	* riece-log.el (riece-log-enable): Add debug message.
+
 2005-02-04  OHASHI Akira  <bg66@koka-in.org>
 
 	* 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)