Question

我将显式文件设置为通过UI创建的自定义。它的名字是custom.el。目前，我使用以下代码段创建此文件（如果不存在）。

(defconst custom-file (expand-file-name "custom.el" user-emacs-directory))
(unless (file-exists-p custom-file)
  (shell-command (concat "touch " custom-file)))

有一个丑陋的shell命令touch，其他任何elisp函数都可以这样做吗？

Answer 1

您可以使用(write-region "" nil custom-file)，不确定这是否是理想的解决方案。

Answer 2

我在下面的帖子中根据Joao Tavara anwser编写了此函数：How do I create an empty file in emacs?

(defun fzl-create-empty-file-if-no-exists(filePath)
   "Create a file with FILEPATH parameter."
   (if (file-exists-p filePath)
       (message (concat  "File " (concat filePath " already exists")))
     (with-temp-buffer (write-file filePath))))

如何通过elisp创建一个空文件？

2 个答案: