procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correct last change

Browse source 
* lisp/term.el (term-generate-db-directory): Don't delete
DST-DIRECTORY if not yet existent.
This commit is contained in:
Po Lu 2024-06-14 16:42:32 +08:00
parent f66341a13b
commit 11b145ac07
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/term.el
View file

@ -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))))