From 9f4a433b27686aa22652fc6099814ed50f4d2cfd Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sun, 6 Nov 2022 21:53:32 +0100 Subject: [PATCH] Fix generation of documentation for source packages * lisp/emacs-lisp/package-vc.el (package-vc--build-documentation): Call "makeinfo" before "install-info" --- lisp/emacs-lisp/package-vc.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 44b310e76d6..b1da2c010f2 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -363,7 +363,11 @@ asynchronously." "Build documentation for package PKG-DESC from documentation source in FILE. FILE can be an Org file, indicated by its \".org\" extension, otherwise it's assumed to be an Info file." - (let ((pkg-dir (package-desc-dir pkg-desc))) + (let* ((pkg-name (package-desc-name pkg-desc)) + (pkg-dir (package-desc-dir pkg-desc)) + (output (file-name-concat + (format "%s.info" pkg-name) + pkg-dir))) (when (string-match-p "\\.org\\'" file) (require 'ox) (require 'ox-texinfo) @@ -371,8 +375,10 @@ otherwise it's assumed to be an Info file." (insert-file-contents file) (setq file (make-temp-file "ox-texinfo-")) (org-export-to-file 'texinfo file))) + (call-process "makeinfo" nil nil nil + "--no-split" file "-o" output) (call-process "install-info" nil nil nil - file pkg-dir))) + output pkg-dir))) (defun package-vc--unpack-1 (pkg-desc pkg-dir) "Prepare PKG-DESC that is already checked-out in PKG-DIR. -- 2.39.2