From: Po Lu <luangruo@yahoo.com>
Date: Fri, 14 Jun 2024 08:42:32 +0000 (+0800)
Subject: Correct last change
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c782519b229b6f9a464e2546af42f7b4ee454886;p=emacs.git

Correct last change

* lisp/term.el (term-generate-db-directory): Don't delete
DST-DIRECTORY if not yet existent.

(cherry picked from commit 11b145ac070217891b7ec939ce7821253887dac1)
---

diff --git a/lisp/term.el b/lisp/term.el
index 80be0237640..0cfff4ef981 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1728,10 +1728,11 @@ from the same directory to a temporary location, and return the latter."
         (when (file-newer-than-file-p src-directory dst-directory)
           (message "Generating Terminfo database...")
           (with-demoted-errors "Generating Terminfo database: %s"
-            ;; Arrange that the directory be writable.
-            (dolist (x (directory-files-recursively parent "" t t))
-              (set-file-modes x #o700))
-            (delete-directory dst-directory t)
+            (when (file-exists-p dst-directory)
+              ;; Arrange that the directory be writable.
+              (dolist (x (directory-files-recursively parent "" t t))
+                (set-file-modes x #o700))
+              (delete-directory dst-directory t))
             (copy-directory src-directory dst-directory nil t t)))
         parent))))