:group 'riece-highlight-faces)
(defvar riece-log-date-face 'riece-log-date-face)
+(defvar riece-log-lock-file nil
+ "Lock file for riece-log.
+It is created if there is at least one instance of Emacs running riece-log.")
+
(defvar riece-log-enabled nil)
(defconst riece-log-description
(make-directory (file-name-directory file) t))
(write-region (concat (format-time-string "%H:%M") " "
(riece-format-message message))
- nil file t 0))))
+ nil file t 0
+ riece-log-lock-file))))
(defun riece-log-get-file (identity)
(expand-file-name
"Insert logs for IDENTITY at most LINES.
If LINES is t, insert today's logs entirely."
(if (eq lines t)
- (let ((file (riece-log-get-file identity)))
+ (let* (file-name-coding-system
+ default-file-name-coding-system
+ (file (riece-log-get-file identity)))
(if (file-exists-p file)
(insert-file-contents file)))
- (let ((files (riece-log-get-files identity))
- (lines (- lines))
- name date point)
+ (let* (file-name-coding-system
+ default-file-name-coding-system
+ (files (riece-log-get-files identity))
+ (lines (- lines))
+ name date point)
(while (and (< lines 0) files)
(if (and (file-exists-p (car files))
(string-match (concat (riece-make-interval-regexp "[0-9]" 8)
'(riece-button)))
(defun riece-log-insinuate ()
+ (make-directory riece-log-directory t)
+ (setq riece-log-lock-file
+ (expand-file-name (format "!%d-%d-%d"
+ (user-uid)
+ (riece-log-encode-file-name (system-name))
+ (emacs-pid))
+ riece-log-directory))
;; FIXME: Use `riece-after-insert-functions' for trapping change,
;; notice, wallops and so on. But must add argument.
(add-hook 'riece-after-display-message-functions