bug#59507: 29.0.50; Autoloads generation hangs on Windows and Emacs 29

[Denys Mentiei via "Bug reports for GNU Emacs, the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 3256 bytes --]

> I may be missing something, but I fail to see the difference between a
> Windows file name starting with "C:/" and a Unix file name starting with
> "/", as far as that function is concerned.  Either they both work or they
> both fail in the same way, because (file-name-directory "/") returns "/".

Indeed! That is just the use case I describe further was caught on Windows.

> So do you have a real-life recipe where loaddefs-generate--file-load-name is
> called and infloops?  Can you show such a recipe, preferably in "emacs -Q"?

So, this happened for me when installing a package via Straight.el.
Under the hood it invokes autoloads generation, which can be seen in the
following backtrace:

  loaddefs-generate--file-load-name("c:/Users/d/AppData/Roaming/.emacs.d/straight/build/bind-key/bind-key.el" "d:/dotfiles/.emacs.d/straight/build/bind-key/bind-key-autoloads.el")
  autoload-file-load-name("c:/Users/d/AppData/Roaming/.emacs.d/straight/build/bind-key/bind-key.el" "d:/dotfiles/.emacs.d/straight/build/bind-key/bind-key-autoloads.el")
  autoload-generate-file-autoloads("c:/Users/d/AppData/Roaming/.emacs.d/straig..." nil "d:/dotfiles/.emacs.d/straight/build/bind-key/bind-...")
  make-directory-autoloads("c:/Users/d/AppData/Roaming/.emacs.d/straight/build/bind-key/" "c:/Users/d/AppData/Roaming/.emacs.d/straight/build/bind-key/bind-key-autoloads.el")
  straight--build-autoloads((:flavor melpa :files ("bind-key.el" "bind-key-pkg.el") :package "bind-key" :local-repo "use-package" :type git :repo "jwiegley/use-package" :host github))
  run-hook-with-args(straight--build-autoloads (:flavor melpa :files ("bind-key.el" "bind-key-pkg.el") :package "bind-key" :local-repo "use-package" :type git :repo "jwiegley/use-package" :host github))
  straight--build-package((:flavor melpa :files ("bind-key.el" "bind-key-pkg.el") :package "bind-key" :local-repo "use-package" :type git :repo "jwiegley/use-package" :host github) "Building use-package")
  #f(compiled-function () #<bytecode -0x1fce4a710bdd24dd>)()
  straight--transaction-exec(use-package-\"81e6ef700f88dfe7131843f7ca08439c\"-nil-nil :now #f(compiled-function () #<bytecode -0x1fce4a710bdd24dd>))
  straight-use-package(bind-key nil nil "Building use-package")

And then it hangs in the loop mentioned in my original message.

A recipe for “emacs -Q” might be this (not smallest thing so, but a real life one):

Paste this to the *scratch*:

(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 5))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
        "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
        'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp))
    (load bootstrap-file nil 'nomessage)))
(setq straight-vc-git-default-clone-depth '(1 single-branch))

aand M-x eval-buffer :) Warning: it will download the straight.el from its GitHub official repo.
Note, that I do this on Windows, so user-emacs-directory isn’t a "~/.emacs.d", but an absolute path,
starting from "c:/".

Hope this helps!

[-- Attachment #2: Type: text/html, Size: 6573 bytes --]