: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
(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)
- (condition-case nil
- (delete-directory riece-log-lock-directory)
- (error))
(setq riece-log-enabled nil))
(provide 'riece-log)