From e68fd9084cb93ed29625ed700a1a77cd86ecc335 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 6 Jun 2002 05:44:39 +0000 Subject: [PATCH 1/1] 2002-06-06 KAMO Tomoyuki * wl-util.el (wl-read-directory-name): Return displayed directory as the default value also on XEmacs. --- wl/ChangeLog | 5 +++++ wl/wl-util.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * wl-util.el (wl-read-directory-name): Return displayed directory + as the default value also on XEmacs. + 2002-05-30 Yuuichi Teranishi * 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) -- 1.7.10.4