diff options
| author | Philip Kaludercic | 2022-11-06 21:53:32 +0100 |
|---|---|---|
| committer | Philip Kaludercic | 2022-11-17 20:37:28 +0100 |
| commit | 9f4a433b27686aa22652fc6099814ed50f4d2cfd (patch) | |
| tree | 999854d9ef9e5d63d6d672be66f5cfa19bc65495 | |
| parent | 13d051b4434e8931967a43a7e2b76a64cae81617 (diff) | |
| download | emacs-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.el | 10 |
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. |
| 364 | FILE can be an Org file, indicated by its \".org\" extension, | 364 | FILE can be an Org file, indicated by its \".org\" extension, |
| 365 | otherwise it's assumed to be an Info file." | 365 | otherwise 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. |