Open
Description
Describe the bug
When using emacs 30 (Fedora Rawhide) we get multiple errors when compiling the emacs lisp files:
Dependency tokens must begin with alpha-numeric, '_' or '/': ("Opening input file" "No such file or directory" "/builddir/build/BUILD/erlang-26.2.5.13-build/BUILDROOT/usr/share/emacs/site-lisp/erlang/erlang-flymake.el")
Unknown rich dependency op '(insert-file-contents': (progn (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n")))))
Unknown rich dependency op '(progn': (unwind-protect (progn (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n"))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
Unknown rich dependency op '(set-buffer': (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n"))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
Unknown rich dependency op 'temp-buffer': (with-current-buffer temp-buffer (unwind-protect (progn (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n"))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
Unknown rich dependency op '((temp-buffer': (let ((temp-buffer (generate-new-buffer " *temp*" t))) (with-current-buffer temp-buffer (unwind-protect (progn (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n"))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
Unknown rich dependency op '(insert-file-contents': (with-temp-buffer (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n")))))
Unknown rich dependency op '(with-temp-buffer': (progn (with-temp-buffer (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n"))))))
Unknown rich dependency op '(string-match-p': (if (string-match-p (rx ".el" (optional ".gz") line-end) filename) (progn (with-temp-buffer (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n")))))))
Unknown rich dependency op '(string-match-p': (when (string-match-p (rx ".el" (optional ".gz") line-end) filename) (with-temp-buffer (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n"))))))
Unknown rich dependency op '(setq': (while (setq filename (read-from-minibuffer "")) (when (string-match-p (rx ".el" (optional ".gz") line-end) filename) (with-temp-buffer (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n")))))))
Unknown rich dependency op 'nil': (condition-case nil (while (setq filename (read-from-minibuffer "")) (when (string-match-p (rx ".el" (optional ".gz") line-end) filename) (with-temp-buffer (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n"))))))) (end-of-file nil))
Unknown rich dependency op '(setq': (while (setq filename (read-from-minibuffer "")) (when (string-match-p (rx ".el" (optional ".gz") line-end) filename) (with-temp-buffer (insert-file-contents filename) (setq parsers nil) (while (search-forward-regexp (rx "(" (or "treesit-ensure-installed" "treesit-parser-create" "treesit-ready-p") " '") nil t) (add-to-list 'parsers (thing-at-point 'symbol t))) (when parsers (princ (concat ";" filename "\n")) (dolist (parser parsers) (princ (concat "tree-sitter(" parser ")" "\n"))))))) (end-of-file nil)) t)
Dependency tokens must begin with alpha-numeric, '_' or '/': #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_102>(#<buffer *load*> "/usr/lib/rpm/emacs_lisp.rec")
Dependency tokens must begin with alpha-numeric, '_' or '/': "/usr/lib/rpm/emacs_lisp.rec" nil t #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_102>)
Dependency tokens must begin with alpha-numeric, '_' or '/': "/usr/lib/rpm/emacs_lisp.rec"))
To Reproduce
Build OTP emacs lisp files (under lib/tools/emacs) using emacs 30.
Expected behavior
No crash.
Affected versions
Erlang 26.2.5.13
I also tried adding this upstream commit: f572e78 but it did not make any difference.
Additional context
Downstream bug report: https://bugzilla.redhat.com/show_bug.cgi?id=2373700