From 7d25d0e2be4cfba429dbf5f1226e8e27ea203a72 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 2 Sep 1999 01:01:14 +0000 Subject: [PATCH] (convert-standard-filename): Rearrange. --- poe.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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)) -- 1.7.10.4