From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: German Pacenza Newsgroups: gmane.emacs.bugs Subject: bug#56829: Unable to build Emacs with native compilation Date: Fri, 29 Jul 2022 10:34:39 -0300 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="000000000000ecda2905e4f1b659" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="22205"; mail-complaints-to="usenet@ciao.gmane.io" To: 56829@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Fri Jul 29 16:30:17 2022 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1oHR0K-0005YX-4M for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 29 Jul 2022 16:30:16 +0200 Original-Received: from localhost ([::1]:34306 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oHR0I-0000t2-Kk for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 29 Jul 2022 10:30:14 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:60866) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oHR07-0000rg-HN for bug-gnu-emacs@gnu.org; Fri, 29 Jul 2022 10:30:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:43430) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oHR07-00075Q-7o for bug-gnu-emacs@gnu.org; Fri, 29 Jul 2022 10:30:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1oHR07-000895-0E for bug-gnu-emacs@gnu.org; Fri, 29 Jul 2022 10:30:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: German Pacenza Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 29 Jul 2022 14:30:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 56829 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.165910496931237 (code B ref -1); Fri, 29 Jul 2022 14:30:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 29 Jul 2022 14:29:29 +0000 Original-Received: from localhost ([127.0.0.1]:33179 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHQzZ-00087l-P5 for submit@debbugs.gnu.org; Fri, 29 Jul 2022 10:29:29 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:56838) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oHQ8z-0006As-Da for submit@debbugs.gnu.org; Fri, 29 Jul 2022 09:35:09 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:46368) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oHQ8s-0005e2-Rc for bug-gnu-emacs@gnu.org; Fri, 29 Jul 2022 09:35:08 -0400 Original-Received: from mail-ej1-x634.google.com ([2a00:1450:4864:20::634]:44755) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oHQ8k-0008Co-P2 for bug-gnu-emacs@gnu.org; Fri, 29 Jul 2022 09:35:02 -0400 Original-Received: by mail-ej1-x634.google.com with SMTP id ss3so8520979ejc.11 for ; Fri, 29 Jul 2022 06:34:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:from:date:message-id:subject:to; bh=FdTm9WTuonuhDtVaeoEyLKLkspa+LaElS4Jy0J51a4s=; b=nYU8UtS5mLDoNaGMSnb32lOHZ/imV4E2CZ5ASvMuTNGha66jstAP61xbtSgRGOxV4q qkKyUa3mmzlLvJgubd9Z5OYnjac/EdAMC8oZmi8Fuu0Wt+JaaQ+y9pWorPwmBE7wpg5N 78rzzEUnGHG9KGyW81ysv8s8XvITljiAtYO8rcfcC3127XE53f8ai9eSEQEC0g+zzxJO lgWRkNjluS0WYP2q9nmeZZLb3cyGMji9omlPiXTgSbM7Lu98DWvtA1uLffx/2fb69RPz H8wkA+hdrYsboHZC98YYj5oB9gf7Y69DDRZmTRCXmQmPnEQpp/oeRB6Ql9362NxGBDr8 nT4A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=FdTm9WTuonuhDtVaeoEyLKLkspa+LaElS4Jy0J51a4s=; b=DXc/7Z6qnXcq9YEqkkxLC3KbjsmeW7Y5+Q32iUwWQkP9oelCY/58VDwbzb+oEMZvhh 6J/F41pYNg60fYguPc4scUPKTDGln+3JaX60no9AQed3nqWM4vBpnpcvz49pAqdVGY3J B9kEFOU7ZmcUlcngz4ojqjQpeZSlijKQ8Sx23fZtUHhCL0cr5cLgsVDGiJvvWkj9Xe5a XRPTnOTMhrYbfUcnyUaHKRgdOckS6Pm7kdIhYr+LcrHWHrlqD4mWJJpdms+qkacIBOw8 oG2ghQ8oVONivZBrW+alHn/6BW6X8RHUfAKDlgnXQ7amBW2V64739637C0ps8Mxk4IOo d7TA== X-Gm-Message-State: AJIora+dJkUvl0aDGXBXBbPZ2b3wrvO01pPR+MiOcXOomaZ0SmahzZMg zqUz9oAFBihPtQFkIO4ms8tdYFM3SDWG3vb9Cj/2FZG1owcQeQ== X-Google-Smtp-Source: AGRyM1sOy8RWTPzjj2XJPQaRzNwY/o9iLEFTN55i9jLyvdM0GYzicxnaN8Kvz+kdvnIvcQehxU7ZT81XwLpyCfnAQPM= X-Received: by 2002:a17:907:2d23:b0:72b:7c6a:24c with SMTP id gs35-20020a1709072d2300b0072b7c6a024cmr2882108ejc.44.1659101690778; Fri, 29 Jul 2022 06:34:50 -0700 (PDT) Received-SPF: pass client-ip=2a00:1450:4864:20::634; envelope-from=germanp1982@gmail.com; helo=mail-ej1-x634.google.com X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_ENVFROM_END_DIGIT=0.25, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Fri, 29 Jul 2022 10:29:28 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:238182 Archived-At: --000000000000ecda2905e4f1b659 Content-Type: text/plain; charset="UTF-8" Since commit c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 I am unable to build Emacs: make[4]: Leaving directory '/home/german/repos/emacs/admin/grammars' ELC+ELN ../lisp/custom.elc ELC+ELN ../lisp/dnd.elc ELC+ELN ../lisp/disp-table.elc ELC+ELN ../lisp/dos-fns.elc ELC+ELN ../lisp/dos-vars.elc ELC+ELN ../lisp/dos-w32.elc ELC+ELN ../lisp/dynamic-setting.elc ELC+ELN ../lisp/electric.elc libgccjit.so: error: gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3) libgccjit.so: error: gcc_jit_block_add_eval: NULL rvalue Error: native-ice ("international/titdic-cnv.el" "failing to compile function" titdic-convert "gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3)") mapbacktrace((closure ((prin1 . cl-prin1) t) (evald func args _flags) (let ((args args)) (if evald (progn (princ " ") (funcall prin1 func) (princ "(")) (progn (princ " (") (setq args (cons func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args (cdr args))) (princ " "))) (princ ")\n")))) (let ((print-escape-newlines t) (print-escape-control-characters t) (print-escape-nonascii t) (prin1 (if (and (fboundp 'cl-prin1) (require 'cl-print nil t)) #'cl-prin1 #'prin1))) (mapbacktrace #'(lambda (evald func args _flags) (let ((args args)) (if evald (progn (princ " ") (funcall prin1 func) (princ "(")) (progn (princ " (") (setq args (cons func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args (cdr args))) (princ " "))) (princ ")\n"))))) debug-early-backtrace() debug-early(error (native-ice "international/titdic-cnv.el" "failing to compile function" titdic-convert "gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3)")) signal(native-ice ("international/titdic-cnv.el" "failing to compile function" titdic-convert "gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3)")) comp--native-compile("international/titdic-cnv.el") batch-native-compile() batch-byte+native-compile() funcall(batch-byte+native-compile) (if (commandp tem) (command-execute tem) (funcall tem)) (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 (cdr 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 (setq command-line-args-left (cdr 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 (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq 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 (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr 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))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((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 is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq 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 (car hooks))))) (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 (progn (setq argval (substring argi (match-end 0))) (setq 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 ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq 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 (setq command-line-args-left (cdr 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 (setq command-line-args-left (cdr 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 (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq 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 (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr 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))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((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 is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq 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 (car hooks))))) (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 (progn (setq argval (substring argi (match-end 0))) (setq 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 ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq 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 (setq command-line-args-left (cdr 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 (setq command-line-args-left (cdr 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 (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq 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 (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr 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))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((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 is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq 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 (car hooks))))) (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 "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (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 (car tem)) 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 (progn (setq argval (substring argi (match-end 0))) (setq 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 ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq 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 (setq command-line-args-left (cdr 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 (setq command-line-args-left (cdr 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 (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq 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 (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr 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))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((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 is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) ( ELC+ELN ../lisp/emacs-lisp/backquote.elc progn (setq line (string-to-number (match-string 1 argi))) (setq 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 (car hooks))))) (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))))) (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 (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (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 (car tem)) 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 (progn (setq argval (substring argi (match-end 0))) (setq 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 ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq 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 (setq command-line-args-left (cdr 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 (setq command-line-args-left (cdr 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 (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq 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 (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr 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))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((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 is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq 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 (car hooks))))) (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)))))) (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 #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (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 (car tem)) 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 (progn (setq argval (substring argi (match-end 0))) (setq 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 ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq 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 (setq command-line-args-left (cdr 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 (setq command-line-args-left (cdr 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 (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq 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 (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr 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))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((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 is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq 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 (car hooks))))) (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 ((command-line-args-left args-left)) (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 #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (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 (car tem)) 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 (progn (setq argval (substring argi (match-end 0))) (setq 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 ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq 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 (setq command-line-args-left (cdr 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 (setq command-line-args-left (cdr 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 (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq 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 (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr 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))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((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 is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq 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 (car hooks))))) (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 ((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 '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (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 (car tem)) 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 (progn (setq argval (substring argi (match-end 0))) (setq 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 ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq 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 (setq command-line-args-left (cdr 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 (setq command-line-args-left (cdr 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 (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq 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 (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr 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))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((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 is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq 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- ELC+ELN ../lisp/emacs-lisp/byte-run.elc hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (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)))))))) (if (eq initial-buffer-choice t) (progn (get-scratch-buffer-create))) (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 ((stringp initial-buffer-choice) (find-file-noselect initial-buffer-choice)) ((functionp initial-buffer-choice) (funcall initial-buffer-choice)) ((eq initial-buffer-choice t) (get-scratch-buffer-create)) (t (error "`initial-buffer-choice' must be a string, a function, or t"))))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a live buffer: %S" buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil) (old-face-font-rescale-alist face-font-rescale-alist)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (cond ((= displayable-buffers-len 2) (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1)) ((> displayable-buffers-len 2) (let ((bufs (reverse (cdr displayable-buffers)))) (switch-to-buffer-other-window (car-safe (prog1 bufs (setq bufs (cdr bufs))))) (let ((--dolist-tail-- bufs)) (while --dolist-tail-- (let ((buf (car --dolist-tail--))) (switch-to-buffer buf nil t) (setq --dolist-tail-- (cdr --dolist-tail--))))) (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 (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (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(("--eval" "(setq load-prefer-newer t byte-compile-warnings 'all)" "-l" "comp" "-f" "batch-byte+native-compile" "international/titdic-cnv.el")) (let (xdg-dir startup-init-directory) (progn (setq before-init-time (current-time)) (setq after-init-time nil) (setq command-line-default-directory default-directory)) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc '("t" "numbered")) (setq version-control t)) ((member vc '("nil" "existing")) (setq version-control nil)) ((member vc '("never" "simple")) (setq version-control 'never)))) (let ((simple-file-name (locate-file "simple" load-path (get-load-suffixes)))) (if (null simple-file-name) (let ((standard-output 'external-debugging-output) (lispdir (expand-file-name "../lisp" data-directory))) (princ "Warning: Could not find simple.el or simple.elc") (terpri) (if (getenv "EMACSLOADPATH") (progn (princ "The EMACSLOADPATH environment variable is set, please check its value") (terpri))) (if (file-readable-p lispdir) nil (princ (format "Lisp directory %s not readable?" lispdir)) (terpri))) (setq lisp-directory (file-truename (file-name-directory simple-file-name))) (setq load-history (mapcar #'(lambda (elt) (if (and (stringp (car elt)) (not (file-name-absolute-p (car elt)))) (cons (concat lisp-directory (car elt)) (cdr elt)) elt)) load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string (car args) locale-coding-system t)) (car-safe (prog1 args (setq args (cdr 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* ((longopts '(("--no-init-file") ("--no-site-file") ("--no-x-resources") ("--debug-init") ("--user") ("--iconic") ("--icon-type") ("--quick") ("--no-blinking-cursor") ("--basic-display") ("--dump-file") ("--temacs") ("--seccomp") ("--init-directory"))) (argi (car-safe (prog1 args (setq args (cdr args))))) (orig-argi argi) argval) (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--." orig-argi) (progn (let ((completion (try-completion argi longopts))) (cond ((eq completion t) (setq argi (substring argi 1))) ((stringp completion) (let ((elt (assoc completion longopts))) (if elt nil (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1)))) (t (progn (setq argval nil) (setq argi orig-argi))))))) (if (equal argi "-scripteval") (progn (progn (setq init-file-user nil) (setq noninteractive t)))) (cond ((member argi '("-d" "-display")) (setq display-arg (list argi (car-safe (prog1 args (setq args (cdr args))))))) ((member argi '("-Q" "-quick")) (progn (setq init-file-user nil) (setq site-run-file nil) (setq inhibit-x-resources t)) (put 'site-run-file 'standard-value '(nil))) ((member argi '("-no-x-resources")) (setq inhibit-x-resources t)) ((member argi '("-D" "-basic-display")) (progn (setq no-blinking-cursor t) (setq emacs-basic-display t)) (setq initial-frame-alist (cons '(vertical-scroll-bars) initial-frame-alist))) ((member argi '("-q" "-no-init-file")) (setq init-file-user nil)) ((member argi '("-init-directory")) (progn (setq user-emacs-directory (or argval (car-safe (prog1 args (setq args (cdr args)))))) (setq argval nil))) ((member argi '("-u" "-user")) (progn (setq init-file-user (or argval (car-safe (prog1 args (setq args (cdr args)))))) (setq argval nil))) ((equal argi "-no-site-file") (setq site-run-file nil) (put 'site-run-file 'standard-value '(nil))) ((equal argi "-debug-init") (setq init-file-debug t)) ((equal argi "-iconic") (setq initial-frame-alist (cons '(visibility . icon) initial-frame-alist))) ((member argi '("-nbc" "-no-blinking-cursor")) (setq no-blinking-cursor t)) ((member argi '("-dump-file" "-temacs" "-seccomp")) (or argval (car-safe (prog1 args (setq args (cdr args))))) (setq argval nil)) (t (setq args (cons argi args)) (setq done t))) (and argval (error "Option `%s' doesn't allow an argument" argi)))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (let ((user-emacs-directory-warning nil)) (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 'initialization (format "Invalid user name %s" init-file-user) :error) (if (file-directory-p (expand-file-name (if (memq system-type '(windows-nt ms-dos)) "~" (concat "~" init-file-user)))) nil (display-warning 'initialization (format "User %s has no home directory" (if (equal init-file-user "") (user-real-login-name) init-file-user)) :error))))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 (length init-file-user)) (and (eq xdg-dir user-emacs-directory) (not (eq xdg-dir startup--xdg-config-default)))) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user) ELC+ELN ../lisp/emacs-lisp/cl-generic.elc )) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (if (featurep 'native-compile) (progn (startup--update-eln-cache))) (and user-init-file package-enable-at-startup (not (and (boundp 'package--activated) package--activated)) (catch 'package-dir-found (let ((dirs (cons package-user-dir package-directory-list))) (let ((--dolist-tail-- dirs)) (while --dolist-tail-- (let ((dir (car --dolist-tail--))) (if (file-directory-p dir) (progn (let ((--dolist-tail-- (directory-files dir))) (while --dolist-tail-- (let ((subdir (car --dolist-tail--))) (if (let ((subdir (expand-file-name subdir dir))) (and (file-directory-p subdir) (file-exists-p (expand-file-name (package--description-file subdir) subdir)))) (progn (throw 'package-dir-found t))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system (not (featurep (intern (concat (symbol-name initial-window-system) "-win"))))) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ((window-system initial-window-system)) (handle-args-function command-line-args))) (let ((window-system initial-window-system)) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if (eq (car error) 'error) (apply 'concat (cdr error)) (if (memq 'file-error (get (car error) 'error-conditions)) (format "%s: %s" (nth 1 error) (mapconcat #'(lambda (obj) (prin1-to-string obj t)) (cdr (cdr error)) ", ")) (format "%s: %s" (get (car error) 'error-message) (mapconcat #'(lambda (obj) (prin1-to-string obj t)) (cdr error) ", ")))) '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) (progn (setq menu-bar-mode nil) (setq tab-bar-mode nil) (setq 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 ((inhibit-startup-screen inhibit-startup-screen)) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil (cond ((eq startup-init-directory xdg-dir) nil) ((eq system-type 'ms-dos) (concat "~" init-file-user "/_emacs")) ((not (eq system-type 'windows-nt)) (concat "~" init-file-user "/.emacs")) ((directory-files "~" nil "\\`\\.emacs\\(\\.elc?\\)?\\'") "~/.emacs") ((directory-files "~" nil "\\`_emacs\\(\\.elc?\\)?\\'") (setq delayed-warnings-list (cons (list 'initialization (format-message "`_emacs' init file is deprecated, please use `.emacs'")) delayed-warnings-list)) "~/_emacs") (t "~/.emacs"))) #'(lambda nil (expand-file-name "init.el" startup-init-directory)) t) (if (featurep 'native-compile) (progn (startup--update-eln-cache))) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer (set-buffer (window-buffer)) (deactivate-mark)))) (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 (mail-host-address) (condition-case nil (progn (custom--standard-value 'user-mail-address)) (error nil)))) (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 'fundamental-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-some-buffers] then exit and restart Emacs"))) (custom-reevaluate-setting 'user-emacs-directory-warning) (command-line-1 (cdr command-line-args)) (if (and user-emacs-directory-warning (not (file-accessible-directory-p user-emacs-directory))) (progn (locate-user-emacs-file ""))) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ((dir (car --dolist-tail--))) (and (not warned) (stringp dir) (string-equal (file-name-as-directory (expand-file-name dir)) (expand-file-name user-emacs-directory)) (setq warned t) (display-warning 'initialization (format-message "Your `load-path' seems to contain\nyour `.emacs.d' directory: %s\nThis is likely to cause problems...\nConsider using a subdirectory instead, e.g.: %s" dir (expand-file-name "lisp" user-em ELC+ELN ../lisp/emacs-lisp/cl-preloaded.elc acs-directory)) :warning)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if noninteractive (kill-emacs t)) (let ((dn (daemonp))) (if dn (progn (if (stringp dn) (progn (setq server-name dn))) (server-start) (if server-process (daemon-initialized) (if (stringp dn) (message "Unable to start daemon: Emacs server named %S already running" server-name) (message "Unable to start the daemon.\nAnother instance of Emacs is running the server, either as daemon or interactively.\nYou can use emacsclient to connect to that Emacs process.")) (kill-emacs 1))))) (if (and (boundp 'x-session-previous-id) (stringp x-session-previous-id)) (with-no-warnings (emacs-session-restore x-session-previous-id)))) 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 (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-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 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (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 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-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 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (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 (if (native-comp-available-p) nil (progn (setq native-comp-deferred-compilation nil) (setq comp-enable-subr-trampolines nil))) (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let ((--dolist-tail-- (split-string path-env path-separator))) (while --dolist-tail-- (let ((path (car --dolist-tail--))) (if (string= "" path) nil (setq native-comp-eln-load-path (cons path native-comp-eln-load-path))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) 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)) (progn (setq eol-mnemonic-unix "(Unix)") (setq eol-mnemonic-mac "(Mac)"))) (t (progn (setq eol-mnemonic-dos "(DOS)") (setq eol-mnemonic-mac "(Mac)")))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- (buffer-list))) (while --dolist-tail-- (let ((elt (car --dolist-tail--))) (set-buffer elt) (if default-directory (setq default-directory (if (eq system-type 'windows-nt) (let ((defdir (decode-coding-string default-directory coding t))) (expand-file-name defdir defdir)) (decode-coding-string default-directory coding t)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (let ((--dolist-tail-- '(load-path exec-path))) (while --dolist-tail-- (let ((pathsym (car --dolist-tail--))) (let ((path (symbol-value pathsym))) (if (listp path) (set pathsym (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) path)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (featurep 'native-compile) (progn (let ((npath (symbol-value 'native-comp-eln-load-path))) (set 'native-comp-eln-load-path (mapcar #'(lambda (dir) (expand-file-name (decode-coding-string dir coding t))) npath))) (setq startup--original-eln-load-path (copy-sequence native-comp-eln-load-path)))) (let ((--dolist-tail-- '(data-directory doc-directory exec-directory installation-directory invocation-directory invocation-name source-directory shared-game-score-directory))) (while --dolist-tail-- (let ((filesym (car --dolist-tail--))) (let ((file (symbol-value filesym))) (if (stringp file) (set filesym (decode-coding-string file coding t)))) (setq --dolist-tail-- (cdr --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 (file-attributes (file-name-as-directory pwd)) (file-attributes (file-name-as-directory default-directory)))) (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 ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-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 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (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 (car --dolist-tail--))) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Loading macroexp.elc... Internal native compiler error: "international/titdic-cnv.el", "failing to compile function", #, "gcc_jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expected 3)" make[3]: *** [Makefile:331: international/titdic-cnv.elc] Error 255 make[3]: Leaving directory '/home/german/repos/emacs/lisp' make[2]: *** [Makefile:898: ../lisp/loaddefs.el] Error 2 make[2]: *** Waiting for unfinished jobs.... make[2]: Leaving directory '/home/german/repos/emacs/src' make[1]: *** [Makefile:469: src] Error 2 make[1]: Leaving directory '/home/german/repos/emacs' make: *** [Makefile:1178: bootstrap] Error 2 --000000000000ecda2905e4f1b659 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Since commit c6029ed34ea83c7c0adbd723d63bd78ff0ec0796 I am= unable to
build Emacs:

make[4]: Leaving d= irectory '/home/german/repos/emacs/admin/grammars'
=C2=A0 ELC+EL= N =C2=A0../lisp/custom.elc
=C2=A0 ELC+ELN =C2=A0../lisp/dnd.elc
=C2= =A0 ELC+ELN =C2=A0../lisp/disp-table.elc
=C2=A0 ELC+ELN =C2=A0../lisp/do= s-fns.elc
=C2=A0 ELC+ELN =C2=A0../lisp/dos-vars.elc
=C2=A0 ELC+ELN = =C2=A0../lisp/dos-w32.elc
=C2=A0 ELC+ELN =C2=A0../lisp/dynamic-setting.e= lc
=C2=A0 ELC+ELN =C2=A0../lisp/electric.elc
libgccjit.so: error: gcc= _jit_context_new_call_through_ptr: not enough arguments to fn_ptr: freloc-&= gt;R6e6172726f772d746f2d726567696f6e_narrow_to_region_0 (got 2 args, expect= ed 3)
libgccjit.so: error: gcc_jit_block_add_eval: NULL rvalue

Er= ror: native-ice ("international/titdic-cnv.el" "failing to c= ompile function" titdic-convert "gcc_jit_context_new_call_through= _ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d72656= 7696f6e_narrow_to_region_0 (got 2 args, expected 3)")
=C2=A0 mapbac= ktrace((closure ((prin1 . cl-prin1) t) (evald func args _flags) (let ((args= args)) (if evald (progn (princ " =C2=A0") (funcall prin1 func) (= princ "(")) (progn (princ " =C2=A0(") (setq args (cons = func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args = (cdr args))) (princ " "))) (princ ")\n"))))
=C2=A0 (= let ((print-escape-newlines t) (print-escape-control-characters t) (print-e= scape-nonascii t) (prin1 (if (and (fboundp 'cl-prin1) (require 'cl-= print nil t)) #'cl-prin1 #'prin1))) (mapbacktrace #'(lambda (ev= ald func args _flags) (let ((args args)) (if evald (progn (princ " =C2= =A0") (funcall prin1 func) (princ "(")) (progn (princ "= =C2=A0(") (setq args (cons func args)))) (if args (while (progn (func= all prin1 (car args)) (setq args (cdr args))) (princ " "))) (prin= c ")\n")))))
=C2=A0 debug-early-backtrace()
=C2=A0 debug-ea= rly(error (native-ice "international/titdic-cnv.el" "failing= to compile function" titdic-convert "gcc_jit_context_new_call_th= rough_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d= 726567696f6e_narrow_to_region_0 (got 2 args, expected 3)"))
=C2=A0 = signal(native-ice ("international/titdic-cnv.el" "failing to= compile function" titdic-convert "gcc_jit_context_new_call_throu= gh_ptr: not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726= 567696f6e_narrow_to_region_0 (got 2 args, expected 3)"))
=C2=A0 com= p--native-compile("international/titdic-cnv.el")
=C2=A0 batch-= native-compile()
=C2=A0 batch-byte+native-compile()
=C2=A0 funcall(ba= tch-byte+native-compile)
=C2=A0 (if (commandp tem) (command-execute tem)= (funcall tem))
=C2=A0 (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 &= quot;-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 (cdr command-line-args-left))))))) (if (c= ommandp tem) (command-execute tem) (funcall tem))) ((member argi '(&quo= t;-eval" "-execute")) (setq inhibit-startup-screen t) (let* = ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command= -line-args-left (cdr command-line-args-left)))))) (read-data (read-from-str= ing str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-ma= tch-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing = garbage following expression: %s" (substring str-expr end))) (eval exp= r t))) ((member argi '("-L" "-directory")) (let (ap= pend) (if (string-match-p (format "\\`%s" path-separator) (setq t= em (or argval (car-safe (prog1 command-line-args-left (setq command-line-ar= gs-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem = 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-f= ile-name tem))) (cond (append (setq load-path (append load-path (list tem))= ) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cd= r splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem= load-path)) (setq splice load-path)))))) ((member argi '("-l"= ; "-load")) (let* ((file (command-line-normalize-file-name (or ar= gval (car-safe (prog1 command-line-args-left (setq command-line-args-left (= cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name= file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load f= ile nil t))) ((member argi '("-scriptload" "-scripteval&= quot;)) (let* ((file (command-line-normalize-file-name (or argval (car-safe= (prog1 command-line-args-left (setq command-line-args-left (cdr command-li= ne-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truen= ame file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))= ) (if (equal argi "-scripteval") (command-line--eval-script file-= ex) (command-line--load-script file-ex)))) ((equal argi "-insert"= ) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 com= mand-line-args-left (setq command-line-args-left (cdr command-line-args-lef= t)))))) (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&quo= t;)) (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 "\&quo= t;--no-desktop\" ignored because the Desktop package is not loaded&quo= t;)) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-= to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'= " argi) (progn (setq line (string-to-number (match-string 1 argi))) (s= etq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc or= ig-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-l= ine-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) comm= and-line-args-left))) ((member argi '("-find-file" "-fil= e" "-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 te= m)) ((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 (car hooks))))) (setq hooks (cdr hooks))) (if did-hook n= il (if (string-match "\\`-" argi) (error "Unknown option `%s= '" argi)) (if initial-window-system nil (setq inhibit-startup-scre= en t)) (funcall process-file-arg orig-argi)))))
=C2=A0 (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 &qu= ot;") (if (string-match "\\`\\(--[^=3D]*\\)=3D" argi) (progn= (progn (setq argval (substring argi (match-end 0))) (setq argi (match-stri= ng 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 ((elt (member compl= etion longopts))) (or elt (error "Option `%s' is ambiguous" a= rgi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq a= rgi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (i= f 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 '(&quo= t;-f" "-funcall" "-e")) (setq inhibit-startup-scre= en t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left = (setq command-line-args-left (cdr command-line-args-left))))))) (if (comman= dp tem) (command-execute tem) (funcall tem))) ((member argi '("-ev= al" "-execute")) (setq inhibit-startup-screen t) (let* ((str= -expr (or argval (car-safe (prog1 command-line-args-left (setq command-line= -args-left (cdr command-line-args-left)))))) (read-data (read-from-string s= tr-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p= "[ \11\n]*\\'" str-expr end) nil (error "Trailing garba= ge 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 (o= r argval (car-safe (prog1 command-line-args-left (setq command-line-args-le= ft (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (= setq append t))) (setq tem (expand-file-name (command-line-normalize-file-n= ame tem))) (cond (append (setq load-path (append load-path (list tem))) (if= splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr spl= ice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load= -path)) (setq splice load-path)))))) ((member argi '("-l" &qu= ot;-load")) (let* ((file (command-line-normalize-file-name (or argval = (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr c= ommand-line-args-left))))))) (file-ex (file-truename (expand-file-name file= )))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file n= il t))) ((member argi '("-scriptload" "-scripteval"= )) (let* ((file (command-line-normalize-file-name (or argval (car-safe (pro= g1 command-line-args-left (setq command-line-args-left (cdr command-line-ar= gs-left))))))) (file-ex (expand-file-name file)) (truename (file-truename f= ile-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if= (equal argi "-scripteval") (command-line--eval-script file-ex) (= command-line--load-script file-ex)))) ((equal argi "-insert") (se= tq 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' opti= on")) (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") (kil= l-emacs t)) ((equal argi "-no-desktop") (message "\"--n= o-desktop\" ignored because the Desktop package is not loaded")) = ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-nu= mber argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'"= ; argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq c= olumn (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-ar= gi 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-n= s-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-l= ine-args-left))) ((member argi '("-find-file" "-file&quo= t; "-visit")) (setq inhibit-startup-screen t) (setq tem (or argva= l (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) (dis= play-warning 'initialization (format "Ignoring obsolete arg %s&quo= t; argi))) ((equal argi "--") (setq just-files t)) (t (let ((hook= s command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-= hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (i= f (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-fram= e)) nil (kill-emacs nil)))
=C2=A0 (while command-line-args-left (let* ((= argi (car command-line-args-left)) (orig-argi argi) argval completion) (set= q command-line-args-left (cdr command-line-args-left)) (if just-files (setq= argi "") (if (string-match "\\`\\(--[^=3D]*\\)=3D" arg= i) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (m= atch-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 ((elt (mem= ber completion longopts))) (or elt (error "Option `%s' is ambiguou= s" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil= ) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-a= list)) (if argval (let ((command-line-args-left (cons argval command-line-a= rgs-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal ar= gi "-no-splash") (setq inhibit-startup-screen t)) ((member argi &= #39;("-f" "-funcall" "-e")) (setq inhibit-sta= rtup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-a= rgs-left (setq command-line-args-left (cdr command-line-args-left))))))) (i= f (commandp tem) (command-execute tem) (funcall tem))) ((member argi '(= "-eval" "-execute")) (setq inhibit-startup-screen t) (l= et* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq com= mand-line-args-left (cdr command-line-args-left)))))) (read-data (read-from= -string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (strin= g-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trail= ing 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) (se= tq tem (or argval (car-safe (prog1 command-line-args-left (setq command-lin= e-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring = tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normali= ze-file-name tem))) (cond (append (setq load-path (append load-path (list t= em))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem= (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons= tem load-path)) (setq splice load-path)))))) ((member argi '("-l&= quot; "-load")) (let* ((file (command-line-normalize-file-name (o= r argval (car-safe (prog1 command-line-args-left (setq command-line-args-le= ft (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-= name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (lo= ad file nil t))) ((member argi '("-scriptload" "-scripte= val")) (let* ((file (command-line-normalize-file-name (or argval (car-= safe (prog1 command-line-args-left (setq command-line-args-left (cdr comman= d-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-t= ruename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truena= me))) (if (equal argi "-scripteval") (command-line--eval-script f= ile-ex) (command-line--load-script file-ex)))) ((equal argi "-insert&q= uot;) (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&= #39; 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-l= ine-args-left (cdr command-line-args-left)))))) ((equal argi "-kill&qu= ot;) (kill-emacs t)) ((equal argi "-no-desktop") (message "\= "--no-desktop\" ignored because the Desktop package is not loaded= ")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (str= ing-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\&= #39;" argi) (progn (setq line (string-to-number (match-string 1 argi))= ) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (asso= c orig-argi command-line-x-option-alist)) (setq command-line-args-left (nth= cdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi comma= nd-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 "F= ile name omitted from `%s' option" argi)) (funcall process-file-ar= g tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" a= rgi) (display-warning 'initialization (format "Ignoring obsolete a= rg %s" argi))) ((equal argi "--") (setq just-files t)) (t (l= et ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (= setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-ho= ok 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 (sele= cted-frame)) nil (kill-emacs nil))))
=C2=A0 (let* ((dir command-line-def= ault-directory) tem splice just-files (longopts (append '("--funca= ll" "--load" "--insert" "--kill" "-= -dump-file" "--seccomp" "--directory" "--eval= " "--execute" "--no-splash" "--find-file"= ; "--visit" "--file" "--no-desktop") (mapcar = #'(lambda (elt) (concat "-" (car elt))) command-switch-alist)= )) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or = dir (file-name-absolute-p name))) (message "Ignoring relative file nam= e (%s) due to nil default-directory" name) (let* ((file (expand-file-n= ame (command-line-normalize-file-name name) dir)) (buf (find-file-noselect = file))) (file-name-history--add file) (setq displayable-buffers (cons buf d= isplayable-buffers)) (set-buffer buf) (if (=3D 0 line) nil (goto-char (poin= t-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (mo= ve-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- comm= and-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-t= ail--))) (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-- (le= t ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)= ) (setq longopts (cons (list (car tem)) longopts))) (setq --dolist-tail-- (= cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car co= mmand-line-args-left)) (orig-argi argi) argval completion) (setq command-li= ne-args-left (cdr command-line-args-left)) (if just-files (setq argi "= ") (if (string-match "\\`\\(--[^=3D]*\\)=3D" argi) (progn (p= rogn (setq argval (substring argi (match-end 0))) (setq argi (match-string = 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (set= q completion (try-completion argi longopts)) (if (eq completion t) (setq ar= gi (substring argi 1)) (if (stringp completion) (let ((elt (member completi= on longopts))) (or elt (error "Option `%s' is ambiguous" argi= )) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi= orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if a= rgval (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 (se= tq command-line-args-left (cdr command-line-args-left))))))) (if (commandp = tem) (command-execute tem) (funcall tem))) ((member argi '("-eval&= quot; "-execute")) (setq inhibit-startup-screen t) (let* ((str-ex= pr (or argval (car-safe (prog1 command-line-args-left (setq command-line-ar= gs-left (cdr command-line-args-left)))))) (read-data (read-from-string str-= expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p &q= uot;[ \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) (i= f (string-match-p (format "\\`%s" path-separator) (setq tem (or a= rgval (car-safe (prog1 command-line-args-left (setq command-line-args-left = (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (set= q append t))) (setq tem (expand-file-name (command-line-normalize-file-name= tem))) (cond (append (setq load-path (append load-path (list tem))) (if sp= lice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice= ))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-pa= th)) (setq splice load-path)))))) ((member argi '("-l" "= -load")) (let* ((file (command-line-normalize-file-name (or argval (ca= r-safe (prog1 command-line-args-left (setq command-line-args-left (cdr comm= and-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))) ((member argi '("-scriptload" "-scripteval")) = (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 = command-line-args-left (setq command-line-args-left (cdr command-line-args-= left))))))) (file-ex (expand-file-name file)) (truename (file-truename file= -ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (e= qual argi "-scripteval") (command-line--eval-script file-ex) (com= mand-line--load-script file-ex)))) ((equal argi "-insert") (setq = inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-lin= e-args-left (setq command-line-args-left (cdr command-line-args-left)))))) = (or (stringp tem) (error "File name omitted from `-insert' option&= quot;)) (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-lef= t (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-e= macs t)) ((equal argi "-no-desktop") (message "\"--no-d= esktop\" ignored because the Desktop package is not loaded")) ((s= tring-match "^\\+[0-9]+\\'" argi) (setq line (string-to-numbe= r argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" a= rgi) ( =C2=A0ELC+ELN =C2=A0../lisp/emacs-lisp/backquote.elc
progn (setq = line (string-to-number (match-string 1 argi))) (setq column (string-to-numb= er (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-opt= ion-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-a= rgs-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (set= q command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((me= mber argi '("-find-file" "-file" "-visit"= )) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 co= mmand-line-args-left (setq command-line-args-left (cdr command-line-args-le= ft)))))) (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 'ini= tialization (format "Ignoring obsolete arg %s" argi))) ((equal ar= gi "--") (setq just-files t)) (t (let ((hooks command-line-functi= ons) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car ho= oks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "= ;\\`-" argi) (error "Unknown option `%s'" argi)) (if ini= tial-window-system nil (setq inhibit-startup-screen t)) (funcall process-fi= le-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs n= il)))))
=C2=A0 (progn (let* ((dir command-line-default-directory) tem sp= lice just-files (longopts (append '("--funcall" "--load&= quot; "--insert" "--kill" "--dump-file" "= ;--seccomp" "--directory" "--eval" "--execute= " "--no-splash" "--find-file" "--visit" = "--file" "--no-desktop") (mapcar #'(lambda (elt) (c= oncat "-" (car elt))) command-switch-alist))) (line 0) (column 0)= (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolut= e-p name))) (message "Ignoring relative file name (%s) due to nil defa= ult-directory" name) (let* ((file (expand-file-name (command-line-norm= alize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-his= tory--add file) (setq displayable-buffers (cons buf displayable-buffers)) (= set-buffer buf) (if (=3D 0 line) nil (goto-char (point-min)) (forward-line = (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- colum= n))) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alis= t)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-m= atch "^--" (car tem)) (setq longopts (cons (car tem) longopts))) = (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- comm= and-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-= tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons= (list (car tem)) 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 comm= and-line-args-left)) (if just-files (setq argi "") (if (string-ma= tch "\\`\\(--[^=3D]*\\)=3D" argi) (progn (progn (setq argval (sub= string argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (strin= g-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-comp= letion argi longopts)) (if (eq completion t) (setq argi (substring argi 1))= (if (stringp completion) (let ((elt (member completion longopts))) (or elt= (error "Option `%s' is ambiguous" argi)) (setq argi (substri= ng (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (con= d ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-l= ine-args-left (cons argval command-line-args-left))) (funcall (cdr tem) arg= i)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq i= nhibit-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-l= eft (cdr command-line-args-left))))))) (if (commandp tem) (command-execute = tem) (funcall tem))) ((member argi '("-eval" "-execute&q= uot;)) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-saf= e (prog1 command-line-args-left (setq command-line-args-left (cdr command-l= ine-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read= -data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'&q= uot; str-expr end) nil (error "Trailing garbage following expression: = %s" (substring str-expr end))) (eval expr t))) ((member argi '(&qu= ot;-L" "-directory")) (let (append) (if (string-match-p (for= mat "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1= command-line-args-left (setq command-line-args-left (cdr command-line-args= -left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq te= m (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 (progn (setq load-path (cons tem load-path)) (setq splice load= -path)))))) ((member argi '("-l" "-load")) (let* ((= file (command-line-normalize-file-name (or argval (car-safe (prog1 command-= line-args-left (setq command-line-args-left (cdr 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))) ((member argi = 9;("-scriptload" "-scripteval")) (let* ((file (command-= line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left= (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (= expand-file-name file)) (truename (file-truename file-ex))) (if (file-exist= s-p truename) (progn (setq file-ex truename))) (if (equal argi "-scrip= teval") (command-line--eval-script file-ex) (command-line--load-script= file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen= t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq comm= and-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (err= or "File name omitted from `-insert' option")) (insert-file-c= ontents (command-line-normalize-file-name tem))) ((or (equal argi "-du= mp-file") (equal argi "-seccomp")) (or argval (car-safe (pro= g1 command-line-args-left (setq command-line-args-left (cdr command-line-ar= gs-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi = "-no-desktop") (message "\"--no-desktop\" ignored = because the Desktop package is not loaded")) ((string-match "^\\+= [0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-mat= ch "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line= (string-to-number (match-string 1 argi))) (setq 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 co= mmand-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 comman= d-line-args-left (setq command-line-args-left (cdr command-line-args-left))= )))) (if (stringp tem) nil (error "File name omitted from `%s' opt= ion" argi)) (funcall process-file-arg tem)) ((string-match "\\`--= ?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initial= ization (format "Ignoring obsolete arg %s" argi))) ((equal argi &= quot;--") (setq just-files t)) (t (let ((hooks command-line-functions)= (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks)= )))) (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-a= rg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))= ))))
=C2=A0 (if command-line-args-left (progn (let* ((dir command-line-d= efault-directory) tem splice just-files (longopts (append '("--fun= call" "--load" "--insert" "--kill" "= ;--dump-file" "--seccomp" "--directory" "--ev= al" "--execute" "--no-splash" "--find-file&qu= ot; "--visit" "--file" "--no-desktop") (mapca= r #'(lambda (elt) (concat "-" (car elt))) command-switch-alis= t))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (o= r dir (file-name-absolute-p name))) (message "Ignoring relative file n= ame (%s) due to nil default-directory" name) (let* ((file (expand-file= -name (command-line-normalize-file-name name) dir)) (buf (find-file-noselec= t file))) (file-name-history--add file) (setq displayable-buffers (cons buf= displayable-buffers)) (set-buffer buf) (if (=3D 0 line) nil (goto-char (po= int-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (= move-to-column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- co= mmand-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist= -tail--))) (if (string-match "^--" (car tem)) (setq longopts (con= s (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (le= t ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (= let ((tem (car --dolist-tail--))) (if (string-match "^--" (car te= m)) (setq longopts (cons (list (car tem)) 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 &quo= t;") (if (string-match "\\`\\(--[^=3D]*\\)=3D" argi) (progn = (progn (setq argval (substring argi (match-end 0))) (setq argi (match-strin= g 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (s= etq completion (try-completion argi longopts)) (if (eq completion t) (setq = argi (substring argi 1)) (if (stringp completion) (let ((elt (member comple= tion longopts))) (or elt (error "Option `%s' is ambiguous" ar= gi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq ar= gi 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-scree= n t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (= setq command-line-args-left (cdr command-line-args-left))))))) (if (command= p tem) (command-execute tem) (funcall tem))) ((member argi '("-eva= l" "-execute")) (setq inhibit-startup-screen t) (let* ((str-= expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-= args-left (cdr command-line-args-left)))))) (read-data (read-from-string st= r-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p = "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbag= e 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 (prog1 command-line-args-left (setq command-line-args-lef= t (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (s= etq append t))) (setq tem (expand-file-name (command-line-normalize-file-na= me tem))) (cond (append (setq load-path (append load-path (list tem))) (if = splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr spli= ce))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-= path)) (setq splice load-path)))))) ((member argi '("-l" &quo= t;-load")) (let* ((file (command-line-normalize-file-name (or argval (= car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr co= mmand-line-args-left))))))) (file-ex (file-truename (expand-file-name file)= ))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file ni= l t))) ((member argi '("-scriptload" "-scripteval")= ) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog= 1 command-line-args-left (setq command-line-args-left (cdr command-line-arg= s-left))))))) (file-ex (expand-file-name file)) (truename (file-truename fi= le-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if = (equal argi "-scripteval") (command-line--eval-script file-ex) (c= ommand-line--load-script file-ex)))) ((equal argi "-insert") (set= q inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-l= ine-args-left (setq command-line-args-left (cdr command-line-args-left)))))= ) (or (stringp tem) (error "File name omitted from `-insert' optio= n")) (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-l= eft (cdr command-line-args-left)))))) ((equal argi "-kill") (kill= -emacs t)) ((equal argi "-no-desktop") (message "\"--no= -desktop\" ignored because the Desktop package is not loaded")) (= (string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-num= ber argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'"= argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq co= lumn (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-arg= i 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-li= ne-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 o= mitted from `%s' option" argi)) (funcall process-file-arg tem)) ((= string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (disp= lay-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-h= ook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if= (string-match "\\`-" argi) (error "Unknown option `%s'&= quot; 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)))))))
=C2=A0 (let ((command-line-args-left args-= left)) (if command-line-args-left (progn (let* ((dir command-line-default-d= irectory) tem splice just-files (longopts (append '("--funcall&quo= t; "--load" "--insert" "--kill" "--dump-= file" "--seccomp" "--directory" "--eval"= "--execute" "--no-splash" "--find-file" &quo= t;--visit" "--file" "--no-desktop") (mapcar #'= (lambda (elt) (concat "-" (car elt))) command-switch-alist))) (li= ne 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (f= ile-name-absolute-p name))) (message "Ignoring relative file name (%s)= due to nil default-directory" name) (let* ((file (expand-file-name (c= ommand-line-normalize-file-name name) dir)) (buf (find-file-noselect file))= ) (file-name-history--add file) (setq displayable-buffers (cons buf display= able-buffers)) (set-buffer buf) (if (=3D 0 line) nil (goto-char (point-min)= ) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-= column (1- column))) (setq column 0)))))) (let ((--dolist-tail-- command-li= ne-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--)= )) (if (string-match "^--" (car tem)) (setq longopts (cons (car t= em) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--do= list-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((te= m (car --dolist-tail--))) (if (string-match "^--" (car tem)) (set= q longopts (cons (list (car tem)) 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-arg= s-left (cdr command-line-args-left)) (if just-files (setq argi ""= ) (if (string-match "\\`\\(--[^=3D]*\\)=3D" argi) (progn (progn (= setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi= ))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq comp= letion (try-completion argi longopts)) (if (eq completion t) (setq argi (su= bstring argi 1)) (if (stringp completion) (let ((elt (member completion lon= gopts))) (or elt (error "Option `%s' is ambiguous" argi)) (se= tq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-= argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval = (let ((command-line-args-left (cons argval command-line-args-left))) (funca= ll (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splas= h") (setq inhibit-startup-screen t)) ((member argi '("-f"= ; "-funcall" "-e")) (setq inhibit-startup-screen t) (se= tq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq com= mand-line-args-left (cdr 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 (setq command-line-args-lef= t (cdr 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 follow= ing expression: %s" (substring str-expr end))) (eval expr t))) ((membe= r argi '("-L" "-directory")) (let (append) (if (str= ing-match-p (format "\\`%s" path-separator) (setq tem (or argval = (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr c= ommand-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq appe= nd 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))) (s= etq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (= setq splice load-path)))))) ((member argi '("-l" "-load&= quot;)) (let* ((file (command-line-normalize-file-name (or argval (car-safe= (prog1 command-line-args-left (setq command-line-args-left (cdr command-li= ne-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))) (= (member argi '("-scriptload" "-scripteval")) (let* = ((file (command-line-normalize-file-name (or argval (car-safe (prog1 comman= d-line-args-left (setq command-line-args-left (cdr command-line-args-left))= ))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex)))= (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal a= rgi "-scripteval") (command-line--eval-script file-ex) (command-l= ine--load-script file-ex)))) ((equal argi "-insert") (setq inhibi= t-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 (s= tringp tem) (error "File name omitted from `-insert' option")= ) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equa= l argi "-dump-file") (equal argi "-seccomp")) (or argva= l (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 is not loaded")) ((string-= match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi= ))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (= progn (setq line (string-to-number (match-string 1 argi))) (setq column (st= ring-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi comman= d-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) co= mmand-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-sa= fe (prog1 command-line-args-left (setq command-line-args-left (cdr command-= line-args-left)))))) (if (stringp tem) nil (error "File name omitted f= rom `%s' option" argi)) (funcall process-file-arg tem)) ((string-m= atch "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warn= ing '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 (fun= call (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string= -match "\\`-" argi) (error "Unknown option `%s'" ar= gi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcal= l process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (= kill-emacs nil))))))))
=C2=A0 (let ((displayable-buffers nil)) (let ((co= mmand-line-args-left args-left)) (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" "--director= y" "--eval" "--execute" "--no-splash" &q= uot;--find-file" "--visit" "--file" "--no-des= ktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) c= ommand-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda = (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignori= ng relative file name (%s) due to nil default-directory" name) (let* (= (file (expand-file-name (command-line-normalize-file-name name) dir)) (buf = (find-file-noselect file))) (file-name-history--add file) (setq displayable= -buffers (cons buf displayable-buffers)) (set-buffer buf) (if (=3D 0 line) = nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (&l= t; column 1) nil (move-to-column (1- column))) (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 --doli= st-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 (car tem)) longopts))) (se= tq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left = (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completi= on) (setq command-line-args-left (cdr command-line-args-left)) (if just-fil= es (setq argi "") (if (string-match "\\`\\(--[^=3D]*\\)=3D&q= uot; argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq= argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" or= ig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq co= mpletion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((= elt (member completion longopts))) (or elt (error "Option `%s' is = ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq ar= gval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-= switch-alist)) (if argval (let ((command-line-args-left (cons argval comman= d-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((= equal argi "-no-splash") (setq inhibit-startup-screen t)) ((membe= r argi '("-f" "-funcall" "-e")) (setq inh= ibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 comman= d-line-args-left (setq command-line-args-left (cdr command-line-args-left))= ))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member arg= i '("-eval" "-execute")) (setq inhibit-startup-scre= en t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (= setq command-line-args-left (cdr command-line-args-left)))))) (read-data (r= ead-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (i= f (string-match-p "[ \11\n]*\\'" str-expr end) nil (error &qu= ot;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-separa= tor) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq com= mand-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (su= bstring tem 1)) (setq 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 (progn (setq load-pa= th (cons tem load-path)) (setq splice load-path)))))) ((member argi '(&= quot;-l" "-load")) (let* ((file (command-line-normalize-file= -name (or argval (car-safe (prog1 command-line-args-left (setq command-line= -args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expa= nd-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-e= x))) (load file nil t))) ((member argi '("-scriptload" "= -scripteval")) (let* ((file (command-line-normalize-file-name (or argv= al (car-safe (prog1 command-line-args-left (setq command-line-args-left (cd= r command-line-args-left))))))) (file-ex (expand-file-name file)) (truename= (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-e= x truename))) (if (equal argi "-scripteval") (command-line--eval-= script file-ex) (command-line--load-script file-ex)))) ((equal argi "-= insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-saf= e (prog1 command-line-args-left (setq command-line-args-left (cdr command-l= ine-args-left)))))) (or (stringp tem) (error "File name omitted from `= -insert' option")) (insert-file-contents (command-line-normalize-f= ile-name tem))) ((or (equal argi "-dump-file") (equal argi "= -seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq c= ommand-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 is no= t loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq l= ine (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9= ]+\\)\\'" argi) (progn (setq line (string-to-number (match-string = 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq t= em (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-l= eft (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-ar= gi 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) (s= etq tem (or argval (car-safe (prog1 command-line-args-left (setq command-li= ne-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 ob= solete arg %s" argi))) ((equal argi "--") (setq just-files t= )) (t (let ((hooks command-line-functions) (did- =C2=A0ELC+ELN =C2=A0../lis= p/emacs-lisp/byte-run.elc
hook nil)) (while (and hooks (not (setq did-ho= ok (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if = (string-match "\\`-" argi) (error "Unknown option `%s'&q= uot; 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)))))))) (if (eq initial-buffer-choice t) (progn (get-= scratch-buffer-create))) (and initial-scratch-message (get-buffer "*sc= ratch*") (save-current-buffer (set-buffer "*scratch*") (if (= =3D 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratc= h-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (prog= n (let ((buf (cond ((stringp initial-buffer-choice) (find-file-noselect ini= tial-buffer-choice)) ((functionp initial-buffer-choice) (funcall initial-bu= ffer-choice)) ((eq initial-buffer-choice t) (get-scratch-buffer-create)) (t= (error "`initial-buffer-choice' must be a string, a function, or = t"))))) (if (buffer-live-p buf) nil (error "Value returned by `in= itial-buffer-choice' is not a live buffer: %S" buf)) (setq display= able-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayab= le-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil) (= old-face-font-rescale-alist face-font-rescale-alist)) (if (> displayable= -buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (cond= ((=3D displayable-buffers-len 2) (switch-to-buffer-other-window (car (cdr = displayable-buffers))) (other-window -1)) ((> displayable-buffers-len 2)= (let ((bufs (reverse (cdr displayable-buffers)))) (switch-to-buffer-other-= window (car-safe (prog1 bufs (setq bufs (cdr bufs))))) (let ((--dolist-tail= -- bufs)) (while --dolist-tail-- (let ((buf (car --dolist-tail--))) (switch= -to-buffer buf nil t) (setq --dolist-tail-- (cdr --dolist-tail--))))) (othe= r-window -1)))) (if (> displayable-buffers-len 2) (progn (setq nondispla= yed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice non= interactive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p = (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffer= s))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (and (dis= play-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-a= list)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-fon= t-rescale-alist #'string-match-p)) (progn (set-face-attribute 'defa= ult nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) = (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (s= etq inhibit-startup-hooks t) (display-startup-screen (> displayable-buff= ers-len 0)))))
=C2=A0 command-line-1(("--eval" "(setq loa= d-prefer-newer t byte-compile-warnings 'all)" "-l" "= ;comp" "-f" "batch-byte+native-compile" "inte= rnational/titdic-cnv.el"))
=C2=A0 (let (xdg-dir startup-init-direct= ory) (progn (setq before-init-time (current-time)) (setq after-init-time ni= l) (setq command-line-default-directory default-directory)) (setq abbreviat= ed-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((e= q vc nil)) ((member vc '("t" "numbered")) (setq ver= sion-control t)) ((member vc '("nil" "existing")) (= setq version-control nil)) ((member vc '("never" "simple= ")) (setq version-control 'never)))) (let ((simple-file-name (loca= te-file "simple" load-path (get-load-suffixes)))) (if (null simpl= e-file-name) (let ((standard-output 'external-debugging-output) (lispdi= r (expand-file-name "../lisp" data-directory))) (princ "Warn= ing: Could not find simple.el or simple.elc") (terpri) (if (getenv &qu= ot;EMACSLOADPATH") (progn (princ "The EMACSLOADPATH environment v= ariable is set, please check its value") (terpri))) (if (file-readable= -p lispdir) nil (princ (format "Lisp directory %s not readable?" = lispdir)) (terpri))) (setq lisp-directory (file-truename (file-name-directo= ry simple-file-name))) (setq load-history (mapcar #'(lambda (elt) (if (= and (stringp (car elt)) (not (file-name-absolute-p (car elt)))) (cons (conc= at lisp-directory (car elt)) (cdr elt)) elt)) load-history)))) (let ((args = command-line-args)) (while args (setcar args (decode-coding-string (car arg= s) locale-coding-system t)) (car-safe (prog1 args (setq args (cdr args)))))= ) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-f= ile-user (if noninteractive nil (user-login-name))) (and init-file-user (eq= ual init-file-user (user-real-login-name)) (setq init-file-user ""= ;)) (while (and (not done) args) (let* ((longopts '(("--no-init-fi= le") ("--no-site-file") ("--no-x-resources") (&quo= t;--debug-init") ("--user") ("--iconic") ("--= icon-type") ("--quick") ("--no-blinking-cursor") (= "--basic-display") ("--dump-file") ("--temacs"= ;) ("--seccomp") ("--init-directory"))) (argi (car-safe= (prog1 args (setq args (cdr args))))) (orig-argi argi) argval) (if (string= -match "\\`\\(--[^=3D]*\\)=3D" argi) (progn (progn (setq argval (= substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (st= ring-match "\\`--." orig-argi) (progn (let ((completion (try-comp= letion argi longopts))) (cond ((eq completion t) (setq argi (substring argi= 1))) ((stringp completion) (let ((elt (assoc completion longopts))) (if el= t nil (error "Option `%s' is ambiguous" argi)) (setq argi (su= bstring (car elt) 1)))) (t (progn (setq argval nil) (setq argi orig-argi)))= )))) (if (equal argi "-scripteval") (progn (progn (setq init-file= -user nil) (setq noninteractive t)))) (cond ((member argi '("-d&qu= ot; "-display")) (setq display-arg (list argi (car-safe (prog1 ar= gs (setq args (cdr args))))))) ((member argi '("-Q" "-qu= ick")) (progn (setq init-file-user nil) (setq site-run-file nil) (setq= inhibit-x-resources t)) (put 'site-run-file 'standard-value '(= nil))) ((member argi '("-no-x-resources")) (setq inhibit-x-re= sources t)) ((member argi '("-D" "-basic-display"))= (progn (setq no-blinking-cursor t) (setq emacs-basic-display t)) (setq ini= tial-frame-alist (cons '(vertical-scroll-bars) initial-frame-alist))) (= (member argi '("-q" "-no-init-file")) (setq init-fi= le-user nil)) ((member argi '("-init-directory")) (progn (set= q user-emacs-directory (or argval (car-safe (prog1 args (setq args (cdr arg= s)))))) (setq argval nil))) ((member argi '("-u" "-user&= quot;)) (progn (setq init-file-user (or argval (car-safe (prog1 args (setq = args (cdr args)))))) (setq argval nil))) ((equal argi "-no-site-file&q= uot;) (setq site-run-file nil) (put 'site-run-file 'standard-value = '(nil))) ((equal argi "-debug-init") (setq init-file-debug t)= ) ((equal argi "-iconic") (setq initial-frame-alist (cons '(v= isibility . icon) initial-frame-alist))) ((member argi '("-nbc&quo= t; "-no-blinking-cursor")) (setq no-blinking-cursor t)) ((member = argi '("-dump-file" "-temacs" "-seccomp")= ) (or argval (car-safe (prog1 args (setq args (cdr args))))) (setq argval n= il)) (t (setq args (cons argi args)) (setq done t))) (and argval (error &qu= ot;Option `%s' doesn't allow an argument" argi)))) (and displa= y-arg (setq args (append display-arg args))) (and command-line-args (setcdr= command-line-args args))) (let ((user-emacs-directory-warning nil)) (if (l= istp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-se= tting (reverse custom-delayed-init-variables))))) (setq custom-delayed-init= -variables t) (if init-file-user (progn (if (string-match "[~/:\n]&quo= t; init-file-user) (display-warning 'initialization (format "Inval= id user name %s" init-file-user) :error) (if (file-directory-p (expand= -file-name (if (memq system-type '(windows-nt ms-dos)) "~" (c= oncat "~" init-file-user)))) nil (display-warning 'initializa= tion (format "User %s has no home directory" (if (equal init-file= -user "") (user-real-login-name) init-file-user)) :error))))) (se= tq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if= (or (=3D 0 (length init-file-user)) (and (eq xdg-dir user-emacs-directory)= (not (eq xdg-dir startup--xdg-config-default)))) user-emacs-directory (set= q xdg-dir (concat "~" init-file-user "/.config/emacs/")= ) (startup--xdg-or-homedot xdg-dir init-file-user) =C2=A0ELC+ELN =C2=A0../l= isp/emacs-lisp/cl-generic.elc
)) (startup--load-user-init-file #'(la= mbda nil (expand-file-name "early-init.el" startup-init-directory= ))) (setq early-init-file user-init-file) (if (featurep 'native-compile= ) (progn (startup--update-eln-cache))) (and user-init-file package-enable-a= t-startup (not (and (boundp 'package--activated) package--activated)) (= catch 'package-dir-found (let ((dirs (cons package-user-dir package-dir= ectory-list))) (let ((--dolist-tail-- dirs)) (while --dolist-tail-- (let ((= dir (car --dolist-tail--))) (if (file-directory-p dir) (progn (let ((--doli= st-tail-- (directory-files dir))) (while --dolist-tail-- (let ((subdir (car= --dolist-tail--))) (if (let ((subdir (expand-file-name subdir dir))) (and = (file-directory-p subdir) (file-exists-p (expand-file-name (package--descri= ption-file subdir) subdir)))) (progn (throw 'package-dir-found t))) (se= tq --dolist-tail-- (cdr --dolist-tail--))))))) (setq --dolist-tail-- (cdr -= -dolist-tail--))))))) (package-activate-all)) (condition-case error (if non= interactive nil (if (and initial-window-system (not (featurep (intern (conc= at (symbol-name initial-window-system) "-win"))))) (error "U= nsupported window system `%s'" initial-window-system)) (setq comma= nd-line-args (let ((window-system initial-window-system)) (handle-args-func= tion command-line-args))) (let ((window-system initial-window-system)) (win= dow-system-initialization)) (put initial-window-system 'window-system-i= nitialized t)) (error (princ (if (eq (car error) 'error) (apply 'co= ncat (cdr error)) (if (memq 'file-error (get (car error) 'error-con= ditions)) (format "%s: %s" (nth 1 error) (mapconcat #'(lambda= (obj) (prin1-to-string obj t)) (cdr (cdr error)) ", ")) (format = "%s: %s" (get (car error) 'error-message) (mapconcat #'(l= ambda (obj) (prin1-to-string obj t)) (cdr error) ", ")))) 'ex= ternal-debugging-output) (terpri 'external-debugging-output) (setq init= ial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if= (daemonp) nil (if (or noninteractive emacs-basic-display) (progn (setq men= u-bar-mode nil) (setq tab-bar-mode nil) (setq tool-bar-mode nil))) (frame-i= nitialize)) (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-fram= e) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (l= et ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-f= onts face-ignored-fonts)) (if site-run-file (let ((inhibit-startup-screen i= nhibit-startup-screen)) (load site-run-file t t))) (startup--load-user-init= -file #'(lambda nil (cond ((eq startup-init-directory xdg-dir) nil) ((e= q system-type 'ms-dos) (concat "~" init-file-user "/_ema= cs")) ((not (eq system-type 'windows-nt)) (concat "~" in= it-file-user "/.emacs")) ((directory-files "~" nil &quo= t;\\`\\.emacs\\(\\.elc?\\)?\\'") "~/.emacs") ((directory= -files "~" nil "\\`_emacs\\(\\.elc?\\)?\\'") (setq = delayed-warnings-list (cons (list 'initialization (format-message "= ;`_emacs' init file is deprecated, please use `.emacs'")) dela= yed-warnings-list)) "~/_emacs") (t "~/.emacs"))) #'= (lambda nil (expand-file-name "init.el" startup-init-directory)) = t) (if (featurep 'native-compile) (progn (startup--update-eln-cache))) = (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer (= set-buffer (window-buffer)) (deactivate-mark)))) (if (and (not noninteracti= ve) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (p= rogn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed ni= l) (and mail-host-address (equal user-mail-address (let (mail-host-address)= (condition-case nil (progn (custom--standard-value 'user-mail-address)= ) (error nil)))) (custom-reevaluate-setting 'user-mail-address)) (if (a= nd (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-= fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-ti= me (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-ho= ok) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer= "*scratch*") (if (eq major-mode 'fundamental-mode) (funcall = initial-major-mode)))) (if (or noninteractive initial-window-system (daemon= p)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq mem= ory-signal-data (list 'error (substitute-command-keys "Memory exha= usted--use \\[save-some-buffers] then exit and restart Emacs"))) (cust= om-reevaluate-setting 'user-emacs-directory-warning) (command-line-1 (c= dr command-line-args)) (if (and user-emacs-directory-warning (not (file-acc= essible-directory-p user-emacs-directory))) (progn (locate-user-emacs-file = ""))) (let (warned) (let ((--dolist-tail-- load-path)) (while --d= olist-tail-- (let ((dir (car --dolist-tail--))) (and (not warned) (stringp = dir) (string-equal (file-name-as-directory (expand-file-name dir)) (expand-= file-name user-emacs-directory)) (setq warned t) (display-warning 'init= ialization (format-message "Your `load-path' seems to contain\nyou= r `.emacs.d' directory: %s\nThis is likely to cause problems...\nConsid= er using a subdirectory instead, e.g.: %s" dir (expand-file-name "= ;lisp" user-em =C2=A0ELC+ELN =C2=A0../lisp/emacs-lisp/cl-preloaded.elc=
acs-directory)) :warning)) (setq --dolist-tail-- (cdr --dolist-tail--))= )))) (if noninteractive (kill-emacs t)) (let ((dn (daemonp))) (if dn (progn= (if (stringp dn) (progn (setq server-name dn))) (server-start) (if server-= process (daemon-initialized) (if (stringp dn) (message "Unable to star= t daemon: Emacs server named %S already running" server-name) (message= "Unable to start the daemon.\nAnother instance of Emacs is running th= e server, either as daemon or interactively.\nYou can use emacsclient to co= nnect to that Emacs process.")) (kill-emacs 1))))) (if (and (boundp &#= 39;x-session-previous-id) (stringp x-session-previous-id)) (with-no-warning= s (emacs-session-restore x-session-previous-id))))
=C2=A0 command-line()=
=C2=A0 (unwind-protect (command-line) (if default-directory (setq defau= lt-directory (abbreviate-file-name default-directory))) (or auto-save-list-= file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (c= ond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto= -save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-s= ave-list-file-prefix)) "~")) (t (expand-file-name (format "%= s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (= if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-s= etup-hook)) (if (or frame-initial-frame (not (and initial-window-system (no= t noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (a= nd (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-re= scale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) f= ace-font-rescale-alist #'string-match-p)) (progn (set-face-attribute &#= 39;default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-set= tings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background= -mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'fo= nt-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil= (run-hooks 'window-setup-hook)))
=C2=A0 (let ((old-face-font-rescal= e-alist face-font-rescale-alist)) (unwind-protect (command-line) (if defaul= t-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 (f= ile-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (= expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-fi= le-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid)= (system-name)))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-s= tartup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and in= itial-window-system (not noninteractive) (not (eq initial-window-system = 9;pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale= -alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute= 'default :font)) face-font-rescale-alist #'string-match-p)) (progn= (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp = 9;frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp &#= 39;frame-set-background-mode) (frame-set-background-mode (selected-frame)))= )) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if in= hibit-startup-hooks nil (run-hooks 'window-setup-hook))))
=C2=A0 (if= command-line-processed (message internal--top-level-message) (setq command= -line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-h= ome (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (co= ncat xdg-config-home "/emacs/") startup--xdg-config-default))) (s= etq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-= emacs nil)) (if (featurep 'native-compile) (progn (if (native-comp-avai= lable-p) nil (progn (setq native-comp-deferred-compilation nil) (setq comp-= enable-subr-trampolines nil))) (let ((path-env (getenv "EMACSNATIVELOA= DPATH"))) (if path-env (progn (let ((--dolist-tail-- (split-string pat= h-env path-separator))) (while --dolist-tail-- (let ((path (car --dolist-ta= il--))) (if (string=3D "" path) nil (setq native-comp-eln-load-pa= th (cons path native-comp-eln-load-path))) (setq --dolist-tail-- (cdr --dol= ist-tail--)))))))) (setq native-comp-eln-load-path (cons (expand-file-name = "eln-cache/" user-emacs-directory) 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-nam= e "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq = system-type '(ms-dos windows-nt)) (progn (setq eol-mnemonic-unix "= (Unix)") (setq eol-mnemonic-mac "(Mac)"))) (t (progn (setq e= ol-mnemonic-dos "(DOS)") (setq eol-mnemonic-mac "(Mac)"= )))) (set-locale-environment nil) (if locale-coding-system (progn (let ((co= ding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))= ) (save-excursion (let ((--dolist-tail-- (buffer-list))) (while --dolist-ta= il-- (let ((elt (car --dolist-tail--))) (set-buffer elt) (if default-direct= ory (setq default-directory (if (eq system-type 'windows-nt) (let ((def= dir (decode-coding-string default-directory coding t))) (expand-file-name d= efdir defdir)) (decode-coding-string default-directory coding t)))) (setq -= -dolist-tail-- (cdr --dolist-tail--)))))) (let ((--dolist-tail-- '(load= -path exec-path))) (while --dolist-tail-- (let ((pathsym (car --dolist-tail= --))) (let ((path (symbol-value pathsym))) (if (listp path) (set pathsym (m= apcar #'(lambda (dir) (decode-coding-string dir coding t)) path)))) (se= tq --dolist-tail-- (cdr --dolist-tail--))))) (if (featurep 'native-comp= ile) (progn (let ((npath (symbol-value 'native-comp-eln-load-path))) (s= et 'native-comp-eln-load-path (mapcar #'(lambda (dir) (expand-file-= name (decode-coding-string dir coding t))) npath))) (setq startup--original= -eln-load-path (copy-sequence native-comp-eln-load-path)))) (let ((--dolist= -tail-- '(data-directory doc-directory exec-directory installation-dire= ctory invocation-directory invocation-name source-directory shared-game-sco= re-directory))) (while --dolist-tail-- (let ((filesym (car --dolist-tail--)= )) (let ((file (symbol-value filesym))) (if (stringp file) (set filesym (de= code-coding-string file coding t)))) (setq --dolist-tail-- (cdr --dolist-ta= il--)))))))) (let ((dir default-directory)) (save-current-buffer (set-buffe= r "*Messages*") (messages-buffer-mode) (set (make-local-variable = 'window-point-insertion-type) t) (setq default-directory (or dir (expan= d-file-name "~/"))))) (put 'user-full-name 'standard-valu= e (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD&= quot;))) (and pwd (or (and default-directory (condition-case nil (progn (eq= ual (file-attributes (file-name-as-directory pwd)) (file-attributes (file-n= ame-as-directory default-directory)))) (error nil))) (setq process-environm= ent (delete (concat "PWD=3D" pwd) process-environment))))) (if (l= istp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) &= #39;utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lam= bda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if def= ault-directory (setq default-directory (abbreviate-file-name default-direct= ory)) (display-warning 'initialization "Error setting default-dire= ctory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) = (unwind-protect (command-line) (if default-directory (setq default-director= y (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 sy= stem-type 'ms-dos) (make-directory (file-name-directory auto-save-list-= file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-fi= le-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~&quo= t; auto-save-list-file-prefix (emacs-pid) (system-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 nonintera= ctive) (not (eq initial-window-system 'pc))))) (progn (if (and (display= -multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist= )) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-re= scale-alist #'string-match-p)) (progn (set-face-attribute 'default = nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (fra= me-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (fra= me-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=3D" display)) (let ((--dolist-tail-- in= itial-environment)) (while --dolist-tail-- (let ((varval (car --dolist-tail= --))) (if (string-match "\\`DISPLAY=3D" varval) (setq display var= val)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (= delete display process-environment)))))
=C2=A0 normal-top-level()
Loading macroexp.elc...
Internal native compiler error: "internati= onal/titdic-cnv.el", "failing to compile function", #<sym= bol titdic-convert at 16545>, "gcc_jit_context_new_call_through_ptr= : not enough arguments to fn_ptr: freloc->R6e6172726f772d746f2d726567696= f6e_narrow_to_region_0 (got 2 args, expected 3)"
make[3]: *** [Make= file:331: international/titdic-cnv.elc] Error 255
make[3]: Leaving direc= tory '/home/german/repos/emacs/lisp'
make[2]: *** [Makefile:898:= ../lisp/loaddefs.el] Error 2
make[2]: *** Waiting for unfinished jobs..= ..
make[2]: Leaving directory '/home/german/repos/emacs/src'
= make[1]: *** [Makefile:469: src] Error 2
make[1]: Leaving directory '= ;/home/german/repos/emacs'
make: *** [Makefile:1178: bootstrap] Erro= r 2
--000000000000ecda2905e4f1b659--