From 577f44fd46cf9a42d6a71acc0a7c2a064eab07ae Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 8 Dec 2004 09:26:49 +0000 Subject: [PATCH] * riece-log.el (riece-log-get-directory): Fixed bug in riece-log-directory-map handling. --- lisp/ChangeLog | 3 +++ lisp/riece-log.el | 5 ++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7aa055e..c46faae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2004-12-08 Daiki Ueno + * riece-log.el (riece-log-get-directory): Fixed bug in + riece-log-directory-map handling. + * test/test-riece-log.el (test-riece-log-display-message-function): New test case. diff --git a/lisp/riece-log.el b/lisp/riece-log.el index 3289a07..6d882fb 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -125,10 +125,9 @@ If integer, flash back only this line numbers. t means all lines." (let ((prefix (riece-identity-canonicalize-prefix (riece-identity-prefix identity))) (server (riece-identity-server identity)) - (map (assoc (riece-format-identity identity) riece-log-directory-map)) - name) + (map (assoc (riece-format-identity identity) riece-log-directory-map))) (if map - (setq name (cdr map)) + (expand-file-name (cdr map) riece-log-directory) (expand-file-name (riece-log-encode-file-name prefix) (expand-file-name (concat "." (riece-log-encode-file-name server)) -- 1.7.10.4