我通过连接部分路径和目录名称在 Elisp 中手动构建路径字符串。不幸的是，有时路径以斜线结尾，有时不是。因此，我需要在必要时在连接目录名称之前插入斜杠，否则不需要。有什么好方法可以做到这一点？
【问题讨论】：
(file-name-as-directory dir) 将返回目录路径 dir 并带有一个斜杠，如果需要，添加一个，否则不添加。
如果您在列表中有部分路径序列，您可以执行以下操作：
(let ((directory-list '("/foo" "bar/" "p/q/" "x/y"))
(file-name "some_file.el"))
(concat
(mapconcat 'file-name-as-directory directory-list "")
file-name))
"/foo/bar/p/q/x/y/some_file.el"
或者，如果你想在列表中包含文件名，你可以使用directory-file-name，它与file-name-as-directory相反：
(let ((path-list '("/foo" "bar/" "p/q/" "x/y/some_file.el")))
(mapconcat 'directory-file-name path-list "/"))
"/foo/bar/p/q/x/y/some_file.el"
（如果在非目录上使用directory-file-name 不可移植，请纠正我？）
【讨论】：
/ 开头的片段，例如"/p/q/"?
directory-sep-char 变量在 Emacs 24 中已完全删除，但自版本 21 以来已被弃用。假设将使用生成的路径是 Emacs，您应该在所有系统上使用 / - Emacs 确保它工作。
从可疑内容的部分组合文件名的最简单方法是使用扩展文件名。例如：
(expand-file-name "foo.txt")
这种常见的形式会给你一个基于默认目录的完整文件名：
/home/me/foo.txt
但如果你有一个变量 'dir' 的内容是 "/home/them/subdir" 并且想要使用它，请执行以下操作：
(expand-file-name "foo.txt" dir)
dir 是否以 / 结尾并不重要。如果您在其他平台上，并且包含另一个斜线，那么它也会做正确的事情。你有混音吗？把它们堆叠起来：
(expand-file-name "foo.txt" (expand-file-name "somesubdir" dir))
【讨论】：
这样的东西应该作为一个起点，虽然你想充实一点以使其独立于平台等。
(defun append-path-component (path new-part)
(if (string-match ".*/$" path)
(concat path new-part)
(concat path "/" new-part)))
像往常一样，可能有一些 elisp 已经做到了这一点，我只是不知道。
【讨论】：
directory-sep-char 早已过时，在 Emacs 24 中已完全删除。旧的文档字符串说“该值始终为 ?/。不要使用此变量，只需使用 @987654324 @。”
除非您真的很在意将相对文件名保持为相对，否则最好避免使用 concat 并改用 expand-file-name。
【讨论】：
(defun* tofilename (directorylist &optional (filename nil))
"concatenate directory names into a path, with an optional file name as last part"
(concat
(mapconcat 'directory-file-name directorylist "/")
"/"
filename))
(tofilename '("~/" "Temp/") "temp.txt")
;; => "~/Temp/temp.txt"
(tofilename '("~/" "Temp/"))
;; => "~/Temp/"
(tofilename '("~/" "Temp/" "test"))
;; => "~/Temp/temp/"
【讨论】：