emacs-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]