Failed to install auctex from within Emacs with straight.

[Hongyi Zhao]

I'm on Ubuntu 20.04.2 LTS, and use straight [1] as the Emacs package
manager. Now, I try to install auctex from within Emacs with straight,
but it always freezes at the configure stage.  I describe the detailed
test steps as follows.

Run the following script with:

$ bash ~/.emacs.d/init.straight.el

-------------------> ~/emacs.d/init.straight.el <--------------
#!/usr/bin/env bash
:; emacs -Q --load $(realpath -e $0) -- "$@"; exit

;;Bootstrap straight
(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))
(straight-use-package 'use-package)
(setq straight-use-package-by-default t)
----------------------- end here ------------------

Then in the *scratch* buffer, evaluate the following code snippet with
`C-x C-e':

;;;
(straight-bug-report
  :interactive t
  :user-dir "auctex.straight"
  :post-bootstrap
  (setq debug-on-quit t)
  (straight-use-package
   '(auctex :type git :host nil :repo
"https://git.savannah.gnu.org/git/auctex.git";
            :pre-build (("./autogen.sh")
                        ("./configure")
                        ("make")))))
;;;

The above code will be evaluated in a new created Emacs frame. After a
duration, it will freeze at the `./configure' stage forever. Then I
hit `C-g' and will see the following info in *Backtrace* buffer:

########
Debugger entered--Lisp error: (quit)
  call-process("/tmp/auctex.straight/straight/repos/auctex/configu..."
nil (#<buffer  *temp*> "/tmp/straight-stderr-35112") nil)
  apply(call-process
"/tmp/auctex.straight/straight/repos/auctex/configu..." nil (#<buffer
*temp*> "/tmp/straight-stderr-35112") nil nil)
  straight--process-call("./configure")
  apply(straight--process-call "./configure" nil)
  straight--process-run("./configure")
  apply(straight--process-run "./configure" nil)
  straight--process-run-p("./configure")
  apply(straight--process-run-p "./configure")
  straight--run-build-commands((:type git :host nil :repo
"https://git.savannah.gnu.org/git/auctex.git"; :pre-build
(("./autogen.sh") ("./configure") ("make")) :files ("*" (:exclude
".git")) :package "auctex" :local-repo "auctex"))
  straight--build-package((:type git :host nil :repo
"https://git.savannah.gnu.org/git/auctex.git"; :pre-build
(("./autogen.sh") ("./configure") ("make")) :files ("*" (:exclude
".git")) :package "auctex" :local-repo "auctex") nil)
  #f(compiled-function () #<bytecode -0x95c636233093edb>)()
  
straight--transaction-exec(use-package-\"e5c8f5d7a967e1000c007e2ce5b8fb99\"-nil-nil
:now #f(compiled-function () #<bytecode -0x95c636233093edb>))
  straight-use-package((auctex :type git :host nil :repo
"https://git.savannah.gnu.org/git/auctex.git"; :pre-build
(("./autogen.sh") ("./configure") ("make")) :files ("*" (:exclude
".git"))))
  (progn (setq debug-on-quit t) (straight-use-package '(auctex :type
git :host nil :repo "https://git.savannah.gnu.org/git/auctex.git";
:pre-build (("./autogen.sh") ("./configure") ("make")) :files ("*"
(:exclude ".git")))))
  (unwind-protect (progn (setq debug-on-quit t) (straight-use-package
'(auctex :type git :host nil :repo
"https://git.savannah.gnu.org/git/auctex.git"; :pre-build
(("./autogen.sh") ("./configure") ("make")) :files ("*" (:exclude
".git"))))) (message "Packages:\n%s\n"
(straight-bug-report--format-package-info
(straight-bug-report-package-info))))
  (let ((straight-bug-report-args '(:post-bootstrap (progn (setq
debug-on-quit t) (straight-use-package '...)) :user-dir
"/tmp/auctex.straight" :interactive t :executable
"/usr/local/bin/emacs"))) (setq user-emacs-directory
"/tmp/auctex.straight") (setq straight-repository-branch "develop")
(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 (concat
"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)) (condition-case nil (message "Test run with version:
%s" (straight-version)) (error nil)) (unwind-protect (progn (setq
debug-on-quit t) (straight-use-package '(auctex :type git :host nil
:repo "https://git.savannah.gnu.org/git/auctex.git"; :pre-build
(("./autogen.sh") ("./configure") ("make")) :files ("*" (:exclude
".git"))))) (message "Packages:\n%s\n"
(straight-bug-report--format-package-info
(straight-bug-report-package-info)))))
  (condition-case err (let ((straight-bug-report-args
'(:post-bootstrap (progn (setq debug-on-quit t) (straight-use-package
...)) :user-dir "/tmp/auctex.straight" :interactive t :executable
"/usr/local/bin/emacs"))) (setq user-emacs-directory
"/tmp/auctex.straight") (setq straight-repository-branch "develop")
(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 (concat
"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)) (condition-case nil (message "Test run with version:
%s" (straight-version)) (error nil)) (unwind-protect (progn (setq
debug-on-quit t) (straight-use-package '(auctex :type git :host nil
:repo "https://git.savannah.gnu.org/git/auctex.git"; :pre-build (...
... ...) :files ("*" ...)))) (message "Packages:\n%s\n"
(straight-bug-report--format-package-info
(straight-bug-report-package-info))))) ((debug error) (message "Error:
%S" err) nil))
  (condition-case-unless-debug err (let ((straight-bug-report-args
'(:post-bootstrap (progn (setq debug-on-quit t) (straight-use-package
...)) :user-dir "/tmp/auctex.straight" :interactive t :executable
"/usr/local/bin/emacs"))) (setq user-emacs-directory
"/tmp/auctex.straight") (setq straight-repository-branch "develop")
(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 (concat
"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)) (condition-case nil (message "Test run with version:
%s" (straight-version)) (error nil)) (unwind-protect (progn (setq
debug-on-quit t) (straight-use-package '(auctex :type git :host nil
:repo "https://git.savannah.gnu.org/git/auctex.git"; :pre-build (...
... ...) :files ("*" ...)))) (message "Packages:\n%s\n"
(straight-bug-report--format-package-info
(straight-bug-report-package-info))))) (error (message "Error: %S"
err) nil))
  (with-demoted-errors "Error: %S" (let ((straight-bug-report-args
'(:post-bootstrap (progn (setq debug-on-quit t) (straight-use-package
...)) :user-dir "/tmp/auctex.straight" :interactive t :executable
"/usr/local/bin/emacs"))) (setq user-emacs-directory
"/tmp/auctex.straight") (setq straight-repository-branch "develop")
(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 (concat
"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)) (condition-case nil (message "Test run with version:
%s" (straight-version)) (error nil)) (unwind-protect (progn (setq
debug-on-quit t) (straight-use-package '(auctex :type git :host nil
:repo "https://git.savannah.gnu.org/git/auctex.git"; :pre-build (...
... ...) :files ("*" ...)))) (message "Packages:\n%s\n"
(straight-bug-report--format-package-info
(straight-bug-report-package-info))))))
  eval((with-demoted-errors "Error: %S" (let
((straight-bug-report-args '(:post-bootstrap (progn ... ...) :user-dir
"/tmp/auctex.straight" :interactive t :executable
"/usr/local/bin/emacs"))) (setq user-emacs-directory
"/tmp/auctex.straight") (setq straight-repository-branch "develop")
(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 (concat
"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)) (condition-case nil (message "Test run with version:
%s" (straight-version)) (error nil)) (unwind-protect (progn (setq
debug-on-quit t) (straight-use-package '(auctex :type git :host nil
:repo "https://git.savannah.gnu.org/git/auctex.git"; :pre-build ...
:files ...))) (message "Packages:\n%s\n"
(straight-bug-report--format-package-info
(straight-bug-report-package-info)))))) t)
  command-line-1(("--eval" "(with-demoted-errors \"Error: %S\"\n
(let\n      ((st..."))
  command-line()
  normal-top-level()
########

The Emacs version info given by `M-x emacs-version RET' is as follows:

GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.20,
cairo version 1.16.0) of 2021-08-15

I've discussed the problem here [2] but still can't solve it.

[1] https://github.com/raxod502/straight.el
[2] https://github.com/raxod502/straight.el/issues/836

Any hints will be highly appreciated.

-- 
Assoc. Prof. Hongyi Zhao <hongyi.zhao@gmail.com>
Theory and Simulation of Materials
Hebei Vocational University of Technology and Engineering
No. 473, Quannan West Street, Xindu District, Xingtai, Hebei province