From 40ceb878ed4b4ca67d5759da5cdc3f2f90d76186 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 4 Oct 2004 14:32:12 +0000 Subject: [PATCH] (elmo-concat-path): Treat empty path. --- elmo/elmo-util.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index 81e11d4..b88573e 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -398,9 +398,12 @@ Return value is a cons cell of (STRUCTURE . REST)" (defun elmo-concat-path (path filename) (if (not (string= path "")) - (if (string= elmo-path-sep (substring path (- (length path) 1))) - (concat path filename) - (concat path elmo-path-sep filename)) + (elmo-replace-in-string + (if (string= elmo-path-sep (substring path (- (length path) 1))) + (concat path filename) + (concat path elmo-path-sep filename)) + (concat (regexp-quote elmo-path-sep)(regexp-quote elmo-path-sep)) + elmo-path-sep) filename)) (defvar elmo-passwd-alist nil) -- 1.7.10.4