bug#53038: 28.0.50; problem building

[joakim]

Eli Zaretskii <eliz@gnu.org> writes:

>> From: joakim@verona.se
>> Cc: 53038@debbugs.gnu.org
>> Date: Fri, 07 Jan 2022 09:44:14 +0100
>> 
>> > When the build fails, does the file lisp/international/emoji.el exist?
>> 
>> It does exist, yes.
>
> So the problem seems to be with finding files via load-path.
>
> My suggestion is to run the failing command manually, and if it also
> fails, run it under a debugger to see why Emacs cannot find an
> existing Lisp file.

Thanks for the suggestion.

Is there some way to see what command the build tries to execte?

>From the build log I guess its somewhere in here?

make[2]: Entering directory '/mnt/fast/emacs2022/emacs/admin/unidata'
  GEN      ../../lisp/international/emoji-labels.el
Debugger entered--Lisp error: (file-missing "Cannot open load file" "No such 
file or directory" "emoji.el")
  load("emoji.el" nil t)
  (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 
command-line-args-left (setq command-line-args-left ...)))))) (file-ex 
(file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn 
(setq file file-ex))) (load file nil t))
  (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let 
((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr 
tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq 
inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq 
inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 
command-line-args-left (setq command-line-args-left ...)))))) (if (commandp 
tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) 
(setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 
command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr 
(car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" 
str-expr end) nil (error "Trailing garbage following expression: %s" (substring 
str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let 
(append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or 
argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem 
(expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq 
load-path (append load-path (list tem))) (if splice (setq splice load-path))) 
(splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t 
(setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" 
"-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe 
...)))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p 
file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi 
'("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval 
(car-safe ...)))) (file-ex (expand-file-name file)) (truename (file-truename 
file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (load 
file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) 
(setq tem (or argval (car-safe (prog1 command-line-args-left (setq 
command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) 
(error "File name omitted from `-insert' option")) (insert-file-contents 
(command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal 
argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq 
command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") 
(kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored 
because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq 
line (string-to-number argi))) ((string-match 
"^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number 
(match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq 
tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left 
(nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi 
command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) 
command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq 
inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 
command-line-args-left (setq command-line-args-left (cdr 
command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted 
from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match 
"\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization 
(format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files 
t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks 
(not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil 
(if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if 
initial-window-system nil (setq inhibit-startup-screen t)) (funcall 
process-file-arg orig-argi)))))
  (let* ((argi (car command-line-args-left)) (orig-argi argi) argval 
completion) (setq command-line-args-left (cdr command-line-args-left)) (if 
just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn 
(setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if 
(string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion 
argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if 
(stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil 
argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if 
argval (let ((command-line-args-left (cons argval command-line-args-left))) 
(funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") 
(setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq 
inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 
command-line-args-left ...))))) (if (commandp tem) (command-execute tem) 
(funcall tem))) ((member argi '("-eval" "-execute")) (setq 
inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) 
(read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr 
read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error 
"Trailing garbage following expression: %s" (substring str-expr end))) (eval 
expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p 
(format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem 
(substring tem 1) append t)) (setq tem (expand-file-name 
(command-line-normalize-file-name tem))) (cond (append (setq load-path (append 
load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice 
(cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem 
load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file 
(command-line-normalize-file-name (or argval ...))) (file-ex (file-truename 
(expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file 
file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file 
(command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name 
file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn 
(setq file-ex truename))) (load file-ex nil t t))) ((equal argi "-insert") 
(setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 
command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) 
(error "File name omitted from `-insert' option")) (insert-file-contents 
(command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal 
argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq 
command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") 
(kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored 
because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq 
line (string-to-number argi))) ((string-match 
"^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number 
(match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq 
tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left 
(nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi 
command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) 
command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq 
inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 
command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) 
nil (error "File name omitted from `%s' option" argi)) (funcall 
process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" 
argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" 
argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks 
command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook 
...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" 
argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq 
inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if 
(frame-live-p (selected-frame)) nil (kill-emacs nil)))
  (while command-line-args-left (let* ((argi (car command-line-args-left)) 
(orig-argi argi) argval completion) (setq command-line-args-left (cdr 
command-line-args-left)) (if just-files (setq argi "") (if (string-match 
"\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) 
argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn 
(setq completion (try-completion argi longopts)) (if (eq completion t) (setq 
argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq 
argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi 
command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall 
(cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq 
inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq 
inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if 
(commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" 
"-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) 
(read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr 
read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error 
"Trailing garbage following expression: %s" (substring str-expr end))) (eval 
expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p 
(format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) 
append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) 
(cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) 
(setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi 
'("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex 
(file-truename ...))) (if (file-regular-p file-ex) (progn (setq file file-ex))) 
(load file nil t))) ((member argi '("-scriptload")) (let* ((file 
(command-line-normalize-file-name ...)) (file-ex (expand-file-name file)) 
(truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq 
file-ex truename))) (load file-ex nil t t))) ((equal argi "-insert") (setq 
inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 
command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from 
`-insert' option")) (insert-file-contents (command-line-normalize-file-name 
tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval 
(car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) 
((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message 
"\"--no-desktop\" ignored because the Desktop package...")) ((string-match 
"^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match 
"^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number 
(match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq 
tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left 
(nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi 
command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) 
command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq 
inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 
command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted 
from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match 
"\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization 
(format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files 
t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks 
(not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" 
argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq 
inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if 
(frame-live-p (selected-frame)) nil (kill-emacs nil))))
  (let* ((dir command-line-default-directory) tem splice just-files (longopts 
(append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" 
"--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" 
"--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) 
command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) 
(if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil 
defaul..." name) (let* (... ...) (file-name-history--add file) (setq 
displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) 
(if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- 
command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car 
--dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car 
tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let 
((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let 
((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts 
(cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) 
(while command-line-args-left (let* ((argi (car command-line-args-left)) 
(orig-argi argi) argval completion) (setq command-line-args-left (cdr 
command-line-args-left)) (if just-files (setq argi "") (if (string-match 
"\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi 
(match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq 
completion (try-completion argi longopts)) (if (eq completion t) (setq argi 
...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) 
(if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal 
argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" 
"-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval 
...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi 
'("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) 
(read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" 
str-expr end) nil (error "Trailing garbage following expression: %s" ...)) 
(eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if 
(string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name 
...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" 
"-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn 
...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) 
(file-ex ...) (truename ...)) (if (file-exists-p truename) (progn ...)) (load 
file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) 
(setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name 
omitted from `-insert' option")) (insert-file-contents 
(command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal 
argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left ...)))) 
((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message 
"\"--no-desktop\" ignored because the Desktop package...")) ((string-match 
"^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match 
"^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number 
(match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq 
tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left 
(nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi 
command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) 
command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq 
inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp 
tem) nil (error "File name omitted from `%s' option" argi)) (funcall 
process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" 
argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" 
argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks 
command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks 
...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall 
process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil 
(kill-emacs nil)))))
  (progn (let* ((dir command-line-default-directory) tem splice just-files 
(longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" 
"--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" 
"--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) 
command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) 
(if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." 
name) (let* ... ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- 
command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car 
--dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... 
longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let 
((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let 
((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts 
(cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while 
command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi 
argi) argval completion) (setq command-line-args-left (cdr 
command-line-args-left)) (if just-files (setq argi "") (if (string-match 
"\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match 
"\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond 
((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall 
... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) 
((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if 
(commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq 
inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr 
t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... 
... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) 
((member argi '...) (let* (... ... ...) (if ... ...) (load file-ex nil t t))) 
((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval 
...)) (or (stringp tem) (error "File name omitted from `-insert' option")) 
(insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi 
"-dump-file") (equal argi "-seccomp")) (or argval (car-safe ...))) ((equal argi 
"-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" 
ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) 
(setq line (string-to-number argi))) ((string-match 
"^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) 
column (string-to-number ...))) ((setq tem (assoc orig-argi 
command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... 
command-line-args-left))) ((setq tem (assoc orig-argi 
command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... 
command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) 
(setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from 
`%s' option" argi)) (funcall process-file-arg tem)) ((string-match 
"\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization 
(format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files 
t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if 
(frame-live-p (selected-frame)) nil (kill-emacs nil))))))
  (if command-line-args-left (progn (let* ((dir command-line-default-directory) 
tem splice just-files (longopts (append '("--funcall" "--load" "--insert" 
"--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" 
"--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... 
command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) 
(if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while 
--dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts 
...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- 
command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if 
(string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr 
--dolist-tail--))))) (while command-line-args-left (let* ((argi (car 
command-line-args-left)) (orig-argi argi) argval completion) (setq 
command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi 
"") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match 
"\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... 
...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi 
...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member 
argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi 
...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member 
argi ...) (let* ... ... ...)) ((equal argi "-insert") (setq 
inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents 
...)) ((or ... ...) (or argval ...)) ((equal argi "-kill") (kill-emacs t)) 
((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the 
Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) 
((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column 
...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq 
command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) 
(setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match 
"\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) 
((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if 
(frame-live-p (selected-frame)) nil (kill-emacs nil)))))))
  (let ((command-line-args-left args-left)) (if command-line-args-left (progn 
(let* ((dir command-line-default-directory) tem splice just-files (longopts 
(append '... (mapcar ... command-switch-alist))) (line 0) (column 0) 
(process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- 
command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) 
(setq --dolist-tail-- ...)))) (let ((--dolist-tail-- 
command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) 
(setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) 
(orig-argi argi) argval completion) (setq command-line-args-left (cdr 
command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... 
...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... 
...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) 
(... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t 
...)) (if (frame-live-p ...) nil (kill-emacs nil))))))))
  (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) 
(if command-line-args-left (progn (let* ((dir command-line-default-directory) 
tem splice just-files (longopts (append ... ...)) (line 0) (column 0) 
(process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) 
(while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- 
command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) 
(while command-line-args-left (let* (... ... argval completion) (setq 
command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil 
...))))))) (if (eq initial-buffer-choice t) (progn 
(startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer 
"*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 
(buffer-size)) (progn (insert (substitute-command-keys 
initial-scratch-message)) (set-buffer-modified-p nil))))) (if 
initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t 
...)))) (if (buffer-live-p buf) nil (error "Value returned by 
`initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf 
(delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length 
displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> 
displayable-buffers-len 0) (progn (switch-to-buffer (car 
displayable-buffers)))) (if (> displayable-buffers-len 1) (progn 
(switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window 
-1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p 
t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive 
(daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not 
noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) 
(run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 
'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 
'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> 
displayable-buffers-len 0)))))
  command-line-1(("-l" "emoji.el" "-f" "emoji--generate-file" 
"../../lisp/international/emoji-labels.el"))
  (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) 
after-init-time nil command-line-default-directory default-directory) (setq 
abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc 
nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq 
version-control nil)) ((member vc ...) (setq version-control ...)))) (let 
((simple-file-name (locate-file "simple" load-path ...))) (if (null 
simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") 
(terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-directory (file-truename 
...)) (setq load-history (mapcar ... load-history)))) (let ((args 
command-line-args)) (while args (setcar args (decode-coding-string ... 
locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args 
(cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive 
nil (user-login-name))) (and init-file-user (equal init-file-user 
(user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) 
(let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... 
... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args 
(append display-arg args))) (and command-line-args (setcdr command-line-args 
args))) (if (listp custom-delayed-init-variables) (progn (mapc 
#'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq 
custom-delayed-init-variables t) (if init-file-user (progn (if (string-match 
"[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) 
(setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if 
(or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" 
init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir 
init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name 
"early-init.el" startup-init-directory))) (setq early-init-file user-init-file) 
(and user-init-file package-enable-at-startup (not (and (boundp ...) 
package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) 
(package-activate-all)) (condition-case error (if noninteractive nil (if (and 
initial-window-system ...) (error "Unsupported window system `%s'" 
initial-window-system)) (setq command-line-args (let ... ...)) (let (...) 
(window-system-initialization)) (put initial-window-system 
'window-system-initialized t)) (error (princ (if ... ... ...) 
'external-debugging-output) (terpri 'external-debugging-output) (setq 
initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if 
(daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode 
nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 
'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if 
noninteractive nil (startup--setup-quote-display) (setq 
internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq 
initial-window-system 'pc) (tty-register-default-colors)) (let 
((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts 
face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) 
(startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and 
deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if 
(and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p 
abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq 
abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... 
...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq 
scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts 
old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time 
(current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if 
(get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq 
major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive 
initial-window-system (daemonp)) nil (tty-run-terminal-initialization 
(selected-frame) nil t)) (setq memory-signal-data (list 'error 
(substitute-command-keys "Memory exhausted--use \\[save-som..."))) 
(command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- 
load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive 
(kill-emacs t)) ...)
  command-line()
  (unwind-protect (command-line) (if default-directory (setq default-directory 
(abbreviate-file-name default-directory))) (or auto-save-list-file-name (and 
auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq 
system-type 'ms-dos) (make-directory (file-name-directory 
auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t 
(expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) 
(if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) 
(if (or frame-initial-frame (not (and initial-window-system (not 
noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq 
face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 
'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) 
(frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) 
(frame-set-background-mode (selected-frame))))) (if (fboundp 
'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil 
(run-hooks 'window-setup-hook)))
  (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect 
(command-line) (if default-directory (setq default-directory 
(abbreviate-file-name default-directory))) (or auto-save-list-file-name (and 
auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq 
system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name 
...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 
'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system 
(not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq 
face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 
'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) 
(frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) 
(frame-set-background-mode (selected-frame))))) (if (fboundp 
'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil 
(run-hooks 'window-setup-hook))))
  (if command-line-processed (message internal--top-level-message) (setq 
command-line-processed t) (setq startup--xdg-config-home-emacs (let 
((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home 
(concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq 
user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs 
nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv 
"EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- 
...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" 
user-emacs-directory) native-comp-eln-load-path)) (if (and (equal (getenv 
"HOME") "/nonexistent") (file-writable-p (expand-file-name (or 
temporary-file-directory "")))) (progn (let ((tmp-dir ...)) (add-hook 
'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir 
native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir 
(expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car 
tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t 
t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load 
(expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond 
((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" 
eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac 
"(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let 
((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) 
(save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... 
... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) 
(let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) 
(progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while 
--dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let 
((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") 
(messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) 
t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 
'user-full-name 'standard-value (list (default-value 'user-full-name))) (let 
((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil 
(progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat 
"PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding 
(if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq 
charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) 
charset-map-path)))) (if default-directory (setq default-directory 
(abbreviate-file-name default-directory)) (display-warning 'initialization 
"Error setting default-directory")) (let ((old-face-font-rescale-alist 
face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory 
(setq default-directory (abbreviate-file-name default-directory))) (or 
auto-save-list-file-name (and auto-save-list-file-prefix (setq 
auto-save-list-file-name (cond (... ... ...) (t ...))))) (if 
inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if 
(or frame-initial-frame (not (and initial-window-system (not noninteractive) 
(not ...)))) (progn (if (eq face-font-rescale-alist 
old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font 
(font-spec))) (if (fboundp 'frame-notice-user-settings) 
(frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) 
(frame-set-background-mode (selected-frame))))) (if (fboundp 
'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil 
(run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display 
(frame-parameter nil 'display))) (if (stringp display) (setq display (concat 
"DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while 
--dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) 
(setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if 
display (progn (delete display process-environment)))))
  normal-top-level()

make[2]: *** [Makefile:80: ../../lisp/international/emoji-labels.el] Error 255
make[2]: Leaving directory '/mnt/fast/emacs2022/emacs/admin/unidata'
make[1]: *** [Makefile:566: ../lisp/international/charprop.el] Error 2
make[1]: Leaving directory '/mnt/fast/emacs2022/emacs/src'
make: *** [Makefile:466: src] Error 2

-- 
Joakim Verona
joakim@verona.se