Re: master 5a125fb5a97 1/2: Update to Org 9.7.3

[Robert Pluim <rpluim@gmail.com>]

>>>>> On Tue, 11 Jun 2024 15:23:29 +0300, Eli Zaretskii <eliz@gnu.org> said:
    >> > Why does it want to read a file from my home directory as part of
    >> > building Emacs?  That shouldn't happen.
    >> 
    >> Agree. But I am unable to reproduce.
    >> Could you please provide more information?

Removing "~/.emacs.d/.org-id-locations" is enough for me:

-- >8 --
make[3]: Leaving directory '/home/rpluim/repos/emacs/lisp'
  backtrace()
  (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read (current-buffer))) (let ((loc (file-name-directory org-id-locations-file))) (mapc #'(lambda (item) (if (file-name-absolute-p ...) nil (let* ... ...))) org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))
  (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read (current-buffer))) (let ((loc (file-name-directory org-id-locations-file))) (mapc #'(lambda (item) (if ... nil ...)) org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file))))
  (unwind-protect (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read (current-buffer))) (let ((loc (file-name-directory org-id-locations-file))) (mapc #'(lambda ... ...) org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read (current-buffer))) (let ((loc ...)) (mapc #'... org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations (read ...)) (let (...) (mapc ... org-id-locations))) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case nil (progn (insert-file-contents org-id-locations-file) (setq org-id-locations ...) (let ... ...)) (error (backtrace) (message "Could not read `org-id-locations' from %s, setting it to nil" org-id-locations-file)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (setq org-id-files (mapcar 'car org-id-locations)) (setq org-id-locations (org-id-alist-to-hash org-id-locations)))
  (if org-id-track-globally (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (condition-case nil (progn ... ... ...) (error ... ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (setq org-id-files (mapcar 'car org-id-locations)) (setq org-id-locations (org-id-alist-to-hash org-id-locations))))
  org-id-locations-load()
  (if org-id-locations nil (org-id-locations-load))
  org-id-find-id-file("org-manual-get-export-props-customizations")
  org-babel-ref-goto-headline-id("org-manual-get-export-props-customizations")
  #f(compiled-function (m) #<bytecode 0x1fdced484b7d4e9a>)("<<org-manual-get-export-props-customizations>>")
  replace-regexp-in-string("\\(.*?\\)\\(<<\\([^ \11\n]\\(?:.*?[^ \11\n]\\)?\\)>>\\)" #f(compiled-function (m) #<bytecode 0x1fdced484b7d4e9a>) "(require 'ox)\n(let ((alist org-export-options-alist))\n<<org-manual-get-export-props-customizations>>\n)" t t 2)
  org-babel-expand-noweb-references(("emacs-lisp" "(require 'ox)\n(let ((alist org-export-options-alist))\n<<org-manual-get-export-props-customizations>>\n)" ((:cache . "no") (:colname-names) (:eval . "yes") (:exports . "results") (:hlines . "no") (:lexical . "no") (:noweb . "yes") (:result-params "replace" "table") (:result-type . value) (:results . "replace table") (:rowname-names) (:session . "none") (:tangle . "no")) "" nil 643527 "(ref:%s)"))
  org-babel-sha1-hash(("emacs-lisp" "(require 'ox)\n(let ((alist org-export-options-alist))\n<<org-manual-get-export-props-customizations>>\n)" ((:cache . "no") (:colname-names) (:eval . "yes") (:exports . "results") (:hlines . "no") (:lexical . "no") (:noweb . "yes") (:result-params "replace" "table") (:result-type . value) (:results . "replace table") (:rowname-names) (:session . "none") (:tangle . "no")) "" nil 643527 "(ref:%s)") :export)
  org-babel-exp-src-block((src-block (:standard-properties [643527 643527 nil nil 643718 2 nil nil element t (1293 . 654197) nil nil nil #<buffer  *temp*-415485> nil nil (section (:standard-properties [643488 643488 643488 643718 643718 0 nil section element t (1293 . 649597) 643488 643718 nil #<buffer  *temp*-415485> nil nil (headline ...)]))] :language "emacs-lisp" :switches nil :parameters ":exports results :results table :eval yes :noweb yes" :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value [org-element-deferred org-element--unescape-substring (76 179) nil])))
  org-babel-exp-process-buffer()
  org-export--annotate-info(#s(org-export-backend :name texinfo :parent nil :transcoders ((bold . org-texinfo-bold) (center-block . org-texinfo-center-block) (clock . org-texinfo-clock) (code . org-texinfo-code) (drawer . org-texinfo-drawer) (dynamic-block . org-texinfo-dynamic-block) (entity . org-texinfo-entity) (example-block . org-texinfo-example-block) (export-block . org-texinfo-export-block) (export-snippet . org-texinfo-export-snippet) (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) (headline . org-texinfo-headline) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) (item . org-texinfo-item) (keyword . org-texinfo-keyword) (latex-environment . org-texinfo-latex-environment) (latex-fragment . org-texinfo-latex-fragment) (line-break . org-texinfo-line-break) (link . org-texinfo-link) (node-property . org-texinfo-node-property) (paragraph . org-texinfo-paragraph) (plain-list . org-texinfo-plain-list) ...) :options ((:texinfo-filename "TEXINFO_FILENAME" nil nil t) (:texinfo-class "TEXINFO_CLASS" nil org-texinfo-default-class t) (:texinfo-header "TEXINFO_HEADER" nil nil newline) (:texinfo-post-header "TEXINFO_POST_HEADER" nil nil newline) (:subtitle "SUBTITLE" nil nil parse) (:subauthor "SUBAUTHOR" nil nil newline) (:texinfo-dircat "TEXINFO_DIR_CATEGORY" nil nil t) (:texinfo-dirtitle "TEXINFO_DIR_TITLE" nil nil t) (:texinfo-dirname "TEXINFO_DIR_NAME" nil nil t) (:texinfo-dirdesc "TEXINFO_DIR_DESC" nil nil t) (:texinfo-printed-title "TEXINFO_PRINTED_TITLE" nil nil t) (:texinfo-classes nil nil org-texinfo-classes) (:texinfo-format-headline-function nil nil org-texinfo-format-headline-function) (:texinfo-node-description-column nil nil org-texinfo-node-description-column) (:texinfo-active-timestamp-format nil nil org-texinfo-active-timestamp-format) (:texinfo-inactive-timestamp-format nil nil org-texinfo-inactive-timestamp-format) (:texinfo-diary-timestamp-format nil nil org-texinfo-diary-timestamp-format) (:texinfo-link-with-unknown-path-format nil nil org-texinfo-link-with-unknown-path-format) (:texinfo-tables-verbatim nil nil org-texinfo-tables-verbatim) (:texinfo-table-scientific-notation nil nil org-texinfo-table-scientific-notation) (:texinfo-table-default-markup nil nil org-texinfo-table-default-markup) (:texinfo-text-markup-alist nil nil org-texinfo-text-markup-alist) (:texinfo-format-drawer-function nil nil org-texinfo-format-drawer-function) (:texinfo-format-inlinetask-function nil nil org-texinfo-format-inlinetask-function) (:texinfo-compact-itemx nil "compact-itemx" org-texinfo-compact-itemx) (:with-latex nil "tex" org-texinfo-with-latex)) :filters ((:filter-headline . org-texinfo--filter-section-blank-lines) (:filter-parse-tree org-texinfo--normalize-headlines org-texinfo--separate-definitions) (:filter-section . org-texinfo--filter-section-blank-lines) (:filter-final-output . org-texinfo--untabify)) :blocks nil :menu (105 "Export to Texinfo" (... ... ...))) (:export-options nil :back-end #s(org-export-backend :name texinfo :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ... ...) :blocks nil :menu (105 "Export to Texinfo" ...)) :translate-alist ((bold . org-texinfo-bold) (center-block . org-texinfo-center-block) (clock . org-texinfo-clock) (code . org-texinfo-code) (drawer . org-texinfo-drawer) (dynamic-block . org-texinfo-dynamic-block) (entity . org-texinfo-entity) (example-block . org-texinfo-example-block) (export-block . org-texinfo-export-block) (export-snippet . org-texinfo-export-snippet) (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) (headline . org-texinfo-headline) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) (item . org-texinfo-item) (keyword . org-texinfo-keyword) (latex-environment . org-texinfo-latex-environment) (latex-fragment . org-texinfo-latex-fragment) (line-break . org-texinfo-line-break) (link . org-texinfo-link) (node-property . org-texinfo-node-property) (paragraph . org-texinfo-paragraph) (plain-list . org-texinfo-plain-list) ...) :exported-data #<hash-table eq 0/4001 0x10ecae617972 ...> :input-buffer " *temp*" :input-file nil) nil nil (:output-file "org.texi"))
  org-export-as(texinfo nil nil nil (:output-file "org.texi"))
  org-export-to-file(texinfo "org.texi")
  org-texinfo-export-to-texinfo-batch()
  command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "ox-texinfo" "--eval" "(setq gc-cons-threshold 50000000)" "--eval" "(setq org-confirm-babel-evaluate nil)" "-f" "org-texinfo-export-to-texinfo-batch" "org.org" "org.texi"))
  command-line()
  normal-top-level()

Could not read ‘org-id-locations’ from ~/.emacs.d/.org-id-locations, setting it to nil
-- >8 --

Robert
--