riece-after-close-hook.
* riece-log.el (riece-log-insert): Bind file-name-coding-system
and default-file-name-coding-system to nil.
+2005-02-02 Daiki Ueno <ueno@unixuser.org>
+
+ * riece-server.el (riece-close-server-process): Run
+ riece-after-close-hook.
+
+ * riece-log.el (riece-log-insert): Bind file-name-coding-system
+ and default-file-name-coding-system to nil.
+
2005-02-01 OHASHI Akira <bg66@koka-in.org>
* riece-eval.el: New add-on.
2005-02-01 OHASHI Akira <bg66@koka-in.org>
* riece-eval.el: New add-on.
"Insert logs for IDENTITY at most LINES.
If LINES is t, insert today's logs entirely."
(if (eq lines t)
"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)))
(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)
(while (and (< lines 0) files)
(if (and (file-exists-p (car files))
(string-match (concat (riece-make-interval-regexp "[0-9]" 8)
(erase-buffer)))
(defun riece-close-server-process (process)
(erase-buffer)))
(defun riece-close-server-process (process)
+ (run-hooks 'riece-after-close-hook)
(kill-buffer (process-buffer process))
(setq riece-server-process-alist
(delq (rassq process riece-server-process-alist)
(kill-buffer (process-buffer process))
(setq riece-server-process-alist
(delq (rassq process riece-server-process-alist)