From 1cb979292e4b64192b4701eaab02cbbbf45b96bd Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Fri, 4 Feb 2005 03:40:22 +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 7d889fb..f16b284 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -46,7 +46,7 @@ :group 'riece-log) (defcustom riece-log-lock-directory - (expand-file-name ".lock" riece-log-directory) + (expand-file-name "=lock" riece-log-directory) "*Lock directory for riece-log. It is created if there is at least one instance of Emacs running riece-log." :type 'directory @@ -274,9 +274,10 @@ If LINES is t, insert today's logs entirely." (defun riece-log-disable () (define-key riece-command-mode-map "\C-cd" nil) - (condition-case nil - (delete-directory riece-log-lock-directory) - (error)) + (if riece-log-enabled + (condition-case nil + (delete-directory riece-log-lock-directory) + (error))) (setq riece-log-enabled nil)) (provide 'riece-log) -- 2.25.1