From: yamaoka Date: Thu, 2 Sep 1999 01:01:14 +0000 (+0000) Subject: (convert-standard-filename): Rearrange. X-Git-Tag: apel-9_22~18 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7d25d0e2be4cfba429dbf5f1226e8e27ea203a72;p=elisp%2Fapel.git (convert-standard-filename): Rearrange. --- diff --git a/poe.el b/poe.el index a114a76..8da7c67 100644 --- a/poe.el +++ b/poe.el @@ -384,12 +384,11 @@ Under `windows-nt' or `ms-dos', it refers `filename-replacement-alist' and (filter (function (lambda (string) (filename-maybe-truncate-by-size (filename-special-filter string)))))) - (concat (if (and (string-match "^[^/]:$" drive-name) - (>= (length names) 2)) - drive-name - (funcall filter drive-name)) - "/" - (mapconcat filter (cdr names) "/")))) + (cond ((eq 1 (length names)) + (funcall filter drive-name)) + ((string-match "^[^/]:$" drive-name) + (concat drive-name "/" (mapconcat filter (cdr names) "/"))) + (t (mapconcat filter names "/"))))) (t filename))