From: yoichi Date: Thu, 6 Jun 2002 05:44:39 +0000 (+0000) Subject: 2002-06-06 KAMO Tomoyuki X-Git-Tag: elmo-mark-root~90 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e68fd9084cb93ed29625ed700a1a77cd86ecc335;p=elisp%2Fwanderlust.git 2002-06-06 KAMO Tomoyuki * 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 + + * 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)