[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#53038: 28.0.50; problem building
From: |
joakim |
Subject: |
bug#53038: 28.0.50; problem building |
Date: |
Fri, 07 Jan 2022 13:08:55 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
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
- bug#53038: 28.0.50; problem building, joakim, 2022/01/05
- bug#53038: more info, build problems, joakim, 2022/01/06
- bug#53038: 28.0.50; problem building, Eli Zaretskii, 2022/01/07
- bug#53038: 28.0.50; problem building, joakim, 2022/01/07
- bug#53038: 28.0.50; problem building, Eli Zaretskii, 2022/01/07
- bug#53038: 28.0.50; problem building,
joakim <=
- bug#53038: 28.0.50; problem building, Eli Zaretskii, 2022/01/07
- bug#53038: 28.0.50; problem building, joakim, 2022/01/07
- bug#53038: 28.0.50; problem building, Eli Zaretskii, 2022/01/07
- bug#53038: 28.0.50; problem building, joakim, 2022/01/07
- bug#53038: 28.0.50; problem building, Robert Pluim, 2022/01/07
- bug#53038: 28.0.50; problem building, Robert Pluim, 2022/01/07
- bug#53038: 28.0.50; problem building, joakim, 2022/01/07
- bug#53038: 28.0.50; problem building, Robert Pluim, 2022/01/07
- bug#53038: 28.0.50; problem building, joakim, 2022/01/07
- bug#53038: 28.0.50; problem building, Robert Pluim, 2022/01/07