aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPhilip Kaludercic2022-11-06 21:53:32 +0100
committerPhilip Kaludercic2022-11-17 20:37:28 +0100
commit9f4a433b27686aa22652fc6099814ed50f4d2cfd (patch)
tree999854d9ef9e5d63d6d672be66f5cfa19bc65495
parent13d051b4434e8931967a43a7e2b76a64cae81617 (diff)
downloademacs-9f4a433b27686aa22652fc6099814ed50f4d2cfd.tar.gz
emacs-9f4a433b27686aa22652fc6099814ed50f4d2cfd.zip
Fix generation of documentation for source packages
* lisp/emacs-lisp/package-vc.el (package-vc--build-documentation): Call "makeinfo" before "install-info"
-rw-r--r--lisp/emacs-lisp/package-vc.el10
1 files 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."
363 "Build documentation for package PKG-DESC from documentation source in FILE. 363 "Build documentation for package PKG-DESC from documentation source in FILE.
364FILE can be an Org file, indicated by its \".org\" extension, 364FILE can be an Org file, indicated by its \".org\" extension,
365otherwise it's assumed to be an Info file." 365otherwise it's assumed to be an Info file."
366 (let ((pkg-dir (package-desc-dir pkg-desc))) 366 (let* ((pkg-name (package-desc-name pkg-desc))
367 (pkg-dir (package-desc-dir pkg-desc))
368 (output (file-name-concat
369 (format "%s.info" pkg-name)
370 pkg-dir)))
367 (when (string-match-p "\\.org\\'" file) 371 (when (string-match-p "\\.org\\'" file)
368 (require 'ox) 372 (require 'ox)
369 (require 'ox-texinfo) 373 (require 'ox-texinfo)
@@ -371,8 +375,10 @@ otherwise it's assumed to be an Info file."
371 (insert-file-contents file) 375 (insert-file-contents file)
372 (setq file (make-temp-file "ox-texinfo-")) 376 (setq file (make-temp-file "ox-texinfo-"))
373 (org-export-to-file 'texinfo file))) 377 (org-export-to-file 'texinfo file)))
378 (call-process "makeinfo" nil nil nil
379 "--no-split" file "-o" output)
374 (call-process "install-info" nil nil nil 380 (call-process "install-info" nil nil nil
375 file pkg-dir))) 381 output pkg-dir)))
376 382
377(defun package-vc--unpack-1 (pkg-desc pkg-dir) 383(defun package-vc--unpack-1 (pkg-desc pkg-dir)
378 "Prepare PKG-DESC that is already checked-out in PKG-DIR. 384 "Prepare PKG-DESC that is already checked-out in PKG-DIR.