Don't create directory when directory exists

This commit is contained in:
Benson Chu 2024-12-27 13:49:01 -06:00
parent fe49eff907
commit d9b316db44

View file

@ -36,7 +36,8 @@
(setq fname (file-name-nondirectory (file-name-sans-extension file))
temporary-file-directory (expand-file-name "tmp" file-directory)))
(make-directory temporary-file-directory)
(when (not (file-exists-p temporary-file-directory))
(make-directory temporary-file-directory))
(make-temp-file (concat fname "-")
nil ext)))