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

[Robert Pluim]

>>>>> 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
--