From 882acdc3888c53dea8bb0bd961b00d763f1eeced Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Wed, 2 Feb 2005 02:24:47 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 8 ++++++++ lisp/riece-log.el | 12 ++++++++---- lisp/riece-server.el | 1 + 3 files changed, 17 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc806e1..a9f70b8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2005-02-02 Daiki Ueno + + * 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 * riece-eval.el: New add-on. diff --git a/lisp/riece-log.el b/lisp/riece-log.el index d57a9dc..c768464 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -171,12 +171,16 @@ If integer, flash back only this line numbers. t means all lines." "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) diff --git a/lisp/riece-server.el b/lisp/riece-server.el index 04ab199..34c6e3d 100644 --- a/lisp/riece-server.el +++ b/lisp/riece-server.el @@ -266,6 +266,7 @@ the `riece-server-keyword-map' variable." (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) -- 2.25.1