X-Git-Url: http://cgit.sxemacs.org/?p=sxemacs;a=blobdiff_plain;f=lisp%2Ffiles.el;h=3a3028ee2235287adec3e17baadc3bacaa4b9a08;hp=51a6d6e5cfe1f90b01e49fed2843dc70a10aa107;hb=67b63594e02e901e28f0730259297acc629dcbe0;hpb=56c8b099ccef8240d76c6f88c3f31d86ae22cfba

diff --git a/lisp/files.el b/lisp/files.el
index 51a6d6e..3a3028e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -456,6 +456,30 @@ of the same functionality is available as `split-path', which see."
 	(t
 	 (setq default-directory dir))))
 
+(defun file-name-join (dirname basename)
+  "Return the filename defined by the concatenation of DIRNAME and BASENAME.
+Only one path component separator will ever be used in the result formation.
+
+Can be use to reassemble a file name separated by `file-name-directory'
+`file-name-nondirectory' and `file-dirname' `file-basename'."
+  (when (and (or (null dirname)  (equal 0 (length dirname)))
+	     (or (null basename) (equal 0 (length basename))))
+    (error "Both dirname (%S) and basename (%S) empty." dirname basename))
+  (let* ((dir  (if (and dirname (> (length dirname) 0))
+		   (if (equal "/" (substring dirname -1))
+		       (substring dirname 0 -1)
+		     dirname)
+		 "."))
+	 (base (if (and basename (> (length basename) 0))
+		   (if (equal "/" (substring basename 0 1))
+		       (substring basename 1)
+		     basename)
+		 (if (equal dir ".") "." ""))))
+    (if (and (equal 0 (length base))
+	     (> (length dir) 0))
+	(concat dir)
+      (concat dir "/" base))))
+
 (defun cd (dir)
   "Make DIR become the current buffer's default directory.
 If your environment includes a `CDPATH' variable, try each one of that