[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/package-vc-fixes 1393e414f9 2/4: Remove temporary .texi files if
From: |
Philip Kaludercic |
Subject: |
scratch/package-vc-fixes 1393e414f9 2/4: Remove temporary .texi files if used to build documentation |
Date: |
Tue, 15 Nov 2022 08:36:49 -0500 (EST) |
branch: scratch/package-vc-fixes
commit 1393e414f95a8c15a67ba2a5a7bca84b210e9509
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Remove temporary .texi files if used to build documentation
* lisp/emacs-lisp/package-vc.el (package-vc--build-documentation):
Remember if a temporary file was generated and delete it afterwards.
---
lisp/emacs-lisp/package-vc.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 3a856dc651..ea724dd9ff 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -356,14 +356,16 @@ FILE can be an Org file, indicated by its \".org\"
extension,
otherwise it's assumed to be an Info file."
(let* ((pkg-name (package-desc-name pkg-desc))
(default-directory (package-desc-dir pkg-desc))
- (output (expand-file-name (format "%s.info" pkg-name))))
+ (output (expand-file-name (format "%s.info" pkg-name)))
+ clean-up)
(when (string-match-p "\\.org\\'" file)
(require 'ox)
(require 'ox-texinfo)
(with-temp-buffer
(insert-file-contents file)
(setq file (make-temp-file "ox-texinfo-"))
- (org-export-to-file 'texinfo file)))
+ (org-export-to-file 'texinfo file)
+ (setq clean-up t)))
(with-current-buffer (get-buffer-create " *package-vc doc*")
(erase-buffer)
(cond
@@ -375,7 +377,9 @@ otherwise it's assumed to be an Info file."
output (expand-file-name "dir")))
(message "Failed to install manual %s, see buffer %S"
output (buffer-name)))
- ((kill-buffer))))))
+ ((kill-buffer))))
+ (when clean-up
+ (delete-file file))))
(defun package-vc--unpack-1 (pkg-desc pkg-dir)
"Prepare PKG-DESC that is already checked-out in PKG-DIR.