From: Po Lu Date: Fri, 14 Jun 2024 08:42:32 +0000 (+0800) Subject: Correct last change X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1039 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=11b145ac070217891b7ec939ce7821253887dac1;p=emacs.git Correct last change * lisp/term.el (term-generate-db-directory): Don't delete DST-DIRECTORY if not yet existent. --- 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))))