From c670f47ef55b41265c064a2d4ab1e56c46e57272 Mon Sep 17 00:00:00 2001 From: Joseph Turner Date: Sat, 6 May 2023 14:49:43 -0700 Subject: [PATCH] Fix: (package-vc--build-documentation) Relative @include statements --- lisp/emacs-lisp/package-vc.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 95e12fc829a..efcfd635e98 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -377,14 +377,18 @@ Package specs are loaded from trusted package archives." 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)) + (file-name (expand-file-name file (package-desc-dir pkg-desc))) + ;; `let'-bind `default-directory' to the directory containing + ;; the .org or .info FILE so that makeinfo can resolve + ;; relative @include statements in the docs directory. + (default-directory (file-name-directory file-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) + (insert-file-contents file-name) (setq file (make-temp-file "ox-texinfo-")) (org-export-to-file 'texinfo file) (setq clean-up t))) -- 2.39.2