[package - 132powerpc64le-quarterly][editors/emacs-devel] Failed for emacs-devel-30.0.50.20231231,3 in build

From: <pkg-fallout_at_FreeBSD.org>
Date: Thu, 01 Feb 2024 03:01:12 UTC
You are receiving this mail as a port that you maintain
is failing to build on the FreeBSD package build server.
Please investigate the failure and submit a PR to fix
build.

Maintainer:     emacs@FreeBSD.org
Log URL:        https://pkg-status.freebsd.org/foul2/data/132powerpc64le-quarterly/68593b1d8800/logs/emacs-devel-30.0.50.20231231,3.log
Build URL:      https://pkg-status.freebsd.org/foul2/build.html?mastername=132powerpc64le-quarterly&build=68593b1d8800
Log:

=>> Building editors/emacs-devel
build started at Thu Feb  1 02:43:42 UTC 2024
port directory: /usr/ports/editors/emacs-devel
package name: emacs-devel-30.0.50.20231231,3
building for: FreeBSD 132powerpc64le-quarterly-job-07 13.2-RELEASE FreeBSD 13.2-RELEASE powerpc
maintained by: emacs@FreeBSD.org
Makefile datestamp: -rw-r--r--  1 root  wheel  10016 Jan  6 01:04 /usr/ports/editors/emacs-devel/Makefile
Ports top last git commit: 68593b1d8
Ports top unclean checkout: no
Port dir last git commit: 756e18783
Port dir unclean checkout: no
Poudriere version: poudriere-git-3.4.1
Host OSVERSION: 1500000
Jail OSVERSION: 1302001
Job Id: 07

---Begin Environment---
SHELL=/bin/csh
OSVERSION=1302001
UNAME_v=FreeBSD 13.2-RELEASE
UNAME_r=13.2-RELEASE
BLOCKSIZE=K
MAIL=/var/mail/root
MM_CHARSET=UTF-8
LANG=C.UTF-8
STATUS=1
HOME=/root
PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin
MAKE_OBJDIR_CHECK_WRITABLE=0
LOCALBASE=/usr/local
USER=root
POUDRIERE_NAME=poudriere-git
LIBEXECPREFIX=/usr/local/libexec/poudriere
POUDRIERE_VERSION=3.4.1
MASTERMNT=/usr/local/poudriere/data/.m/132powerpc64le-quarterly/ref
LC_COLLATE=C
POUDRIERE_BUILD_TYPE=bulk
PACKAGE_BUILDING=yes
SAVED_TERM=
OUTPUT_REDIRECTED_STDERR=4
OUTPUT_REDIRECTED=1
PWD=/usr/local/poudriere/data/.m/132powerpc64le-quarterly/07/.p
OUTPUT_REDIRECTED_STDOUT=3
P_PORTS_FEATURES=FLAVORS SUBPACKAGES SELECTED_OPTIONS
MASTERNAME=132powerpc64le-quarterly
SCRIPTPREFIX=/usr/local/share/poudriere
SCRIPTNAME=bulk.sh
OLDPWD=/usr/local/poudriere/data/.m/132powerpc64le-quarterly/ref/.p/pool
POUDRIERE_PKGNAME=poudriere-git-3.4.1
SCRIPTPATH=/usr/local/share/poudriere/bulk.sh
POUDRIEREPATH=/usr/local/bin/poudriere
---End Environment---

---Begin Poudriere Port Flags/Env---
PORT_FLAGS=
PKGENV=
FLAVOR=full
MAKE_ARGS= FLAVOR=full
---End Poudriere Port Flags/Env---

---Begin OPTIONS List---
===> The following configuration options are available for emacs-devel-30.0.50.20231231,3:
     ACL=on: Access control list support
     DBUS=on: D-Bus IPC system support
     GNUTLS=on: SSL/TLS support via GnuTLS
     GSETTINGS=on: GSettings API for application settings
     HARFBUZZ=on: HarfBuzz for text shaping
     JSON=on: JSON file/format/parser support
     LCMS2=on: Little CMS 2.x support
     M17N=off: M17N support for text-shaping [implies XFT]
     MAILUTILS=on: Mail framework via GNU Mailutils
     MODULES=on: Dynamic modules support
     NATIVECOMP=on: Emacs Lisp native compiler support
     OTF=off: Opentype fonts
     PGTK=on: Pure GTK GUI [implies CAIRO, GTK3]
     SCROLLBARS=on: Toolkit scroll-bars
     SOURCES=on: Install sources
     SQLITE3=on: SQLite 3 database support
     THREADS=on: Threading support
     TREESITTER=on: tree-sitter support
     XFT=off: Xft font library support
     XIM=off: X Input Method
     XML=on: XML format or parser support
     XWIDGETS=off: Experimental GTK widgets [implies GTK3]
====> Graphics support
     CAIRO=on: Cairo graphics library support [implies PNG, prevents XFT]
     GIF=on: GIF image format support
     JPEG=on: JPEG image format support
     MAGICK=off: ImageMagick image processing support (deprecated)
     PNG=on: PNG image format support
     SVG=on: Scalable vector graphics support [implies PNG]
     TIFF=on: TIFF image format support
     WEBP=on: WebP image format support
     XPM=off: XPM pixmap image format support
====> File notification support: you can only select none or one of them
     GFILE=off: File notification via gfile
     KQUEUE=on: File notification via kqueue
====> Sound (audio) support: you can only select none or one of them
     ALSA=off: ALSA audio architecture support
     OSS=on: Open Sound System support
====> X11 toolkit: you can only select none or one of them
     GTK2=off: GTK 2 GUI toolkit support
     GTK3=on: GTK 3 GUI toolkit support
     MOTIF=off: Motif widget library support
     XAW=off: Athena widgets
     XAW3D=off: Athena3D widgets
===> Use 'make config' to modify these settings
---End OPTIONS List---

--MAINTAINER--
emacs@FreeBSD.org
--End MAINTAINER--

--CONFIGURE_ARGS--
--disable-build-details  --localstatedir=/var  --without-gconf  --without-libsystemd  --without-selinux --with-x --enable-acl --with-cairo --with-dbus --with-gif --with-gnutls --with-gsettings --with-x-toolkit=gtk3 --with-harfbuzz --with-jpeg --with-json --with-file-notification=kqueue --with-lcms2 --without-m17n-flt --without-imagemagick --with-mailutils --with-modules --with-native-compilation=aot --with-sound=oss --without-libotf --with-pgtk --with-png --with-toolkit-scroll-bars --with-sqlite3 --with-rsvg --with-threads --with-tiff --with-tree-sitter --with-webp --without-xft --without-xim --with-xml2 --without-xpm --without-xwidgets --prefix=/usr/local ${_LATE_CONFIGURE_ARGS}
--End CONFIGURE_ARGS--

--CONFIGURE_ENV--
ac_cv_header_sys_sysinfo_h=no MAKE=gmake PKG_CONFIG=pkgconf XDG_DATA_HOME=/wrkdirs/usr/ports/editors/emacs-devel/work-full  XDG_CONFIG_HOME=/wrkdirs/usr/ports/editors/emacs-devel/work-full  XDG_CACHE_HOME=/wrkdirs/usr/ports/editors/emacs-devel/work-full/.cache  HOME=/wrkdirs/usr/ports/editors/emacs-devel/work-full TMPDIR="/tmp" PATH=/wrkdirs/usr/ports/editors/emacs-devel/work-full/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/editors/emacs-devel/work-full/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig SHELL=/bin/sh CONFIG_SHELL=/bin/sh ADDR2LINE="/usr/local/bin/addr2line" AR="/usr/local/bin/ar" AS="/usr/local/bin/as" CPPFILT="/usr/local/bin/c++filt" GPROF="/usr/local/bin/gprof" LD="/usr/local/bin/ld" NM="/usr/local/bin/nm" OBJCOPY="/usr/local/bin/objcopy" OBJDUMP="/usr/local/bin/objdump" RANLIB="/usr/local/bin/ranlib" READELF="/usr/local/bin/readelf" SIZE="/usr/local/bin/size
 " STRINGS="/usr/local/bin/strings" DEFAULT_AUTOCONF=2.71 CMAKE_PREFIX_PATH="/usr/local" LANG=en_US.UTF-8 LC_ALL=en_US.UTF-8 CONFIG_SITE=/usr/ports/Templates/config.site lt_cv_sys_max_cmd_len=524288
--End CONFIGURE_ENV--

--MAKE_ENV--
XDG_DATA_HOME=/wrkdirs/usr/ports/editors/emacs-devel/work-full  XDG_CONFIG_HOME=/wrkdirs/usr/ports/editors/emacs-devel/work-full  XDG_CACHE_HOME=/wrkdirs/usr/ports/editors/emacs-devel/work-full/.cache  HOME=/wrkdirs/usr/ports/editors/emacs-devel/work-full TMPDIR="/tmp" PATH=/wrkdirs/usr/ports/editors/emacs-devel/work-full/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/editors/emacs-devel/work-full/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig MK_DEBUG_FILES=no MK_KERNEL_SYMBOLS=no SHELL=/bin/sh NO_LINT=YES ADDR2LINE="/usr/local/bin/addr2line" AR="/usr/local/bin/ar" AS="/usr/local/bin/as" CPPFILT="/usr/local/bin/c++filt" GPROF="/usr/local/bin/gprof" LD="/usr/local/bin/ld" NM="/usr/local/bin/nm" OBJCOPY="/usr/local/bin/objcopy" OBJDUMP="/usr/local/bin/objdump" RANLIB="/usr/local/bin/ranlib" READELF="/usr/local/bin/readelf" SIZE="/usr/local/bin/size" STRINGS="/usr/local/bin/stri
 ngs" DEFAULT_AUTOCONF=2.71 LANG=en_US.UTF-8 LC_ALL=en_US.UTF-8 PREFIX=/usr/local  LOCALBASE=/usr/local  CC="gcc12" CFLAGS="-O2 -pipe  -fstack-protector-strong -Wl,-rpath=/usr/local/lib/gcc12 -isystem /usr/local/include -fno-strict-aliasing "  CPP="cpp12" CPPFLAGS="-isystem /usr/local/include"  LDFLAGS=" -fstack-protector-strong -Wl,-rpath=/usr/local/lib/gcc12 -L/usr/local/lib/gcc12 -L/usr/local/lib " LIBS=""  CXX="g++12" CXXFLAGS="-O2 -pipe  -fstack-protector-strong -Wl,-rpath=/usr/local/lib/gcc12  -Wl,-rpath=/usr/local/lib/gcc12 -isystem /usr/local/include "  MANPREFIX="/usr/local" BSD_INSTALL_PROGRAM="install  -s -m 555"  BSD_INSTALL_LIB="install  -s -m 0644"  BSD_INSTALL_SCRIPT="install  -m 555"  BSD_INSTALL_DATA="install  -m 0644"  BSD_INSTALL_MAN="install  -m 444"
--End MAKE_ENV--

--PLIST_SUB--
EMACS_VER=30.0.50  GNU_HOST=powerpc64le-portbld-freebsd13.2 ACL="" NO_ACL="@comment " ALSA="@comment " NO_ALSA="" CAIRO="" NO_CAIRO="@comment " DBUS="" NO_DBUS="@comment " GFILE="@comment " NO_GFILE="" GIF="" NO_GIF="@comment " GNUTLS="" NO_GNUTLS="@comment " GSETTINGS="" NO_GSETTINGS="@comment " GTK2="@comment " NO_GTK2="" GTK3="" NO_GTK3="@comment " HARFBUZZ="" NO_HARFBUZZ="@comment " JPEG="" NO_JPEG="@comment " JSON="" NO_JSON="@comment " KQUEUE="" NO_KQUEUE="@comment " LCMS2="" NO_LCMS2="@comment " M17N="@comment " NO_M17N="" MAGICK="@comment " NO_MAGICK="" MAILUTILS="" NO_MAILUTILS="@comment " MODULES="" NO_MODULES="@comment " MOTIF="@comment " NO_MOTIF="" NATIVECOMP="" NO_NATIVECOMP="@comment " OSS="" NO_OSS="@comment " OTF="@comment " NO_OTF="" PGTK="" NO_PGTK="@comment " PNG="" NO_PNG="@comment " SCROLLBARS="" NO_SCROLLBARS="@comment " SOURCES="" NO_SOURCES="@comment " SQLITE3="" NO_SQLITE3="@comment " SVG="" NO_SVG="@comment " THREADS="" NO_THREADS="@comment " TIFF="" NO_TIF
 F="@comment " TREESITTER="" NO_TREESITTER="@comment " WEBP="" NO_WEBP="@comment " XAW="@comment " NO_XAW="" XAW3D="@comment " NO_XAW3D="" XFT="@comment " NO_XFT="" XIM="@comment " NO_XIM="" XML="" NO_XML="@comment " XPM="@comment " NO_XPM="" XWIDGETS="@comment " NO_XWIDGETS="" GTK2_VERSION="2.10.0"  GTK3_VERSION="3.0.0"  GTK4_VERSION="4.0.0" OSREL=13.2 PREFIX=%D LOCALBASE=/usr/local  RESETPREFIX=/usr/local LIB32DIR=lib DOCSDIR="share/doc/emacs"  EXAMPLESDIR="share/examples/emacs"  DATADIR="share/emacs"  WWWDIR="www/emacs"  ETCDIR="etc/emacs"
--End PLIST_SUB--

--SUB_LIST--
EMACS_VER=30.0.50  NATIVECOMP_COMMENT_END=  NATIVECOMP_COMMENT_START= ACL="" NO_ACL="@comment " ALSA="@comment " NO_ALSA="" CAIRO="" NO_CAIRO="@comment " DBUS="" NO_DBUS="@comment " GFILE="@comment " NO_GFILE="" GIF="" NO_GIF="@comment " GNUTLS="" NO_GNUTLS="@comment " GSETTINGS="" NO_GSETTINGS="@comment " GTK2="@comment " NO_GTK2="" GTK3="" NO_GTK3="@comment " HARFBUZZ="" NO_HARFBUZZ="@comment " JPEG="" NO_JPEG="@comment " JSON="" NO_JSON="@comment " KQUEUE="" NO_KQUEUE="@comment " LCMS2="" NO_LCMS2="@comment " M17N="@comment " NO_M17N="" MAGICK="@comment " NO_MAGICK="" MAILUTILS="" NO_MAILUTILS="@comment " MODULES="" NO_MODULES="@comment " MOTIF="@comment " NO_MOTIF="" NATIVECOMP="" NO_NATIVECOMP="@comment " OSS="" NO_OSS="@comment " OTF="@comment " NO_OTF="" PGTK="" NO_PGTK="@comment " PNG="" NO_PNG="@comment " SCROLLBARS="" NO_SCROLLBARS="@comment " SOURCES="" NO_SOURCES="@comment " SQLITE3="" NO_SQLITE3="@comment " SVG="" NO_SVG="@comment " THREADS="" NO_THREADS="@comment " TIFF
 ="" NO_TIFF="@comment " TREESITTER="" NO_TREESITTER="@comment " WEBP="" NO_WEBP="@comment " XAW="@comment " NO_XAW="" XAW3D="@comment " NO_XAW3D="" XFT="@comment " NO_XFT="" XIM="@comment " NO_XIM="" XML="" NO_XML="@comment " XPM="@comment " NO_XPM="" XWIDGETS="@comment " NO_XWIDGETS="" PREFIX=/usr/local LOCALBASE=/usr/local  DATADIR=/usr/local/share/emacs DOCSDIR=/usr/local/share/doc/emacs EXAMPLESDIR=/usr/local/share/examples/emacs  WWWDIR=/usr/local/www/emacs ETCDIR=/usr/local/etc/emacs
--End SUB_LIST--

---Begin make.conf---
USE_PACKAGE_DEPENDS=yes
BATCH=yes
WRKDIRPREFIX=/wrkdirs
PORTSDIR=/usr/ports
PACKAGES=/packages
DISTDIR=/distfiles
PACKAGE_BUILDING=yes
PACKAGE_BUILDING_FLAVORS=yes
####  ####
# XXX: We really need this but cannot use it while 'make checksum' does not
# try the next mirror on checksum failure.  It currently retries the same
# failed mirror and then fails rather then trying another.  It *does*
# try the next if the size is mismatched though.
#MASTER_SITE_FREEBSD=yes
# Build ALLOW_MAKE_JOBS_PACKAGES with 3 jobs
MAKE_JOBS_NUMBER=3
#### Misc Poudriere ####
.include "/etc/make.conf.ports_env"
GID=0
UID=0
---End make.conf---
--Resource limits--
cpu time               (seconds, -t)  unlimited
file size           (512-blocks, -f)  unlimited
data seg size           (kbytes, -d)  33554432
stack size              (kbytes, -s)  524288
core file size      (512-blocks, -c)  unlimited
max memory size         (kbytes, -m)  unlimited
locked memory           (kbytes, -l)  unlimited
max user processes              (-u)  89999
open files                      (-n)  8192
virtual mem size        (kbytes, -v)  unlimited
swap limit              (kbytes, -w)  unlimited
socket buffer size       (bytes, -b)  unlimited
pseudo-terminals                (-p)  unlimited
kqueues                         (-k)  unlimited
umtx shared locks               (-o)  unlimited
--End resource limits--
=======================<phase: check-sanity   >============================
===== env: NO_DEPENDS=yes USER=root UID=0 GID=0
===>  License GPLv3+ accepted by the user
===========================================================================
=======================<phase: pkg-depends    >============================
===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0
===>   emacs-devel-30.0.50.20231231,3 depends on file: /usr/local/sbin/pkg - not found
===>   Installing existing package /packages/All/pkg-1.20.9.pkg
[132powerpc64le-quarterly-job-07] Installing pkg-1.20.9...
[132powerpc64le-quarterly-job-07] Extracting pkg-1.20.9: .......... done
===>   emacs-devel-30.0.50.20231231,3 depends on file: /usr/local/sbin/pkg - found
===>   Returning to build of emacs-devel-30.0.50.20231231,3
===========================================================================
=======================<phase: fetch-depends  >============================
===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0
===========================================================================
=======================<phase: fetch          >============================
===== env: NO_DEPENDS=yes USER=root UID=0 GID=0
===>  License GPLv3+ accepted by the user
===> Fetching all distfiles required by emacs-devel-30.0.50.20231231,3 for building
===========================================================================
=======================<phase: checksum       >============================
===== env: NO_DEPENDS=yes USER=root UID=0 GID=0
===>  License GPLv3+ accepted by the user
===> Fetching all distfiles required by emacs-devel-30.0.50.20231231,3 for building
=> SHA256 Checksum OK for emacs-mirror-emacs-30.0.50.20231231-91f316d_GH0.tar.gz.
===========================================================================
<snip>
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/macroexp.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/pcase.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/macroexp.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/cus-face.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/faces.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/ldefs-boot.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/button.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/cl-preloaded.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/oclosure.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/obarray.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/abbrev.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/help.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/jka-cmpr-hook.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/epa-hook.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/international/mule-cmds.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/case-table.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/international/characters.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/international/charscript.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/international/emoji-zwj.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/composite.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/chinese.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/cyrillic.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/indian.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/sinhala.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/english.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/ethiopic.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/european.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/czech.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/slovak.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/romanian.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/greek.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/hebrew.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/international/cp51932.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/international/eucjp-ms.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/japanese.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/korean.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/lao.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/tai-viet.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/thai.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/tibetan.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/vietnamese.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/misc-lang.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/utf-8-lang.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/georgian.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/khmer.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/burmese.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/cham.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/philippine.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/language/indonesian.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/indent.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/cl-generic.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/simple.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/seq.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/nadvice.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/minibuffer.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/frame.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/startup.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/term/tty-colors.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/font-core.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/syntax.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/font-lock.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/jit-lock.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/mouse.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/scroll-bar.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/select.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/timer.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/easymenu.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/isearch.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/rfn-eshadow.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/menu-bar.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/tab-bar.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/lisp.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/textmodes/page.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/register.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/textmodes/paragraphs.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/progmodes/prog-mode.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/lisp-mode.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/textmodes/text-mode.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/textmodes/fill.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/newcomment.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/replace.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/tabulated-list.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/buff-menu.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/fringe.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/regexp-opt.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/image.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/international/fontset.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/dnd.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/tool-bar.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/dynamic-setting.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/pgtk-dnd.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/term/common-win.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/term/pgtk-win.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/mwheel.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/progmodes/elisp-mode.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/float-sup.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/vc/vc-hooks.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/vc/ediff-hook.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/uniquify.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/electric.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/paren.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/shorthands.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/eldoc.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/cconv.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/cus-start.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/tooltip.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/international/iso-transl.el (source)...
Loading /wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/rmc.el (source)...
Finding pointers to doc strings...
Finding pointers to doc strings...done
Dumping under the name bootstrap-emacs.pdmp
Dumping fingerprint: 32c70f9bbb0278c33f5adc52079bca22ef272663d27cf6c689d0ceacc3896428
Dump complete
Byte counts: header=100 hot=16148876 discardable=200920 cold=11288160
Reloc counts: hot=1121957 discardable=5527
ANCIENT=yes gmake -C ../lisp compile-first EMACS="../src/bootstrap-emacs"
gmake[4]: Entering directory '/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp'
'../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp  \
-l comp -f batch-byte-compile emacs-lisp/macroexp.el
'../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp  \
-l comp -f batch-byte-compile emacs-lisp/cconv.el
'../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp  \
-l comp -f batch-byte-compile emacs-lisp/byte-opt.el
TZ=UTC0 touch -t 197001010000 emacs-lisp/macroexp.elc
'../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp  \
-l comp -f batch-byte-compile emacs-lisp/bytecomp.el
TZ=UTC0 touch -t 197001010000 emacs-lisp/cconv.elc
'../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp  \
-l comp -f batch-byte-compile emacs-lisp/comp.el
TZ=UTC0 touch -t 197001010000 emacs-lisp/byte-opt.elc
'../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp  \
-l comp -f batch-byte-compile emacs-lisp/comp-cstr.el

Loading macroexp.elc (compiled; note, source file is newer)...
Eager macro-expansion failure: (void-variable level)

Error: error ("Eager macro-expansion failure: (void-variable level)")
  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) (fboundp 'cl-defmethod) (condition-case nil (require 'cl-print) (error nil))) #'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 (error "Eager macro-expansion failure: (void-variable level)"))
  signal(error ("Eager macro-expansion failure: (void-variable level)"))
  error("Eager macro-expansion failure: %S" (void-variable level))
  (condition-case err (let ((macroexp--pending-eager-loads (cons load-file-name macroexp--pending-eager-loads))) (if full-p (macroexpand--all-toplevel form) (macroexpand form))) ((debug error) (error "Eager macro-expansion failure: %S" err) form))
  (cond ((eq 'skip (car macroexp--pending-eager-loads)) form) ((and load-file-name (member load-file-name macroexp--pending-eager-loads)) (let* ((bt (delq nil (mapcar #'macroexp--trim-backtrace-frame (macroexp--backtrace)))) (elem (list 'load (file-name-nondirectory load-file-name))) (tail (member elem (cdr (member elem bt))))) (if tail (setcdr tail (list '…))) (if (eq (car-safe (car bt)) 'macroexpand-all) (setq bt (cdr bt))) (if macroexp--debug-eager (debug 'eager-macroexp-cycle) (error "Eager macro-expansion skipped due to cycle:\n  %s" (mapconcat #'prin1-to-string (nreverse bt) " => "))) (setq macroexp--pending-eager-loads (cons 'skip macroexp--pending-eager-loads)) form)) (t (condition-case err (let ((macroexp--pending-eager-loads (cons load-file-name macroexp--pending-eager-loads))) (if full-p (macroexpand--all-toplevel form) (macroexpand form))) ((debug error) (error "Eager macro-expansion failure: %S" err) form))))
  internal-macroexpand-for-load((defalias 'comp-limplify-lap-inst #'(lambda (insn) "Limplify LAP instruction INSN pushing it in the proper basic block." (let ((op (car insn)) (arg (if (consp (cdr insn)) (cadr insn) (cdr insn)))) (comp-op-case (TAG (cl-destructuring-bind (_TAG label-num . label-sp) insn (when label-sp (cl-assert (= (1- label-sp) (comp-limplify-sp comp-pass)))) (comp-emit-annotation (format "LAP TAG %d" label-num)))) (byte-stack-ref (comp-copy-slot (- (comp-sp) arg 1))) (byte-varref (comp-emit-set-call (comp-call 'symbol-value (make-comp-mvar :constant arg)))) (byte-varset (comp-emit (comp-call 'set_internal (make-comp-mvar :constant arg) (comp-slot+1)))) (byte-varbind (comp-emit (comp-call 'specbind (make-comp-mvar :constant arg) (comp-slot+1)))) (byte-call (cl-incf (comp-sp) (- arg)) (comp-emit-set-call (comp-callref 'funcall (1+ arg) (comp-sp)))) (byte-unbind (comp-emit (comp-call 'helper_unbind_n (make-comp-mvar :constant arg)))) (byte-pophandler (comp-emit '(pop-h
 andler))) (byte-pushconditioncase (comp-emit-handler (cddr insn) 'condition-case)) (byte-pushcatch (comp-emit-handler (cddr insn) 'catcher)) (byte-nth auto) (byte-symbolp auto) (byte-consp auto) (byte-stringp auto) (byte-listp auto) (byte-eq auto) (byte-memq auto) (byte-not (comp-emit-set-call (comp-call 'eq (comp-slot-n (comp-sp)) (make-comp-mvar :constant nil)))) (byte-car auto) (byte-cdr auto) (byte-cons auto) (byte-list1 (comp-limplify-listn 1)) (byte-list2 (comp-limplify-listn 2)) (byte-list3 (comp-limplify-listn 3)) (byte-list4 (comp-limplify-listn 4)) (byte-length auto) (byte-aref auto) (byte-aset auto) (byte-symbol-value auto) (byte-symbol-function auto) (byte-set auto) (byte-fset auto) (byte-get auto) (byte-substring auto) (byte-concat2 (comp-emit-set-call (comp-callref 'concat 2 (comp-sp)))) (byte-concat3 (comp-emit-set-call (comp-callref 'concat 3 (comp-sp)))) (byte-concat4 (comp-emit-set-call (comp-callref 'concat 4 (comp-sp)))) (byte-sub1 1-) (byte-add1 1+) (byte-eqlsig
 n =) (byte-gtr >) (byte-lss <) (byte-leq <=)!
  (byte-geq >=) (byte-diff -) (byte-negate (comp-emit-set-call (comp-call 'negate (comp-slot)))) (byte-plus +) (byte-max auto) (byte-min auto) (byte-mult *) (byte-point auto) (byte-goto-char auto) (byte-insert auto) (byte-point-max auto) (byte-point-min auto) (byte-char-after auto) (byte-following-char auto) (byte-preceding-char preceding-char) (byte-current-column auto) (byte-indent-to (comp-emit-set-call (comp-call 'indent-to (comp-slot) (make-comp-mvar :constant nil)))) (byte-scan-buffer-OBSOLETE) (byte-eolp auto) (byte-eobp auto) (byte-bolp auto) (byte-bobp auto) (byte-current-buffer auto) (byte-set-buffer auto) (byte-save-current-buffer (comp-emit (comp-call 'record_unwind_current_buffer))) (byte-set-mark-OBSOLETE) (byte-interactive-p-OBSOLETE) (byte-forward-char auto) (byte-forward-word auto) (byte-skip-chars-forward auto) (byte-skip-chars-backward auto) (byte-forward-line auto) (byte-char-syntax auto) (byte-buffer-substring auto) (byte-delete-region auto) (byte-narrow-to-regio
 n (comp-emit-set-call (comp-call 'narrow-to-region (comp-slot) (comp-slot+1)))) (byte-widen (comp-emit-set-call (comp-call 'widen))) (byte-end-of-line auto) (byte-constant2) (byte-goto (comp-emit-uncond-jump (cddr insn))) (byte-goto-if-nil (comp-emit-cond-jump (comp-slot+1) (make-comp-mvar :constant nil) 0 (cddr insn) nil)) (byte-goto-if-not-nil (comp-emit-cond-jump (comp-slot+1) (make-comp-mvar :constant nil) 0 (cddr insn) t)) (byte-goto-if-nil-else-pop (comp-emit-cond-jump (comp-slot+1) (make-comp-mvar :constant nil) 1 (cddr insn) nil)) (byte-goto-if-not-nil-else-pop (comp-emit-cond-jump (comp-slot+1) (make-comp-mvar :constant nil) 1 (cddr insn) t)) (byte-return (comp-emit `(return ,(comp-slot+1)))) (byte-discard 'pass) (byte-dup (comp-copy-slot (1- (comp-sp)))) (byte-save-excursion (comp-emit (comp-call 'record_unwind_protect_excursion))) (byte-save-window-excursion-OBSOLETE) (byte-save-restriction (comp-emit (comp-call 'helper_save_restriction))) (byte-catch) (byte-unwind-protec
 t (comp-emit (comp-call 'helper_unwind_prote!
 ct (comp-!
 slot+1)))) (byte-condition-case) (byte-temp-output-buffer-setup-OBSOLETE) (byte-temp-output-buffer-show-OBSOLETE) (byte-set-marker auto) (byte-match-beginning auto) (byte-match-end auto) (byte-upcase auto) (byte-downcase auto) (byte-string= string-equal) (byte-string< string-lessp) (byte-equal auto) (byte-nthcdr auto) (byte-elt auto) (byte-member auto) (byte-assq auto) (byte-nreverse auto) (byte-setcar auto) (byte-setcdr auto) (byte-car-safe auto) (byte-cdr-safe auto) (byte-nconc auto) (byte-quo /) (byte-rem %) (byte-numberp auto) (byte-integerp auto) (byte-listN (cl-incf (comp-sp) (- 1 arg)) (comp-emit-set-call (comp-callref 'list arg (comp-sp)))) (byte-concatN (cl-incf (comp-sp) (- 1 arg)) (comp-emit-set-call (comp-callref 'concat arg (comp-sp)))) (byte-insertN (cl-incf (comp-sp) (- 1 arg)) (comp-emit-set-call (comp-callref 'insert arg (comp-sp)))) (byte-stack-set (comp-copy-slot (1+ (comp-sp)) (- (comp-sp) arg -1))) (byte-stack-set2 (cl-assert nil)) (byte-discardN (cl-incf (comp-
 sp) (- arg))) (byte-switch (comp-emit-switch (comp-slot+1) (cl-first (comp-block-insns (comp-limplify-curr-block comp-pass))))) (byte-constant (comp-emit-setimm arg)) (byte-discardN-preserve-tos (cl-incf (comp-sp) (- arg)) (comp-copy-slot (+ arg (comp-sp)))))))) t)
  eval-buffer(#<buffer  *load*> nil "/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/comp.el" nil t)
  (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t))
  (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)))
  (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil) shorthands) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (setq shorthands (and hack-read-symbol-shorthands-function (funcall hack-read-symbol-shorthands-function))) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t))))
  (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil) shorthands) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (setq shorthands (and hack-read-symbol-shorthands-function (funcall hack-read-symbol-shorthands-function))) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)))) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer)))
  (let ((buffer (generate-new-buffer " *load*")) (load-in-progress t) (source (string-suffix-p ".el" fullname))) (unless nomessage (if source (message "Loading %s (source)..." file) (message "Loading %s..." file))) (when purify-flag (push (purecopy file) preloaded-file-list)) (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil) shorthands) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (setq shorthands (and hack-read-symbol-shorthands-function (funcall hack-read-symbol-shorthands-function))) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval-function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)))) (let (
 kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) (unless (or nomessage noninteractive) (if source (message "Loading %s (source)...done" file) (message "Loading %s...done" file))) t)
  (if (null (file-readable-p fullname)) (and (null noerror) (signal 'file-error (list "Cannot open load file" file))) (let ((buffer (generate-new-buffer " *load*")) (load-in-progress t) (source (string-suffix-p ".el" fullname))) (unless nomessage (if source (message "Loading %s (source)..." file) (message "Loading %s..." file))) (when purify-flag (push (purecopy file) preloaded-file-list)) (unwind-protect (let ((load-true-file-name fullname) (load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil) shorthands) (with-current-buffer buffer (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (setq shorthands (and hack-read-symbol-shorthands-function (funcall hack-read-symbol-shorthands-function))) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) 'raw-text))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (let ((read-symbol-shorthands shorthands)) (if eval-function (funcall eval
 -function buffer (if dump-mode file fullname)) (eval-buffer buffer nil (if dump-mode file fullname) nil t)))) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) (unless (or nomessage noninteractive) (if source (message "Loading %s (source)...done" file) (message "Loading %s...done" file))) t))
  load-with-code-conversion("/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/comp.el" "/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp/emacs-lisp/comp.el" nil t)
  load("comp" nil t)
  (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))
  (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 (st
 ring-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-li
 ne-args-left (setq command-line-args-left (c!
 dr 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 ho!
 oks))) (i!
 f 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 (inte
 rn (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 l
 oad-path (list tem))) (if splice (setq splic!
 e 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 (nthcd!
 r (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-sta
 rtup-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 (ap
 pend (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 i
 nhibit-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 or
 ig-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 ((tail command-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq lon
 gopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr 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 (co!
 ns 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-a
 rgs-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-fil
 e-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-win!
 dow-syste!
 m 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 ((tail command-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (s
 etq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr 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-a
 list)) (if argval (let ((command-line-args-l!
 eft (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 (exp
 and-file-name file)) (truename (file-truenam!
 e 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 c
 olumn (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 init!
 ial-windo!
 w-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 ((tail command-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (strin
 g-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr 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 argv
 al (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-arg
 s-left))))))) (file-ex (expand-file-name fil!
 e)) (true!
 name (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 (mat
 ch-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 o!
 ption `%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 ((tail command-line-x-option-alist)) (whi
 le tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr 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) (set
 q argi orig-argi))))))) (cond ((setq tem (as!
 soc 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 co
 mmand-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 (s!
 tring-mat!
 ch "\\`-" 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 ((tail c
 ommand-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr 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 (app
 end) (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 (prog
 1 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-ho
 ok (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 displa
 yable-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 ((tail bufs)) (while tail (let ((buf (car tail))) (switch-to-buffer buf nil t) (setq tail (cdr 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-ho
 oks 'emacs-startup-hook 'term-setup-hook) (i!
 f (and (d!
 isplay-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(("-l" "comp" "-f" "batch-byte-compile" "emacs-lisp/comp-cstr.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" "--no-comp-spawn"))) (argi (car-safe (prog1 args (setq args (cdr args))))) (orig-argi argi) argval) (if (string
 -match "\\`\\(--[^=]*\\)=" argi) (progn (pro!
 gn (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 user-emacs-directory (if (stringp user-emacs-directory) (file-name-as-directory (expand-file-name user-emacs-directory command-line-default-directory)) user-emacs-directory)) (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 "-no-comp-spawn") (defvar comp-no-spawn) (setq comp-no-spawn t)) ((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 sta
 rtup--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))) (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 ((tail dirs)) (while tail (let ((dir (car tail))) (if (file-directory-p dir) (progn (let ((tail (directory-files dir))) (while tail (let ((subdir (car 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 tail (cdr tail))))))) (setq tail (cdr 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-out
 put) (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 "\\`\\.ema
 cs\\(\\.elc?\\)?\\'") "~/.emacs") ((director!
 y-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 ((tail load-path)) (while tail (let ((dir (car tail))) (and (not noninteractive) (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' see!
 ms to contain\nyour `user-emacs-directory': %s\nThis is likely to cause problems...\nConsider using a subdirectory instead, e.g.: %s" dir (expand-file-name "lisp" user-emacs-directory)) :warning)) (setq tail (cdr 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) (f
 rame-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 :fon
 t (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-jit-compilation nil) (setq native-comp-enable-subr-trampolines nil))) (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let ((tail (split-string path-env path-separator))) (while tail (let ((path (car tail))) (if (string= "" path) nil (setq native-comp-eln-load-path (cons path native-comp-eln-load-path))) (setq tail (cdr 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)")))) (if (and (featurep 'android) (eq system-type 'android) (fboundp 'android-locale-for-system-language) initial-window-system) (set-locale-environment (funcall 'android-locale-for-system-language)) (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 ((tail (buffer-list))) (while tail (let ((elt (car tail))) (set-buffer elt) (if default-directory (setq default-directory (if (eq system-type 'windows-nt) (let ((
 defdir (decode-coding-string default-directo!
 ry coding t))) (expand-file-name defdir defdir)) (decode-coding-string default-directory coding t)))) (setq tail (cdr tail)))))) (let ((tail '(load-path exec-path))) (while tail (let ((pathsym (car tail))) (let ((path (symbol-value pathsym))) (if (listp path) (set pathsym (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) path)))) (setq tail (cdr 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 ((tail '(data-directory doc-directory exec-directory installation-directory invocation-directory invocation-name source-directory shared-game-score-directory))) (while tail (let ((filesym (car tail))) (let ((file (symbol-value filesym))) (if (stringp file) (set filesym (decode-coding-string file coding t)))) (setq tail (cd
 r tail)))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (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-prote
 ct (command-line) (if default-directory (set!
 q 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 ((env initial-environment)) (while (and env (or (not (string-match "\\`DISPLAY=" (car env))) (progn (setq display (car env)) nil))) (setq env (cdr env))))) (if display (progn (setq process-environment (delete display process-environment))))))
  normal-top-level()
gmake[4]: *** [Makefile:325: emacs-lisp/comp-cstr.elc] Error 255
gmake[4]: *** Waiting for unfinished jobs....
TZ=UTC0 touch -t 197001010000 emacs-lisp/bytecomp.elc
TZ=UTC0 touch -t 197001010000 emacs-lisp/comp.elc
gmake[4]: Leaving directory '/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/lisp'
gmake[3]: *** [Makefile:1017: bootstrap-emacs.pdmp] Error 2
gmake[3]: Leaving directory '/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d/src'
gmake[2]: *** [Makefile:554: src] Error 2
gmake[2]: Leaving directory '/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d'
gmake[2]: Entering directory '/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d'
***
*** "make all" failed with exit status 2.
***
*** You could try to:
*** - run "make bootstrap", which might fix the problem
*** - run "make V=1", which displays the full commands invoked by make,
***   to further investigate the problem
***
gmake[2]: *** [Makefile:418: advice-on-failure] Error 2
gmake[2]: Leaving directory '/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d'
gmake[1]: *** [Makefile:374: all] Error 2
gmake[1]: Leaving directory '/wrkdirs/usr/ports/editors/emacs-devel/work-full/emacs-91f316d'
===> Compilation failed unexpectedly.
Try to set MAKE_JOBS_UNSAFE=yes and rebuild before reporting the failure to
the maintainer.
*** Error code 1

Stop.
make: stopped in /usr/ports/editors/emacs-devel