From: yoichi <yoichi>
Date: Thu, 6 Jun 2002 05:44:39 +0000 (+0000)
Subject: 2002-06-06  KAMO Tomoyuki  <kamo@i-manage.co.jp>
X-Git-Tag: elmo-mark-root~90
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e68fd9084cb93ed29625ed700a1a77cd86ecc335;p=elisp%2Fwanderlust.git

2002-06-06  KAMO Tomoyuki  <kamo@i-manage.co.jp>

	* wl-util.el (wl-read-directory-name): Return displayed directory
	as the default value also on XEmacs.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 53faf8f..c9ead08 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-06  KAMO Tomoyuki  <kamo@i-manage.co.jp>
+
+	* wl-util.el (wl-read-directory-name): Return displayed directory
+	as the default value also on XEmacs.
+
 2002-05-30  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-line-list-count): Use ".0f" for ml-count
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 22275d1..13576d4 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -580,7 +580,8 @@ that `read' can handle, whenever this is possible."
     result))
 
 (static-if (fboundp 'read-directory-name)
-    (defalias 'wl-read-directory-name 'read-directory-name)
+    (defun wl-read-directory-name (prompt dir)
+      (read-directory-name prompt dir dir))
   (defun wl-read-directory-name (prompt dir)
     (let ((dir (read-file-name prompt dir)))
       (unless (file-directory-p dir)