===> License GPLv3+ accepted by the user ===> emacs-devel-nox-28.0.50.20210529,2 depends on file: $prefix/sbin/pkg - found ===> Fetching all distfiles required by emacs-devel-nox-28.0.50.20210529,2 for building ===> Extracting for emacs-devel-nox-28.0.50.20210529,2 => SHA256 Checksum OK for emacs-mirror-emacs-28.0.50.20210529-246a417_GH0.tar.gz. ===> Patching for emacs-devel-nox-28.0.50.20210529,2 ===> emacs-devel-nox-28.0.50.20210529,2 depends on package: texinfo>=6.5,1 - found ===> emacs-devel-nox-28.0.50.20210529,2 depends on executable: gcc11 - found ===> emacs-devel-nox-28.0.50.20210529,2 depends on package: gmake>=4.3 - found ===> emacs-devel-nox-28.0.50.20210529,2 depends on package: pkgconf>=1.3.0_1 - found ===> emacs-devel-nox-28.0.50.20210529,2 depends on package: autoconf>=2.69 - found ===> emacs-devel-nox-28.0.50.20210529,2 depends on package: automake>=1.16.1 - found ===> emacs-devel-nox-28.0.50.20210529,2 depends on shared library: libgmp.so - found ($prefix/lib/libgmp.so) ===> emacs-devel-nox-28.0.50.20210529,2 depends on shared library: libgnutls.so - found ($prefix/lib/libgnutls.so) ===> emacs-devel-nox-28.0.50.20210529,2 depends on shared library: libjansson.so - found ($prefix/lib/libjansson.so) ===> emacs-devel-nox-28.0.50.20210529,2 depends on shared library: libxml2.so - found ($prefix/lib/libxml2.so) ===> Configuring for emacs-devel-nox-28.0.50.20210529,2 Checking whether you have the necessary tools... (Read INSTALL.REPO for more details on building Emacs) Checking for autoconf (need at least version 2.65) ... ok Your system has the required tools. Building aclocal.m4 ... Running 'autoreconf -fi -I m4' ... You can now run './configure'. configure: loading site script $PORTSDIR/Templates/config.site checking for xcrun... no checking for GNU Make... gmake checking build system type... powerpc64-portbld-freebsd14.0 checking host system type... powerpc64-portbld-freebsd14.0 checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether cc accepts -g... yes checking for cc option to enable C11 features... none needed checking whether the compiler is clang... yes checking for compiler option needed when checking for declarations... -Werror=implicit-function-declaration checking whether cc understands -c and -o together... yes checking how to run the C preprocessor... cpp checking for grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/egrep checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.h... (cached) yes checking for wchar.h... (cached) yes checking for minix/config.h... (cached) no checking for linux/fs.h... no checking for malloc.h... yes checking for sys/systeminfo.h... no checking for sys/sysinfo.h... (cached) no checking for coff.h... no checking for pty.h... no checking for sys/resource.h... (cached) yes checking for sys/utsname.h... yes checking for pwd.h... (cached) yes checking for utmp.h... (cached) no checking for util.h... no checking for sanitizer/lsan_interface.h... no checking for sys/socket.h... (cached) yes checking for stdlib.h... (cached) yes checking for unistd.h... (cached) yes checking for sys/param.h... (cached) yes checking for pthread.h... (cached) yes checking for malloc/malloc.h... no checking for sys/un.h... (cached) yes checking for dirent.h... (cached) yes checking for execinfo.h... yes checking for stdio_ext.h... no checking for sys/vfs.h... no checking for sys/fs_types.h... no checking for getopt.h... (cached) yes checking for sys/cdefs.h... (cached) yes checking for sys/time.h... (cached) yes checking for ieee754.h... no checking for limits.h... (cached) yes checking for inttypes.h... (cached) yes checking for sys/types.h... (cached) yes checking for stdint.h... (cached) yes checking for sys/select.h... (cached) yes checking for sys/random.h... yes checking for sys/stat.h... (cached) yes checking whether it is safe to define __EXTENSIONS__... yes checking whether _XOPEN_SOURCE should be defined... no checking for Minix Amsterdam compiler... no checking for ar... ar checking for ranlib... ranlib checking for special C compiler options needed for large files... no checking for _FILE_OFFSET_BITS value needed for large files... no checking whether the compiler is clang... yes checking whether C compiler handles -Werror -Wunknown-warning-option... yes checking whether C compiler handles -Wno-switch... yes checking whether C compiler handles -Wno-pointer-sign... yes checking whether C compiler handles -Wno-string-plus-int... yes checking whether C compiler handles -Wno-unknown-attributes... yes checking whether C compiler handles -Wno-initializer-overrides... yes checking whether C compiler handles -Wno-tautological-compare... yes checking whether C compiler handles -Wno-tautological-constant-out-of-range-compare... yes checking for a BSD-compatible install... /usr/bin/install -c checking command to symlink files in the same directory... ln -s checking for install-info... $prefix/bin/install-info checking for gzip... /usr/bin/gzip checking for 'find' args to delete a file... -delete checking for brew... no checking for -znocombreloc... not needed checking whether addresses are sanitized... no checking for library containing sqrt... -lm checking pkg-config is at least version 0.9.0... yes checking for ADDR_NO_RANDOMIZE... no checking for sys/wait.h that is POSIX.1 compatible... (cached) yes checking for net/if.h... (cached) yes checking for ifaddrs.h... yes checking for net/if_dl.h... yes checking for struct ifreq.ifr_flags... yes checking for struct ifreq.ifr_hwaddr... no checking for struct ifreq.ifr_netmask... no checking for struct ifreq.ifr_broadaddr... yes checking for struct ifreq.ifr_addr... yes checking for struct ifreq.ifr_addr.sa_len... yes checking whether gcc understands -MMD -MF... yes checking for X... disabled checking whether malloc is Doug Lea style... no checking for sbrk... yes checking for __lsan_ignore_object... no checking for fchmod... (cached) yes checking for canonicalize_file_name... no checking for faccessat... yes checking for realpath... (cached) yes checking for lstat... (cached) yes checking for readlinkat... (cached) yes checking for explicit_bzero... yes checking for memset_s... yes checking for fchmodat... yes checking for lchmod... yes checking for fcntl... (cached) yes checking for fdopendir... yes checking for fstatat... (cached) yes checking for fsync... (cached) yes checking for futimens... yes checking for getrandom... yes checking for gettimeofday... (cached) yes checking for mkostemp... yes checking for pipe2... yes checking for pselect... yes checking for readlink... (cached) yes checking for isblank... (cached) yes checking for iswctype... (cached) yes checking for strtoimax... yes checking for symlink... (cached) yes checking for localtime_r... yes checking for timegm... yes checking for utimensat... yes checking for getdtablesize... (cached) yes checking for futimes... (cached) yes checking for futimesat... yes checking for lutimes... yes checking for getpagesize... (cached) yes checking for working mmap... (cached) yes checking for main in -lXbsd... no checking for pthread library... -lpthread checking for thread support... yes checking for getaddrinfo_a in -lanl... no checking for gnutls >= 2.12.2... yes checking for jansson >= 2.7... yes checking for libkqueue... no checking for library containing kqueue... none required checking for library containing inflateEnd... -lz checking for dlopen... (cached) yes checking for dladdr... yes checking for dlfunc... yes checking for gcc_jit_context_acquire in -lgccjit... yes checking libgccjit.h usability... yes checking libgccjit.h presence... yes checking for libgccjit.h... yes checking gpm.h usability... no checking gpm.h presence... no checking for gpm.h... no checking for libxml-2.0 > 2.6.17... yes checking for htmlReadMemory in -lxml2... yes checking for maillock in -lmail... no checking for maillock in -llockfile... (cached) no checking for liblockfile.so... (cached) no checking maillock.h usability... no checking maillock.h presence... no checking for maillock.h... no checking linux/seccomp.h usability... no checking linux/seccomp.h presence... no checking for linux/seccomp.h... no checking linux/filter.h usability... no checking linux/filter.h presence... no checking for linux/filter.h... no checking for libseccomp >= 2.4.0... no checking for accept4... (cached) yes checking for fchdir... yes checking for gethostname... (cached) yes checking for getrusage... (cached) yes checking for get_current_dir_name... no checking for lrand48... yes checking for random... (cached) yes checking for rint... yes checking for trunc... yes checking for select... (cached) yes checking for getpagesize... (cached) yes checking for setlocale... (cached) yes checking for newlocale... (cached) yes checking for getrlimit... (cached) yes checking for setrlimit... (cached) yes checking for shutdown... yes checking for pthread_sigmask... (cached) yes checking for strsignal... (cached) yes checking for setitimer... yes checking for sendto... yes checking for recvfrom... yes checking for getsockname... yes checking for getifaddrs... yes checking for freeifaddrs... yes checking for gai_strerror... (cached) yes checking for sync... yes checking for getpwent... yes checking for endpwent... yes checking for getgrent... (cached) yes checking for endgrent... (cached) yes checking for cfmakeraw... yes checking for cfsetspeed... yes checking for __executable_start... yes checking for log2... yes checking for pthread_setname_np... yes checking for pthread_set_name_np... yes checking whether pthread_setname_np takes a single argument... no checking whether pthread_setname_np takes three arguments... no checking for aligned_alloc... yes checking whether aligned_alloc is declared... yes checking for posix_madvise... yes checking for __builtin_frame_address... yes checking for __builtin_unwind_init... yes checking for _LARGEFILE_SOURCE value needed for large files... no checking for grantpt... yes checking for getpt... no checking for posix_openpt... yes checking for library containing tputs... -ltinfo checking whether FreeBSD is new enough to use terminfo... yes checking whether -lncurses library defines BC... yes checking for timerfd interface... no checking whether signals can be handled on alternate stack... yes checking valgrind/valgrind.h usability... no checking valgrind/valgrind.h presence... no checking for valgrind/valgrind.h... no checking for struct unipair.unicode... no checking for pid_t... (cached) yes checking for vfork.h... (cached) no checking for fork... (cached) yes checking for vfork... (cached) yes checking for working fork... yes checking for working vfork... (cached) yes checking for snprintf... (cached) yes checking whether GLib is linked in... no checking for nl_langinfo and CODESET... yes checking for nl_langinfo and _NL_PAPER_WIDTH... no checking for mbstate_t... (cached) yes checking for _setjmp... yes checking for sigsetjmp... yes checking for usable FIONREAD... yes checking for usable SIGIO... yes checking for struct alignment... yes checking for typeof syntax and keyword spelling... typeof checking for statement expressions... yes checking for working alloca.h... no checking for alloca... yes checking whether lstat correctly handles trailing slash... (cached) yes checking whether // is distinct from /... no checking whether realpath works... yes checking for getcwd... (cached) yes checking for C/C++ restrict keyword... __restrict__ checking whether byte ordering is bigendian... yes checking whether the preprocessor supports include_next... (cached) yes checking whether source code line length is unlimited... yes checking if environ is properly declared... no checking for complete errno.h... (cached) yes checking for mode_t... (cached) yes checking whether strmode is declared... yes checking for gawk... (cached) /usr/bin/awk checking for getopt.h... (cached) yes checking for getopt_long_only... (cached) yes checking whether getopt is POSIX compatible... (cached) yes checking for working GNU getopt function... no checking for struct timeval... (cached) yes checking for wide-enough struct timeval.tv_sec member... yes checking whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc.... no checking whether the compiler produces multi-arch binaries... no checking whether stdint.h conforms to C99... no checking sys/inttypes.h usability... no checking sys/inttypes.h presence... no checking for sys/inttypes.h... no checking sys/bitypes.h usability... no checking sys/bitypes.h presence... no checking for sys/bitypes.h... no checking for bit size of ptrdiff_t... 64 checking for bit size of size_t... 64 checking for bit size of sig_atomic_t... 32 checking for bit size of wchar_t... 32 checking for bit size of wint_t... 32 checking whether sig_atomic_t is signed... yes checking whether wchar_t is signed... (cached) yes checking whether wint_t is signed... (cached) yes checking for ptrdiff_t integer literal suffix... l checking for size_t integer literal suffix... ul checking for sig_atomic_t integer literal suffix... checking for wchar_t integer literal suffix... checking for wint_t integer literal suffix... checking whether memmem is declared... (cached) yes checking whether memrchr is declared... (cached) yes checking whether defines MIN and MAX... no checking whether defines MIN and MAX... yes checking whether time_t is signed... yes checking whether alarm is declared... (cached) yes checking for working mktime... no checking whether struct tm is in sys/time.h or time.h... time.h checking for struct tm.tm_zone... yes checking for struct tm.tm_gmtoff... yes checking whether is self-contained... (cached) yes checking for inline... inline checking for stdlib.h... (cached) yes checking for GNU libc compatible malloc... (cached) yes checking for sigset_t... (cached) yes checking for wchar_t... (cached) yes checking whether fcloseall is declared... yes checking whether ecvt is declared... no checking whether fcvt is declared... no checking whether gcvt is declared... no checking whether strnlen is declared... (cached) yes checking whether strtoimax is declared... (cached) yes checking for a thread-safe mkdir -p... (cached) /bin/mkdir -p checking whether stat file-mode macros are broken... no checking for struct timespec in ... (cached) yes checking for TIME_UTC in ... yes checking whether execvpe is declared... no checking whether clearerr_unlocked is declared... (cached) yes checking whether feof_unlocked is declared... (cached) yes checking whether ferror_unlocked is declared... (cached) yes checking whether fflush_unlocked is declared... yes checking whether fgets_unlocked is declared... no checking whether fputc_unlocked is declared... yes checking whether fputs_unlocked is declared... yes checking whether fread_unlocked is declared... yes checking whether fwrite_unlocked is declared... yes checking whether getc_unlocked is declared... (cached) yes checking whether getchar_unlocked is declared... (cached) yes checking whether putc_unlocked is declared... (cached) yes checking whether putchar_unlocked is declared... (cached) yes checking type of array argument to getgroups... gid_t checking whether getdtablesize is declared... (cached) yes checking for O_CLOEXEC... yes checking for promoted mode_t type... int checking whether the utimes function works... yes checking for sys/acl.h... (cached) yes checking for library containing acl_get_file... none required checking for acl_get_file... (cached) yes checking for acl_get_fd... (cached) yes checking for acl_set_file... (cached) yes checking for acl_set_fd... (cached) yes checking for acl_free... (cached) yes checking for acl_from_mode... no checking for acl_from_text... (cached) yes checking for acl_delete_def_file... (cached) yes checking for acl_extended_file... no checking for acl_delete_fd_np... (cached) yes checking for acl_delete_file_np... (cached) yes checking for acl_copy_ext_native... no checking for acl_create_entry_np... (cached) yes checking for acl_to_short_text... no checking for acl_free_text... no checking for working acl_get_file... yes checking acl/libacl.h usability... no checking acl/libacl.h presence... no checking for acl/libacl.h... no checking for acl_entries... no checking for ACL_FIRST_ENTRY... yes checking for ACL_TYPE_EXTENDED... no checking for __builtin_expect... yes checking for byteswap.h... (cached) no checking for library containing clock_gettime... none required checking for clock_gettime... (cached) yes checking for clock_settime... yes checking for copy_file_range... yes checking for d_type member in directory struct... yes checking whether // is distinct from /... (cached) no checking whether dup2 works... yes checking for library containing backtrace_symbols_fd... -lexecinfo checking whether fchmodat works... yes checking whether fcntl handles F_DUPFD correctly... yes checking whether fcntl understands F_DUPFD_CLOEXEC... (cached) yes checking whether fdopendir is declared... (cached) yes checking whether fdopendir works... yes checking for flexible array member... yes checking for __fpending... no checking whether free is known to preserve errno... no checking whether fstatat (..., 0) works... yes checking for sys/mount.h... (cached) yes checking for statvfs function (SVR4)... yes checking whether to use statvfs64... no checking for two-argument statfs with statfs.f_frsize member... no checking sys/fs/s5param.h usability... no checking sys/fs/s5param.h presence... no checking for sys/fs/s5param.h... no checking sys/statfs.h usability... no checking sys/statfs.h presence... no checking for sys/statfs.h... no checking for statfs that truncates block counts... no checking whether futimens works... yes checking for getloadavg... yes checking sys/loadavg.h usability... no checking sys/loadavg.h presence... no checking for sys/loadavg.h... no checking whether getloadavg is declared... (cached) yes checking whether getrandom is compatible with its GNU+BSD signature... yes checking for gettimeofday with POSIX signature... almost checking whether the compiler supports the __inline keyword... yes checking gmp.h usability... yes checking gmp.h presence... yes checking for gmp.h... yes checking for library containing __gmpz_roinit_n... -lgmp checking for memmem... yes checking whether memmem works... yes checking for mempcpy... no checking for memrchr... yes checking whether signature of pselect conforms to POSIX... yes checking whether pselect detects invalid fds... yes checking whether pthread_sigmask is a macro... no checking whether pthread_sigmask returns error numbers... yes checking whether pthread_sigmask unblocks signals correctly... guessing yes checking whether readlink signature is correct... yes checking whether readlink handles trailing slash correctly... yes checking whether readlink truncates results correctly... yes checking whether readlinkat signature is correct... yes checking for working re_compile_pattern... no checking libintl.h usability... yes checking libintl.h presence... yes checking for libintl.h... yes checking whether isblank is declared... (cached) yes checking for sig2str... no checking for sigdescr_np... no checking for volatile sig_atomic_t... (cached) yes checking for sighandler_t... no checking for socklen_t... (cached) yes checking for ssize_t... (cached) yes checking for struct stat.st_atim.tv_nsec... yes checking whether struct stat.st_atim is of type struct timespec... yes checking for struct stat.st_birthtimespec.tv_nsec... yes checking for working stdalign.h... yes checking for good max_align_t... yes checking whether NULL can be used in arbitrary expressions... yes checking which flavor of printf attribute matches inttypes macros... system checking for stpcpy... (cached) yes checking for working strnlen... (cached) yes checking whether strtoimax works... yes checking whether symlink handles trailing slash correctly... yes checking for nlink_t... (cached) yes checking whether localtime_r is declared... yes checking whether localtime_r is compatible with its POSIX signature... yes checking whether localtime works even near extrema... yes checking for timezone_t... no checking for library containing timer_settime... -lrt checking for timer_settime... yes checking whether utimensat works... yes checking for variable-length arrays... yes checking for rawmemchr... (cached) no checking for __mktime_internal... no checking for timer_getoverrun... yes checking for cc option to disable position independent executables... not needed Configured for 'powerpc64-portbld-freebsd14.0'. Where should the build process find the source code? . What compiler should emacs be built with? cc -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing Should Emacs use the GNU version of malloc? no (The GNU allocators don't work with this system configuration.) Should Emacs use a relocating allocator for buffers? no Should Emacs use mmap(2) for buffer allocation? no What window system should Emacs use? none What toolkit should Emacs use? none Where do we find X Windows header files? NONE Where do we find X Windows libraries? NONE Does Emacs use -lXaw3d? no Does Emacs use -lXpm? no Does Emacs use -ljpeg? no Does Emacs use -ltiff? no Does Emacs use a gif library? no Does Emacs use a png library? no Does Emacs use -lrsvg-2? no Does Emacs use cairo? no Does Emacs use -llcms2? no Does Emacs use imagemagick? no Does Emacs use native APIs for images? no Does Emacs support sound? no Does Emacs use -lgpm? no Does Emacs use -ldbus? no Does Emacs use -lgconf? no Does Emacs use GSettings? no Does Emacs use a file notification library? yes (kqueue) Does Emacs use access control lists? yes Does Emacs use -lselinux? no Does Emacs use -lgnutls? yes Does Emacs use -lxml2? yes Does Emacs use -lfreetype? no Does Emacs use HarfBuzz? no Does Emacs use -lm17n-flt? no Does Emacs use -lotf? no Does Emacs use -lxft? no Does Emacs use -lsystemd? no Does Emacs use -ljansson? yes Does Emacs use the GMP library? yes Does Emacs directly use zlib? yes Does Emacs have dynamic modules support? yes Does Emacs use toolkit scroll bars? no Does Emacs support Xwidgets? no Does Emacs have threading support in lisp? yes Does Emacs support the portable dumper? yes Does Emacs support legacy unexec dumping? no Which dumping strategy does Emacs use? pdumper Does Emacs have native lisp compiler? yes configure: creating ./config.status config.status: creating src/verbose.mk config.status: creating src/emacs-module.h config.status: creating Makefile config.status: creating lib/gnulib.mk config.status: creating ./doc/man/emacs.1 config.status: creating lib/Makefile config.status: creating lib-src/Makefile config.status: creating oldXMenu/Makefile config.status: creating doc/emacs/Makefile config.status: creating doc/misc/Makefile config.status: creating doc/lispintro/Makefile config.status: creating doc/lispref/Makefile config.status: creating src/Makefile config.status: creating lwlib/Makefile config.status: creating lisp/Makefile config.status: creating leim/Makefile config.status: creating nextstep/Makefile config.status: creating nt/Makefile config.status: creating test/Makefile config.status: creating admin/charsets/Makefile config.status: creating admin/unidata/Makefile config.status: creating admin/grammars/Makefile config.status: creating src/config.h config.status: executing src/epaths.h commands gmake[1]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417' gmake[1]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417' config.status: executing src/.gdbinit commands config.status: executing doc/emacs/emacsver.texi commands config.status: executing etc-refcards-emacsver.tex commands configure: WARNING: This configuration installs a 'movemail' program that does not retrieve POP3 email. By default, Emacs 25 and earlier installed a 'movemail' program that retrieved POP3 email via only insecure channels, a practice that is no longer recommended but that you can continue to support by using './configure --with-pop'. configure: You might want to install GNU Mailutils and use './configure --with-mailutils'. ===> Building for emacs-devel-nox-28.0.50.20210529,2 gmake[1]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417' gmake -C lib all gmake -C doc/lispref info gmake -C doc/lispintro info gmake -C doc/emacs info gmake[2]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/doc/lispintro' /bin/mkdir -p ../../info gmake[2]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/doc/lispref' /bin/mkdir -p ../../info gmake[2]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/doc/emacs' /bin/mkdir -p ../../info makeinfo --force -I ./../emacs -I . --no-split -o ../../info/eintr.info emacs-lisp-intro.texi makeinfo --force --enable-encoding -I ./../emacs -I . --no-split -o ../../info/elisp.info elisp.texi makeinfo --force --enable-encoding -I . --no-split -o ../../info/emacs.info emacs.texi /bin/mkdir -p ./info (cd ./doc && \ AWK='/usr/bin/awk' ../build-aux/make-info-dir ../build-aux/dir_top emacs/emacs.texi lispintro/emacs-lisp-intro.texi lispref/elisp.texi misc/auth.texi misc/autotype.texi misc/bovine.texi misc/calc.texi misc/cc-mode.texi misc/cl.texi misc/dbus.texi misc/dired-x.texi misc/ebrowse.texi misc/ede.texi misc/ediff.texi misc/edt.texi misc/efaq.texi misc/eieio.texi misc/emacs-gnutls.texi misc/emacs-mime.texi misc/epa.texi misc/erc.texi misc/ert.texi misc/eshell.texi misc/eudc.texi misc/eww.texi misc/flymake.texi misc/forms.texi misc/gnus.texi misc/htmlfontify.texi misc/idlwave.texi misc/ido.texi misc/info.texi misc/mairix-el.texi misc/message.texi misc/mh-e.texi misc/modus-themes.org misc/newsticker.texi misc/nxml-mode.texi misc/octave-mode.texi misc/org.org misc/pcl-cvs.texi misc/pgg.texi misc/rcirc.texi misc/reftex.texi misc/remember.texi misc/sasl.texi misc/sc.texi misc/semantic.texi misc/ses.texi misc/sieve.texi misc/smtpmail.texi misc/speedbar.texi misc/srecode.texi misc/todo-mode.texi misc/tramp.texi misc/url.texi misc/vhdl-mode.texi misc/vip.texi misc/viper.texi misc/widget.texi misc/wisent.texi misc/woman.texi \ ) >info/dir.tmp && mv info/dir.tmp info/dir gmake[2]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lib' rm -f alloca.h-t alloca.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''HAVE_ALLOCA_H''@|0|g' < ./alloca.in.h; \ } > alloca.h-t && \ mv -f alloca.h-t alloca.h rm -f byteswap.h-t byteswap.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ cat ./byteswap.in.h; \ } > byteswap.h-t && \ mv -f byteswap.h-t byteswap.h rm -f dirent.h-t dirent.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_DIRENT_H''@|1|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_DIRENT_H''@||g' \ -e 's/@''GNULIB_OPENDIR''@/0/g' \ -e 's/@''GNULIB_READDIR''@/0/g' \ -e 's/@''GNULIB_REWINDDIR''@/0/g' \ -e 's/@''GNULIB_CLOSEDIR''@/0/g' \ -e 's/@''GNULIB_DIRFD''@/0/g' \ -e 's/@''GNULIB_FDOPENDIR''@/1/g' \ -e 's/@''GNULIB_SCANDIR''@/0/g' \ -e 's/@''GNULIB_ALPHASORT''@/0/g' \ -e 's/@''HAVE_OPENDIR''@/1/g' \ -e 's/@''HAVE_READDIR''@/1/g' \ -e 's/@''HAVE_REWINDDIR''@/1/g' \ -e 's/@''HAVE_CLOSEDIR''@/1/g' \ -e 's|@''HAVE_DECL_DIRFD''@|1|g' \ -e 's|@''HAVE_DECL_FDOPENDIR''@|1|g' \ -e 's|@''HAVE_FDOPENDIR''@|1|g' \ -e 's|@''HAVE_SCANDIR''@|1|g' \ -e 's|@''HAVE_ALPHASORT''@|1|g' \ -e 's|@''REPLACE_OPENDIR''@|0|g' \ -e 's|@''REPLACE_CLOSEDIR''@|0|g' \ -e 's|@''REPLACE_DIRFD''@|0|g' \ -e 's|@''REPLACE_FDOPENDIR''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./dirent.in.h; \ } > dirent.h-t && \ mv dirent.h-t dirent.h rm -f fcntl.h-t fcntl.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_FCNTL_H''@||g' \ -e 's/@''GNULIB_CREAT''@/0/g' \ -e 's/@''GNULIB_FCNTL''@/1/g' \ -e 's/@''GNULIB_NONBLOCKING''@/0/g' \ -e 's/@''GNULIB_OPEN''@/0/g' \ -e 's/@''GNULIB_OPENAT''@/0/g' \ -e 's/@''GNULIB_MDA_CREAT''@/1/g' \ -e 's/@''GNULIB_MDA_OPEN''@/1/g' \ -e 's|@''HAVE_FCNTL''@|1|g' \ -e 's|@''HAVE_OPENAT''@|1|g' \ -e 's|@''REPLACE_CREAT''@|0|g' \ -e 's|@''REPLACE_FCNTL''@|0|g' \ -e 's|@''REPLACE_OPEN''@|0|g' \ -e 's|@''REPLACE_OPENAT''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./fcntl.in.h; \ } > fcntl.h-t && \ mv fcntl.h-t fcntl.h rm -f getopt.h-t getopt.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_GETOPT_H''@|1|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_GETOPT_H''@||g' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ < ./getopt.in.h; \ } > getopt.h-t && \ mv -f getopt.h-t getopt.h rm -f getopt-cdefs.h-t getopt-cdefs.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''HAVE_SYS_CDEFS_H''@|1|g' \ < ./getopt-cdefs.in.h; \ } > getopt-cdefs.h-t && \ mv -f getopt-cdefs.h-t getopt-cdefs.h rm -f ieee754.h-t && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's/ifndef _GL_GNULIB_HEADER/if 0/g' \ ./ieee754.in.h; \ } > ieee754.h-t && \ mv -f ieee754.h-t ieee754.h rm -f inttypes.h-t inttypes.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's/@''HAVE_INTTYPES_H''@/1/g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_INTTYPES_H''@||g' \ -e 's/@''APPLE_UNIVERSAL_BUILD''@/0/g' \ -e 's/@''PRIPTR_PREFIX''@/__PRIPTR_PREFIX/g' \ -e 's/@''GNULIB_IMAXABS''@/0/g' \ -e 's/@''GNULIB_IMAXDIV''@/0/g' \ -e 's/@''GNULIB_STRTOIMAX''@/1/g' \ -e 's/@''GNULIB_STRTOUMAX''@/0/g' \ -e 's/@''HAVE_DECL_IMAXABS''@/1/g' \ -e 's/@''HAVE_DECL_IMAXDIV''@/1/g' \ -e 's/@''HAVE_DECL_STRTOIMAX''@/1/g' \ -e 's/@''HAVE_DECL_STRTOUMAX''@/1/g' \ -e 's/@''HAVE_IMAXDIV_T''@/1/g' \ -e 's/@''REPLACE_STRTOIMAX''@/0/g' \ -e 's/@''REPLACE_STRTOUMAX''@/0/g' \ -e 's/@''INT32_MAX_LT_INTMAX_MAX''@/1/g' \ -e 's/@''INT64_MAX_EQ_LONG_MAX''@/defined _LP64/g' \ -e 's/@''UINT32_MAX_LT_UINTMAX_MAX''@/1/g' \ -e 's/@''UINT64_MAX_EQ_ULONG_MAX''@/defined _LP64/g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./inttypes.in.h; \ } > inttypes.h-t && \ mv inttypes.h-t inttypes.h rm -f limits.h-t limits.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_LIMITS_H''@||g' \ < ./limits.in.h; \ } > limits.h-t && \ mv limits.h-t limits.h rm -f signal.h-t signal.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SIGNAL_H''@||g' \ -e 's/@''GNULIB_PTHREAD_SIGMASK''@/1/g' \ -e 's/@''GNULIB_RAISE''@/0/g' \ -e 's/@''GNULIB_SIGNAL_H_SIGPIPE''@/0/g' \ -e 's/@''GNULIB_SIGPROCMASK''@/0/g' \ -e 's/@''GNULIB_SIGACTION''@/0/g' \ -e 's|@''HAVE_POSIX_SIGNALBLOCKING''@|1|g' \ -e 's|@''HAVE_PTHREAD_SIGMASK''@|1|g' \ -e 's|@''HAVE_RAISE''@|1|g' \ -e 's|@''HAVE_SIGSET_T''@|1|g' \ -e 's|@''HAVE_SIGINFO_T''@|1|g' \ -e 's|@''HAVE_SIGACTION''@|1|g' \ -e 's|@''HAVE_STRUCT_SIGACTION_SA_SIGACTION''@|1|g' \ -e 's|@''HAVE_TYPE_VOLATILE_SIG_ATOMIC_T''@|1|g' \ -e 's|@''HAVE_SIGHANDLER_T''@|0|g' \ -e 's|@''REPLACE_PTHREAD_SIGMASK''@|0|g' \ -e 's|@''REPLACE_RAISE''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./signal.in.h; \ } > signal.h-t && \ mv signal.h-t signal.h rm -f stdint.h-t stdint.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's/@''HAVE_STDINT_H''@/1/g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_STDINT_H''@||g' \ -e 's/@''HAVE_C99_STDINT_H''@/0/g' \ -e 's/@''HAVE_SYS_TYPES_H''@/1/g' \ -e 's/@''HAVE_INTTYPES_H''@/1/g' \ -e 's/@''HAVE_SYS_INTTYPES_H''@/0/g' \ -e 's/@''HAVE_SYS_BITYPES_H''@/0/g' \ -e 's/@''HAVE_WCHAR_H''@/1/g' \ -e 's/@''APPLE_UNIVERSAL_BUILD''@/0/g' \ -e 's/@''BITSIZEOF_PTRDIFF_T''@/64/g' \ -e 's/@''PTRDIFF_T_SUFFIX''@/l/g' \ -e 's/@''BITSIZEOF_SIG_ATOMIC_T''@/32/g' \ -e 's/@''HAVE_SIGNED_SIG_ATOMIC_T''@/1/g' \ -e 's/@''SIG_ATOMIC_T_SUFFIX''@//g' \ -e 's/@''BITSIZEOF_SIZE_T''@/64/g' \ -e 's/@''SIZE_T_SUFFIX''@/ul/g' \ -e 's/@''BITSIZEOF_WCHAR_T''@/32/g' \ -e 's/@''HAVE_SIGNED_WCHAR_T''@/1/g' \ -e 's/@''WCHAR_T_SUFFIX''@//g' \ -e 's/@''BITSIZEOF_WINT_T''@/32/g' \ -e 's/@''HAVE_SIGNED_WINT_T''@/1/g' \ -e 's/@''WINT_T_SUFFIX''@//g' \ -e 's/@''GNULIB_OVERRIDES_WINT_T''@/0/g' \ < ./stdint.in.h; \ } > stdint.h-t && \ mv stdint.h-t stdint.h rm -f stdio.h-t stdio.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_STDIO_H''@||g' \ -e 's/@''GNULIB_DPRINTF''@/0/g' \ -e 's/@''GNULIB_FCLOSE''@/0/g' \ -e 's/@''GNULIB_FDOPEN''@/0/g' \ -e 's/@''GNULIB_FFLUSH''@/0/g' \ -e 's/@''GNULIB_FGETC''@/1/g' \ -e 's/@''GNULIB_FGETS''@/1/g' \ -e 's/@''GNULIB_FOPEN''@/0/g' \ -e 's/@''GNULIB_FPRINTF''@/1/g' \ -e 's/@''GNULIB_FPRINTF_POSIX''@/0/g' \ -e 's/@''GNULIB_FPURGE''@/0/g' \ -e 's/@''GNULIB_FPUTC''@/1/g' \ -e 's/@''GNULIB_FPUTS''@/1/g' \ -e 's/@''GNULIB_FREAD''@/1/g' \ -e 's/@''GNULIB_FREOPEN''@/0/g' \ -e 's/@''GNULIB_FSCANF''@/1/g' \ -e 's/@''GNULIB_FSEEK''@/0/g' \ -e 's/@''GNULIB_FSEEKO''@/0/g' \ -e 's/@''GNULIB_FTELL''@/0/g' \ -e 's/@''GNULIB_FTELLO''@/0/g' \ -e 's/@''GNULIB_FWRITE''@/1/g' \ -e 's/@''GNULIB_GETC''@/1/g' \ -e 's/@''GNULIB_GETCHAR''@/1/g' \ -e 's/@''GNULIB_GETDELIM''@/0/g' \ -e 's/@''GNULIB_GETLINE''@/0/g' \ -e 's/@''GNULIB_OBSTACK_PRINTF''@/0/g' \ -e 's/@''GNULIB_OBSTACK_PRINTF_POSIX''@/0/g' \ -e 's/@''GNULIB_PCLOSE''@/0/g' \ -e 's/@''GNULIB_PERROR''@/0/g' \ -e 's/@''GNULIB_POPEN''@/0/g' \ -e 's/@''GNULIB_PRINTF''@/1/g' \ -e 's/@''GNULIB_PRINTF_POSIX''@/0/g' \ -e 's/@''GNULIB_PUTC''@/1/g' \ -e 's/@''GNULIB_PUTCHAR''@/1/g' \ -e 's/@''GNULIB_PUTS''@/1/g' \ -e 's/@''GNULIB_REMOVE''@/0/g' \ -e 's/@''GNULIB_RENAME''@/0/g' \ -e 's/@''GNULIB_RENAMEAT''@/0/g' \ -e 's/@''GNULIB_SCANF''@/1/g' \ -e 's/@''GNULIB_SNPRINTF''@/0/g' \ -e 's/@''GNULIB_SPRINTF_POSIX''@/0/g' \ -e 's/@''GNULIB_STDIO_H_NONBLOCKING''@/0/g' \ -e 's/@''GNULIB_STDIO_H_SIGPIPE''@/0/g' \ -e 's/@''GNULIB_TMPFILE''@/0/g' \ -e 's/@''GNULIB_VASPRINTF''@/0/g' \ -e 's/@''GNULIB_VDPRINTF''@/0/g' \ -e 's/@''GNULIB_VFPRINTF''@/1/g' \ -e 's/@''GNULIB_VFPRINTF_POSIX''@/0/g' \ -e 's/@''GNULIB_VFSCANF''@/0/g' \ -e 's/@''GNULIB_VSCANF''@/0/g' \ -e 's/@''GNULIB_VPRINTF''@/1/g' \ -e 's/@''GNULIB_VPRINTF_POSIX''@/0/g' \ -e 's/@''GNULIB_VSNPRINTF''@/0/g' \ -e 's/@''GNULIB_VSPRINTF_POSIX''@/0/g' \ -e 's/@''GNULIB_MDA_FCLOSEALL''@/1/g' \ -e 's/@''GNULIB_MDA_FDOPEN''@/1/g' \ -e 's/@''GNULIB_MDA_FILENO''@/1/g' \ -e 's/@''GNULIB_MDA_GETW''@/1/g' \ -e 's/@''GNULIB_MDA_PUTW''@/1/g' \ -e 's/@''GNULIB_MDA_TEMPNAM''@/1/g' \ < ./stdio.in.h | \ sed -e 's|@''HAVE_DECL_FCLOSEALL''@|1|g' \ -e 's|@''HAVE_DECL_FPURGE''@|1|g' \ -e 's|@''HAVE_DECL_FSEEKO''@|1|g' \ -e 's|@''HAVE_DECL_FTELLO''@|1|g' \ -e 's|@''HAVE_DECL_GETDELIM''@|1|g' \ -e 's|@''HAVE_DECL_GETLINE''@|1|g' \ -e 's|@''HAVE_DECL_OBSTACK_PRINTF''@|1|g' \ -e 's|@''HAVE_DECL_SNPRINTF''@|1|g' \ -e 's|@''HAVE_DECL_VSNPRINTF''@|1|g' \ -e 's|@''HAVE_DPRINTF''@|1|g' \ -e 's|@''HAVE_FSEEKO''@|1|g' \ -e 's|@''HAVE_FTELLO''@|1|g' \ -e 's|@''HAVE_PCLOSE''@|1|g' \ -e 's|@''HAVE_POPEN''@|1|g' \ -e 's|@''HAVE_RENAMEAT''@|1|g' \ -e 's|@''HAVE_VASPRINTF''@|1|g' \ -e 's|@''HAVE_VDPRINTF''@|1|g' \ -e 's|@''REPLACE_DPRINTF''@|0|g' \ -e 's|@''REPLACE_FCLOSE''@|0|g' \ -e 's|@''REPLACE_FDOPEN''@|0|g' \ -e 's|@''REPLACE_FFLUSH''@|0|g' \ -e 's|@''REPLACE_FOPEN''@|0|g' \ -e 's|@''REPLACE_FPRINTF''@|0|g' \ -e 's|@''REPLACE_FPURGE''@|0|g' \ -e 's|@''REPLACE_FREOPEN''@|0|g' \ -e 's|@''REPLACE_FSEEK''@|0|g' \ -e 's|@''REPLACE_FSEEKO''@|0|g' \ -e 's|@''REPLACE_FTELL''@|0|g' \ -e 's|@''REPLACE_FTELLO''@|0|g' \ -e 's|@''REPLACE_GETDELIM''@|0|g' \ -e 's|@''REPLACE_GETLINE''@|0|g' \ -e 's|@''REPLACE_OBSTACK_PRINTF''@|0|g' \ -e 's|@''REPLACE_PERROR''@|0|g' \ -e 's|@''REPLACE_POPEN''@|0|g' \ -e 's|@''REPLACE_PRINTF''@|0|g' \ -e 's|@''REPLACE_REMOVE''@|0|g' \ -e 's|@''REPLACE_RENAME''@|0|g' \ -e 's|@''REPLACE_RENAMEAT''@|0|g' \ -e 's|@''REPLACE_SNPRINTF''@|0|g' \ -e 's|@''REPLACE_SPRINTF''@|0|g' \ -e 's|@''REPLACE_STDIO_READ_FUNCS''@|0|g' \ -e 's|@''REPLACE_STDIO_WRITE_FUNCS''@|0|g' \ -e 's|@''REPLACE_TMPFILE''@|0|g' \ -e 's|@''REPLACE_VASPRINTF''@|0|g' \ -e 's|@''REPLACE_VDPRINTF''@|0|g' \ -e 's|@''REPLACE_VFPRINTF''@|0|g' \ -e 's|@''REPLACE_VPRINTF''@|0|g' \ -e 's|@''REPLACE_VSNPRINTF''@|0|g' \ -e 's|@''REPLACE_VSPRINTF''@|0|g' \ -e 's|@''ASM_SYMBOL_PREFIX''@||g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h'; \ } > stdio.h-t && \ mv stdio.h-t stdio.h rm -f stdlib.h-t stdlib.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_STDLIB_H''@||g' \ -e 's/@''GNULIB__EXIT''@/0/g' \ -e 's/@''GNULIB_ALIGNED_ALLOC''@/0/g' \ -e 's/@''GNULIB_ATOLL''@/0/g' \ -e 's/@''GNULIB_CALLOC_POSIX''@/0/g' \ -e 's/@''GNULIB_CANONICALIZE_FILE_NAME''@/1/g' \ -e 's/@''GNULIB_FREE_POSIX''@/1/g' \ -e 's/@''GNULIB_GETLOADAVG''@/1/g' \ -e 's/@''GNULIB_GETSUBOPT''@/0/g' \ -e 's/@''GNULIB_GRANTPT''@/0/g' \ -e 's/@''GNULIB_MALLOC_POSIX''@/0/g' \ -e 's/@''GNULIB_MBTOWC''@/0/g' \ -e 's/@''GNULIB_MKDTEMP''@/0/g' \ -e 's/@''GNULIB_MKOSTEMP''@/1/g' \ -e 's/@''GNULIB_MKOSTEMPS''@/0/g' \ -e 's/@''GNULIB_MKSTEMP''@/0/g' \ -e 's/@''GNULIB_MKSTEMPS''@/0/g' \ -e 's/@''GNULIB_POSIX_MEMALIGN''@/0/g' \ -e 's/@''GNULIB_POSIX_OPENPT''@/0/g' \ -e 's/@''GNULIB_PTSNAME''@/0/g' \ -e 's/@''GNULIB_PTSNAME_R''@/0/g' \ -e 's/@''GNULIB_PUTENV''@/0/g' \ -e 's/@''GNULIB_QSORT_R''@/0/g' \ -e 's/@''GNULIB_RANDOM''@/0/g' \ -e 's/@''GNULIB_RANDOM_R''@/0/g' \ -e 's/@''GNULIB_REALLOC_POSIX''@/0/g' \ -e 's/@''GNULIB_REALLOCARRAY''@/0/g' \ -e 's/@''GNULIB_REALPATH''@/1/g' \ -e 's/@''GNULIB_RPMATCH''@/0/g' \ -e 's/@''GNULIB_SECURE_GETENV''@/0/g' \ -e 's/@''GNULIB_SETENV''@/0/g' \ -e 's/@''GNULIB_STRTOD''@/0/g' \ -e 's/@''GNULIB_STRTOLD''@/0/g' \ -e 's/@''GNULIB_STRTOLL''@/0/g' \ -e 's/@''GNULIB_STRTOULL''@/0/g' \ -e 's/@''GNULIB_SYSTEM_POSIX''@/0/g' \ -e 's/@''GNULIB_UNLOCKPT''@/0/g' \ -e 's/@''GNULIB_UNSETENV''@/0/g' \ -e 's/@''GNULIB_WCTOMB''@/0/g' \ -e 's/@''GNULIB_MDA_ECVT''@/1/g' \ -e 's/@''GNULIB_MDA_FCVT''@/1/g' \ -e 's/@''GNULIB_MDA_GCVT''@/1/g' \ -e 's/@''GNULIB_MDA_MKTEMP''@/1/g' \ -e 's/@''GNULIB_MDA_PUTENV''@/1/g' \ < ./stdlib.in.h | \ sed -e 's|@''HAVE__EXIT''@|1|g' \ -e 's|@''HAVE_ALIGNED_ALLOC''@|1|g' \ -e 's|@''HAVE_ATOLL''@|1|g' \ -e 's|@''HAVE_CANONICALIZE_FILE_NAME''@|0|g' \ -e 's|@''HAVE_DECL_ECVT''@|0|g' \ -e 's|@''HAVE_DECL_FCVT''@|0|g' \ -e 's|@''HAVE_DECL_GCVT''@|0|g' \ -e 's|@''HAVE_DECL_GETLOADAVG''@|1|g' \ -e 's|@''HAVE_GETSUBOPT''@|1|g' \ -e 's|@''HAVE_GRANTPT''@|1|g' \ -e 's|@''HAVE_INITSTATE''@|1|g' \ -e 's|@''HAVE_DECL_INITSTATE''@|1|g' \ -e 's|@''HAVE_MBTOWC''@|1|g' \ -e 's|@''HAVE_MKDTEMP''@|1|g' \ -e 's|@''HAVE_MKOSTEMP''@|1|g' \ -e 's|@''HAVE_MKOSTEMPS''@|1|g' \ -e 's|@''HAVE_MKSTEMP''@|1|g' \ -e 's|@''HAVE_MKSTEMPS''@|1|g' \ -e 's|@''HAVE_POSIX_MEMALIGN''@|1|g' \ -e 's|@''HAVE_POSIX_OPENPT''@|1|g' \ -e 's|@''HAVE_PTSNAME''@|1|g' \ -e 's|@''HAVE_PTSNAME_R''@|1|g' \ -e 's|@''HAVE_QSORT_R''@|1|g' \ -e 's|@''HAVE_RANDOM''@|1|g' \ -e 's|@''HAVE_RANDOM_H''@|1|g' \ -e 's|@''HAVE_RANDOM_R''@|1|g' \ -e 's|@''HAVE_REALLOCARRAY''@|1|g' \ -e 's|@''HAVE_REALPATH''@|1|g' \ -e 's|@''HAVE_RPMATCH''@|1|g' \ -e 's|@''HAVE_SECURE_GETENV''@|1|g' \ -e 's|@''HAVE_DECL_SETENV''@|1|g' \ -e 's|@''HAVE_SETSTATE''@|1|g' \ -e 's|@''HAVE_DECL_SETSTATE''@|1|g' \ -e 's|@''HAVE_STRTOD''@|1|g' \ -e 's|@''HAVE_STRTOLD''@|1|g' \ -e 's|@''HAVE_STRTOLL''@|1|g' \ -e 's|@''HAVE_STRTOULL''@|1|g' \ -e 's|@''HAVE_STRUCT_RANDOM_DATA''@|1|g' \ -e 's|@''HAVE_SYS_LOADAVG_H''@|0|g' \ -e 's|@''HAVE_UNLOCKPT''@|1|g' \ -e 's|@''HAVE_DECL_UNSETENV''@|1|g' \ -e 's|@''REPLACE_ALIGNED_ALLOC''@|0|g' \ -e 's|@''REPLACE_CALLOC''@|0|g' \ -e 's|@''REPLACE_CANONICALIZE_FILE_NAME''@|0|g' \ -e 's|@''REPLACE_FREE''@|1|g' \ -e 's|@''REPLACE_INITSTATE''@|0|g' \ -e 's|@''REPLACE_MALLOC''@|0|g' \ -e 's|@''REPLACE_MBTOWC''@|0|g' \ -e 's|@''REPLACE_MKSTEMP''@|0|g' \ -e 's|@''REPLACE_POSIX_MEMALIGN''@|0|g' \ -e 's|@''REPLACE_PTSNAME''@|0|g' \ -e 's|@''REPLACE_PTSNAME_R''@|0|g' \ -e 's|@''REPLACE_PUTENV''@|0|g' \ -e 's|@''REPLACE_QSORT_R''@|0|g' \ -e 's|@''REPLACE_RANDOM''@|0|g' \ -e 's|@''REPLACE_RANDOM_R''@|0|g' \ -e 's|@''REPLACE_REALLOC''@|0|g' \ -e 's|@''REPLACE_REALPATH''@|0|g' \ -e 's|@''REPLACE_SETENV''@|0|g' \ -e 's|@''REPLACE_SETSTATE''@|0|g' \ -e 's|@''REPLACE_STRTOD''@|0|g' \ -e 's|@''REPLACE_STRTOLD''@|0|g' \ -e 's|@''REPLACE_UNSETENV''@|0|g' \ -e 's|@''REPLACE_WCTOMB''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _Noreturn/r ./_Noreturn.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h'; \ } > stdlib.h-t && \ mv stdlib.h-t stdlib.h rm -f string.h-t string.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_STRING_H''@||g' \ -e 's/@''GNULIB_EXPLICIT_BZERO''@/1/g' \ -e 's/@''GNULIB_FFSL''@/0/g' \ -e 's/@''GNULIB_FFSLL''@/0/g' \ -e 's/@''GNULIB_MBSLEN''@/0/g' \ -e 's/@''GNULIB_MBSNLEN''@/0/g' \ -e 's/@''GNULIB_MBSCHR''@/0/g' \ -e 's/@''GNULIB_MBSRCHR''@/0/g' \ -e 's/@''GNULIB_MBSSTR''@/0/g' \ -e 's/@''GNULIB_MBSCASECMP''@/0/g' \ -e 's/@''GNULIB_MBSNCASECMP''@/0/g' \ -e 's/@''GNULIB_MBSPCASECMP''@/0/g' \ -e 's/@''GNULIB_MBSCASESTR''@/0/g' \ -e 's/@''GNULIB_MBSCSPN''@/0/g' \ -e 's/@''GNULIB_MBSPBRK''@/0/g' \ -e 's/@''GNULIB_MBSSPN''@/0/g' \ -e 's/@''GNULIB_MBSSEP''@/0/g' \ -e 's/@''GNULIB_MBSTOK_R''@/0/g' \ -e 's/@''GNULIB_MEMCHR''@/0/g' \ -e 's/@''GNULIB_MEMMEM''@/1/g' \ -e 's/@''GNULIB_MEMPCPY''@/1/g' \ -e 's/@''GNULIB_MEMRCHR''@/1/g' \ -e 's/@''GNULIB_RAWMEMCHR''@/1/g' \ -e 's/@''GNULIB_STPCPY''@/1/g' \ -e 's/@''GNULIB_STPNCPY''@/0/g' \ -e 's/@''GNULIB_STRCHRNUL''@/0/g' \ -e 's/@''GNULIB_STRDUP''@/0/g' \ -e 's/@''GNULIB_STRNCAT''@/0/g' \ -e 's/@''GNULIB_STRNDUP''@/0/g' \ -e 's/@''GNULIB_STRNLEN''@/1/g' \ -e 's/@''GNULIB_STRPBRK''@/0/g' \ -e 's/@''GNULIB_STRSEP''@/0/g' \ -e 's/@''GNULIB_STRSTR''@/0/g' \ -e 's/@''GNULIB_STRCASESTR''@/0/g' \ -e 's/@''GNULIB_STRTOK_R''@/0/g' \ -e 's/@''GNULIB_STRERROR''@/0/g' \ -e 's/@''GNULIB_STRERROR_R''@/0/g' \ -e 's/@''GNULIB_STRERRORNAME_NP''@/0/g' \ -e 's/@''GNULIB_SIGABBREV_NP''@/0/g' \ -e 's/@''GNULIB_SIGDESCR_NP''@/1/g' \ -e 's/@''GNULIB_STRSIGNAL''@/0/g' \ -e 's/@''GNULIB_STRVERSCMP''@/0/g' \ -e 's/@''GNULIB_MDA_MEMCCPY''@/1/g' \ -e 's/@''GNULIB_MDA_STRDUP''@/1/g' \ < ./string.in.h | \ sed -e 's|@''HAVE_EXPLICIT_BZERO''@|1|g' \ -e 's|@''HAVE_FFSL''@|1|g' \ -e 's|@''HAVE_FFSLL''@|1|g' \ -e 's|@''HAVE_MBSLEN''@|0|g' \ -e 's|@''HAVE_DECL_MEMMEM''@|1|g' \ -e 's|@''HAVE_MEMPCPY''@|0|g' \ -e 's|@''HAVE_DECL_MEMRCHR''@|1|g' \ -e 's|@''HAVE_RAWMEMCHR''@|0|g' \ -e 's|@''HAVE_STPCPY''@|1|g' \ -e 's|@''HAVE_STPNCPY''@|1|g' \ -e 's|@''HAVE_STRCHRNUL''@|1|g' \ -e 's|@''HAVE_DECL_STRDUP''@|1|g' \ -e 's|@''HAVE_DECL_STRNDUP''@|1|g' \ -e 's|@''HAVE_DECL_STRNLEN''@|1|g' \ -e 's|@''HAVE_STRPBRK''@|1|g' \ -e 's|@''HAVE_STRSEP''@|1|g' \ -e 's|@''HAVE_STRCASESTR''@|1|g' \ -e 's|@''HAVE_DECL_STRTOK_R''@|1|g' \ -e 's|@''HAVE_DECL_STRERROR_R''@|1|g' \ -e 's|@''HAVE_STRERRORNAME_NP''@|1|g' \ -e 's|@''HAVE_SIGABBREV_NP''@|1|g' \ -e 's|@''HAVE_SIGDESCR_NP''@|0|g' \ -e 's|@''HAVE_DECL_STRSIGNAL''@|1|g' \ -e 's|@''HAVE_STRVERSCMP''@|1|g' \ -e 's|@''REPLACE_FFSLL''@|0|g' \ -e 's|@''REPLACE_MEMCHR''@|0|g' \ -e 's|@''REPLACE_MEMMEM''@|0|g' \ -e 's|@''REPLACE_STPNCPY''@|0|g' \ -e 's|@''REPLACE_STRCHRNUL''@|0|g' \ -e 's|@''REPLACE_STRDUP''@|0|g' \ -e 's|@''REPLACE_STRNCAT''@|0|g' \ -e 's|@''REPLACE_STRNDUP''@|0|g' \ -e 's|@''REPLACE_STRNLEN''@|0|g' \ -e 's|@''REPLACE_STRSTR''@|0|g' \ -e 's|@''REPLACE_STRCASESTR''@|0|g' \ -e 's|@''REPLACE_STRTOK_R''@|0|g' \ -e 's|@''REPLACE_STRERROR''@|0|g' \ -e 's|@''REPLACE_STRERROR_R''@|0|g' \ -e 's|@''REPLACE_STRERRORNAME_NP''@|0|g' \ -e 's|@''REPLACE_STRSIGNAL''@|0|g' \ -e 's|@''UNDEFINE_STRTOK_R''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h'; \ < ./string.in.h; \ } > string.h-t && \ mv string.h-t string.h /bin/mkdir -p sys /bin/mkdir -p sys /bin/mkdir -p sys /bin/mkdir -p sys rm -f sys/random.h-t sys/random.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_RANDOM_H''@||g' \ -e 's|@''HAVE_SYS_RANDOM_H''@|1|g' \ -e 's/@''GNULIB_GETRANDOM''@/1/g' \ -e 's/@''HAVE_GETRANDOM''@/1/g' \ -e 's/@''REPLACE_GETRANDOM''@/0/g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./sys_random.in.h; \ } > sys/random.h-t && \ mv -f sys/random.h-t sys/random.h rm -f sys/stat.h-t sys/stat.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_STAT_H''@||g' \ -e 's|@''WINDOWS_64_BIT_ST_SIZE''@|0|g' \ -e 's|@''WINDOWS_STAT_TIMESPEC''@|0|g' \ -e 's/@''GNULIB_FCHMODAT''@/1/g' \ -e 's/@''GNULIB_FSTAT''@/0/g' \ -e 's/@''GNULIB_FSTATAT''@/1/g' \ -e 's/@''GNULIB_FUTIMENS''@/1/g' \ -e 's/@''GNULIB_GETUMASK''@/0/g' \ -e 's/@''GNULIB_LCHMOD''@/0/g' \ -e 's/@''GNULIB_LSTAT''@/1/g' \ -e 's/@''GNULIB_MKDIR''@/0/g' \ -e 's/@''GNULIB_MKDIRAT''@/0/g' \ -e 's/@''GNULIB_MKFIFO''@/0/g' \ -e 's/@''GNULIB_MKFIFOAT''@/0/g' \ -e 's/@''GNULIB_MKNOD''@/0/g' \ -e 's/@''GNULIB_MKNODAT''@/0/g' \ -e 's/@''GNULIB_STAT''@/0/g' \ -e 's/@''GNULIB_UTIMENSAT''@/1/g' \ -e 's/@''GNULIB_OVERRIDES_STRUCT_STAT''@/0/g' \ -e 's/@''GNULIB_MDA_CHMOD''@/1/g' \ -e 's/@''GNULIB_MDA_MKDIR''@/1/g' \ -e 's/@''GNULIB_MDA_UMASK''@/1/g' \ -e 's|@''HAVE_FCHMODAT''@|1|g' \ -e 's|@''HAVE_FSTATAT''@|1|g' \ -e 's|@''HAVE_FUTIMENS''@|1|g' \ -e 's|@''HAVE_GETUMASK''@|1|g' \ -e 's|@''HAVE_LCHMOD''@|1|g' \ -e 's|@''HAVE_LSTAT''@|1|g' \ -e 's|@''HAVE_MKDIRAT''@|1|g' \ -e 's|@''HAVE_MKFIFO''@|1|g' \ -e 's|@''HAVE_MKFIFOAT''@|1|g' \ -e 's|@''HAVE_MKNOD''@|1|g' \ -e 's|@''HAVE_MKNODAT''@|1|g' \ -e 's|@''HAVE_UTIMENSAT''@|1|g' \ -e 's|@''REPLACE_FCHMODAT''@|0|g' \ -e 's|@''REPLACE_FSTAT''@|0|g' \ -e 's|@''REPLACE_FSTATAT''@|0|g' \ -e 's|@''REPLACE_FUTIMENS''@|0|g' \ -e 's|@''REPLACE_LSTAT''@|0|g' \ -e 's|@''REPLACE_MKDIR''@|0|g' \ -e 's|@''REPLACE_MKFIFO''@|0|g' \ -e 's|@''REPLACE_MKFIFOAT''@|0|g' \ -e 's|@''REPLACE_MKNOD''@|0|g' \ -e 's|@''REPLACE_MKNODAT''@|0|g' \ -e 's|@''REPLACE_STAT''@|0|g' \ -e 's|@''REPLACE_UTIMENSAT''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./sys_stat.in.h; \ } > sys/stat.h-t && \ mv sys/stat.h-t sys/stat.h rm -f sys/time.h-t sys/time.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's/@''HAVE_SYS_TIME_H''@/1/g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_TIME_H''@||g' \ -e 's/@''GNULIB_GETTIMEOFDAY''@/1/g' \ -e 's|@''HAVE_WINSOCK2_H''@|0|g' \ -e 's/@''HAVE_GETTIMEOFDAY''@/1/g' \ -e 's/@''HAVE_STRUCT_TIMEVAL''@/1/g' \ -e 's/@''REPLACE_GETTIMEOFDAY''@/0/g' \ -e 's/@''REPLACE_STRUCT_TIMEVAL''@/0/g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./sys_time.in.h; \ } > sys/time.h-t && \ mv sys/time.h-t sys/time.h rm -f sys/select.h-t sys/select.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_SELECT_H''@||g' \ -e 's|@''HAVE_SYS_SELECT_H''@|1|g' \ -e 's/@''GNULIB_PSELECT''@/1/g' \ -e 's/@''GNULIB_SELECT''@/0/g' \ -e 's|@''HAVE_WINSOCK2_H''@|0|g' \ -e 's|@''HAVE_PSELECT''@|1|g' \ -e 's|@''REPLACE_PSELECT''@|0|g' \ -e 's|@''REPLACE_SELECT''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./sys_select.in.h; \ } > sys/select.h-t && \ mv sys/select.h-t sys/select.h /bin/mkdir -p sys rm -f time.h-t time.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_TIME_H''@||g' \ -e 's/@''GNULIB_CTIME''@/0/g' \ -e 's/@''GNULIB_LOCALTIME''@/0/g' \ -e 's/@''GNULIB_MKTIME''@/1/g' \ -e 's/@''GNULIB_NANOSLEEP''@/0/g' \ -e 's/@''GNULIB_STRFTIME''@/0/g' \ -e 's/@''GNULIB_STRPTIME''@/0/g' \ -e 's/@''GNULIB_TIMEGM''@/1/g' \ -e 's/@''GNULIB_TIMESPEC_GET''@/0/g' \ -e 's/@''GNULIB_TIME_R''@/1/g' \ -e 's/@''GNULIB_TIME_RZ''@/1/g' \ -e 's/@''GNULIB_TZSET''@/0/g' \ -e 's/@''GNULIB_MDA_TZSET''@/1/g' \ -e 's|@''HAVE_DECL_LOCALTIME_R''@|1|g' \ -e 's|@''HAVE_NANOSLEEP''@|1|g' \ -e 's|@''HAVE_STRPTIME''@|1|g' \ -e 's|@''HAVE_TIMEGM''@|1|g' \ -e 's|@''HAVE_TIMESPEC_GET''@|1|g' \ -e 's|@''HAVE_TIMEZONE_T''@|0|g' \ -e 's|@''REPLACE_CTIME''@|GNULIB_PORTCHECK|g' \ -e 's|@''REPLACE_GMTIME''@|0|g' \ -e 's|@''REPLACE_LOCALTIME''@|0|g' \ -e 's|@''REPLACE_LOCALTIME_R''@|0|g' \ -e 's|@''REPLACE_MKTIME''@|1|g' \ -e 's|@''REPLACE_NANOSLEEP''@|GNULIB_PORTCHECK|g' \ -e 's|@''REPLACE_STRFTIME''@|GNULIB_PORTCHECK|g' \ -e 's|@''REPLACE_TIMEGM''@|1|g' \ -e 's|@''REPLACE_TZSET''@|GNULIB_PORTCHECK|g' \ -e 's|@''PTHREAD_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \ -e 's|@''SYS_TIME_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \ -e 's|@''TIME_H_DEFINES_STRUCT_TIMESPEC''@|1|g' \ -e 's|@''UNISTD_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \ -e 's|@''TIME_H_DEFINES_TIME_UTC''@|1|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h' \ < ./time.in.h; \ } > time.h-t && \ mv time.h-t time.h rm -f unistd.h-t unistd.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_UNISTD_H''@|1|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_UNISTD_H''@||g' \ -e 's|@''WINDOWS_64_BIT_OFF_T''@|0|g' \ -e 's/@''GNULIB_ACCESS''@/0/g' \ -e 's/@''GNULIB_CHDIR''@/0/g' \ -e 's/@''GNULIB_CHOWN''@/0/g' \ -e 's/@''GNULIB_CLOSE''@/0/g' \ -e 's/@''GNULIB_COPY_FILE_RANGE''@/1/g' \ -e 's/@''GNULIB_DUP''@/0/g' \ -e 's/@''GNULIB_DUP2''@/1/g' \ -e 's/@''GNULIB_DUP3''@/0/g' \ -e 's/@''GNULIB_ENVIRON''@/1/g' \ -e 's/@''GNULIB_EUIDACCESS''@/0/g' \ -e 's/@''GNULIB_EXECL''@/0/g' \ -e 's/@''GNULIB_EXECLE''@/0/g' \ -e 's/@''GNULIB_EXECLP''@/0/g' \ -e 's/@''GNULIB_EXECV''@/0/g' \ -e 's/@''GNULIB_EXECVE''@/0/g' \ -e 's/@''GNULIB_EXECVP''@/0/g' \ -e 's/@''GNULIB_EXECVPE''@/0/g' \ -e 's/@''GNULIB_FACCESSAT''@/1/g' \ -e 's/@''GNULIB_FCHDIR''@/0/g' \ -e 's/@''GNULIB_FCHOWNAT''@/0/g' \ -e 's/@''GNULIB_FDATASYNC''@/0/g' \ -e 's/@''GNULIB_FSYNC''@/1/g' \ -e 's/@''GNULIB_FTRUNCATE''@/0/g' \ -e 's/@''GNULIB_GETCWD''@/0/g' \ -e 's/@''GNULIB_GETDOMAINNAME''@/0/g' \ -e 's/@''GNULIB_GETDTABLESIZE''@/0/g' \ -e 's/@''GNULIB_GETENTROPY''@/0/g' \ -e 's/@''GNULIB_GETGROUPS''@/0/g' \ -e 's/@''GNULIB_GETHOSTNAME''@/0/g' \ -e 's/@''GNULIB_GETLOGIN''@/0/g' \ -e 's/@''GNULIB_GETLOGIN_R''@/0/g' \ -e 's/@''GNULIB_GETOPT_POSIX''@/1/g' \ -e 's/@''GNULIB_GETPAGESIZE''@/0/g' \ -e 's/@''GNULIB_GETPASS''@/0/g' \ -e 's/@''GNULIB_GETUSERSHELL''@/0/g' \ -e 's/@''GNULIB_GROUP_MEMBER''@/0/g' \ -e 's/@''GNULIB_ISATTY''@/0/g' \ -e 's/@''GNULIB_LCHOWN''@/0/g' \ -e 's/@''GNULIB_LINK''@/0/g' \ -e 's/@''GNULIB_LINKAT''@/0/g' \ -e 's/@''GNULIB_LSEEK''@/0/g' \ -e 's/@''GNULIB_PIPE''@/0/g' \ -e 's/@''GNULIB_PIPE2''@/1/g' \ -e 's/@''GNULIB_PREAD''@/0/g' \ -e 's/@''GNULIB_PWRITE''@/0/g' \ -e 's/@''GNULIB_READ''@/0/g' \ -e 's/@''GNULIB_READLINK''@/1/g' \ -e 's/@''GNULIB_READLINKAT''@/1/g' \ -e 's/@''GNULIB_RMDIR''@/0/g' \ -e 's/@''GNULIB_SETHOSTNAME''@/0/g' \ -e 's/@''GNULIB_SLEEP''@/0/g' \ -e 's/@''GNULIB_SYMLINK''@/1/g' \ -e 's/@''GNULIB_SYMLINKAT''@/0/g' \ -e 's/@''GNULIB_TRUNCATE''@/0/g' \ -e 's/@''GNULIB_TTYNAME_R''@/0/g' \ -e 's/@''GNULIB_UNISTD_H_GETOPT''@/01/g' \ -e 's/@''GNULIB_UNISTD_H_NONBLOCKING''@/0/g' \ -e 's/@''GNULIB_UNISTD_H_SIGPIPE''@/0/g' \ -e 's/@''GNULIB_UNLINK''@/0/g' \ -e 's/@''GNULIB_UNLINKAT''@/0/g' \ -e 's/@''GNULIB_USLEEP''@/0/g' \ -e 's/@''GNULIB_WRITE''@/0/g' \ -e 's/@''GNULIB_MDA_ACCESS''@/1/g' \ -e 's/@''GNULIB_MDA_CHDIR''@/1/g' \ -e 's/@''GNULIB_MDA_CLOSE''@/1/g' \ -e 's/@''GNULIB_MDA_DUP''@/1/g' \ -e 's/@''GNULIB_MDA_DUP2''@/1/g' \ -e 's/@''GNULIB_MDA_EXECL''@/1/g' \ -e 's/@''GNULIB_MDA_EXECLE''@/1/g' \ -e 's/@''GNULIB_MDA_EXECLP''@/1/g' \ -e 's/@''GNULIB_MDA_EXECV''@/1/g' \ -e 's/@''GNULIB_MDA_EXECVE''@/1/g' \ -e 's/@''GNULIB_MDA_EXECVP''@/1/g' \ -e 's/@''GNULIB_MDA_EXECVPE''@/1/g' \ -e 's/@''GNULIB_MDA_GETCWD''@/1/g' \ -e 's/@''GNULIB_MDA_GETPID''@/1/g' \ -e 's/@''GNULIB_MDA_ISATTY''@/1/g' \ -e 's/@''GNULIB_MDA_LSEEK''@/1/g' \ -e 's/@''GNULIB_MDA_READ''@/1/g' \ -e 's/@''GNULIB_MDA_RMDIR''@/1/g' \ -e 's/@''GNULIB_MDA_SWAB''@/1/g' \ -e 's/@''GNULIB_MDA_UNLINK''@/1/g' \ -e 's/@''GNULIB_MDA_WRITE''@/1/g' \ < ./unistd.in.h | \ sed -e 's|@''HAVE_CHOWN''@|1|g' \ -e 's|@''HAVE_COPY_FILE_RANGE''@|1|g' \ -e 's|@''HAVE_DUP3''@|1|g' \ -e 's|@''HAVE_EUIDACCESS''@|1|g' \ -e 's|@''HAVE_EXECVPE''@|1|g' \ -e 's|@''HAVE_FACCESSAT''@|1|g' \ -e 's|@''HAVE_FCHDIR''@|1|g' \ -e 's|@''HAVE_FCHOWNAT''@|1|g' \ -e 's|@''HAVE_FDATASYNC''@|1|g' \ -e 's|@''HAVE_FSYNC''@|1|g' \ -e 's|@''HAVE_FTRUNCATE''@|1|g' \ -e 's|@''HAVE_GETDTABLESIZE''@|1|g' \ -e 's|@''HAVE_GETENTROPY''@|1|g' \ -e 's|@''HAVE_GETGROUPS''@|1|g' \ -e 's|@''HAVE_GETHOSTNAME''@|1|g' \ -e 's|@''HAVE_GETPAGESIZE''@|1|g' \ -e 's|@''HAVE_GETPASS''@|1|g' \ -e 's|@''HAVE_GROUP_MEMBER''@|1|g' \ -e 's|@''HAVE_LCHOWN''@|1|g' \ -e 's|@''HAVE_LINK''@|1|g' \ -e 's|@''HAVE_LINKAT''@|1|g' \ -e 's|@''HAVE_PIPE''@|1|g' \ -e 's|@''HAVE_PIPE2''@|1|g' \ -e 's|@''HAVE_PREAD''@|1|g' \ -e 's|@''HAVE_PWRITE''@|1|g' \ -e 's|@''HAVE_READLINK''@|1|g' \ -e 's|@''HAVE_READLINKAT''@|1|g' \ -e 's|@''HAVE_SETHOSTNAME''@|1|g' \ -e 's|@''HAVE_SLEEP''@|1|g' \ -e 's|@''HAVE_SYMLINK''@|1|g' \ -e 's|@''HAVE_SYMLINKAT''@|1|g' \ -e 's|@''HAVE_UNLINKAT''@|1|g' \ -e 's|@''HAVE_USLEEP''@|1|g' \ -e 's|@''HAVE_DECL_ENVIRON''@|0|g' \ -e 's|@''HAVE_DECL_EXECVPE''@|0|g' \ -e 's|@''HAVE_DECL_FCHDIR''@|1|g' \ -e 's|@''HAVE_DECL_FDATASYNC''@|1|g' \ -e 's|@''HAVE_DECL_GETDOMAINNAME''@|1|g' \ -e 's|@''HAVE_DECL_GETLOGIN''@|1|g' \ -e 's|@''HAVE_DECL_GETLOGIN_R''@|1|g' \ -e 's|@''HAVE_DECL_GETPAGESIZE''@|1|g' \ -e 's|@''HAVE_DECL_GETUSERSHELL''@|1|g' \ -e 's|@''HAVE_DECL_SETHOSTNAME''@|1|g' \ -e 's|@''HAVE_DECL_TRUNCATE''@|1|g' \ -e 's|@''HAVE_DECL_TTYNAME_R''@|1|g' \ -e 's|@''HAVE_OS_H''@|0|g' \ -e 's|@''HAVE_SYS_PARAM_H''@|0|g' \ | \ sed -e 's|@''REPLACE_ACCESS''@|0|g' \ -e 's|@''REPLACE_CHOWN''@|0|g' \ -e 's|@''REPLACE_CLOSE''@|0|g' \ -e 's|@''REPLACE_DUP''@|0|g' \ -e 's|@''REPLACE_DUP2''@|0|g' \ -e 's|@''REPLACE_EXECL''@|0|g' \ -e 's|@''REPLACE_EXECLE''@|0|g' \ -e 's|@''REPLACE_EXECLP''@|0|g' \ -e 's|@''REPLACE_EXECV''@|0|g' \ -e 's|@''REPLACE_EXECVE''@|0|g' \ -e 's|@''REPLACE_EXECVP''@|0|g' \ -e 's|@''REPLACE_EXECVPE''@|0|g' \ -e 's|@''REPLACE_FACCESSAT''@|0|g' \ -e 's|@''REPLACE_FCHOWNAT''@|0|g' \ -e 's|@''REPLACE_FTRUNCATE''@|0|g' \ -e 's|@''REPLACE_GETCWD''@|0|g' \ -e 's|@''REPLACE_GETDOMAINNAME''@|0|g' \ -e 's|@''REPLACE_GETDTABLESIZE''@|0|g' \ -e 's|@''REPLACE_GETLOGIN_R''@|0|g' \ -e 's|@''REPLACE_GETGROUPS''@|0|g' \ -e 's|@''REPLACE_GETPAGESIZE''@|0|g' \ -e 's|@''REPLACE_GETPASS''@|0|g' \ -e 's|@''REPLACE_ISATTY''@|0|g' \ -e 's|@''REPLACE_LCHOWN''@|0|g' \ -e 's|@''REPLACE_LINK''@|0|g' \ -e 's|@''REPLACE_LINKAT''@|0|g' \ -e 's|@''REPLACE_LSEEK''@|0|g' \ -e 's|@''REPLACE_PREAD''@|0|g' \ -e 's|@''REPLACE_PWRITE''@|0|g' \ -e 's|@''REPLACE_READ''@|0|g' \ -e 's|@''REPLACE_READLINK''@|0|g' \ -e 's|@''REPLACE_READLINKAT''@|0|g' \ -e 's|@''REPLACE_RMDIR''@|0|g' \ -e 's|@''REPLACE_SLEEP''@|0|g' \ -e 's|@''REPLACE_SYMLINK''@|0|g' \ -e 's|@''REPLACE_SYMLINKAT''@|0|g' \ -e 's|@''REPLACE_TRUNCATE''@|0|g' \ -e 's|@''REPLACE_TTYNAME_R''@|0|g' \ -e 's|@''REPLACE_UNLINK''@|0|g' \ -e 's|@''REPLACE_UNLINKAT''@|0|g' \ -e 's|@''REPLACE_USLEEP''@|0|g' \ -e 's|@''REPLACE_WRITE''@|0|g' \ -e 's|@''UNISTD_H_HAVE_SYS_RANDOM_H''@|1|g' \ -e 's|@''UNISTD_H_HAVE_WINSOCK2_H''@|0|g' \ -e 's|@''UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ./c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ./arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ./warn-on-use.h'; \ } > unistd.h-t && \ mv unistd.h-t unistd.h rm -f sys/types.h-t sys/types.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_TYPES_H''@||g' \ -e 's|@''WINDOWS_64_BIT_OFF_T''@|0|g' \ -e 's|@''WINDOWS_STAT_INODES''@|0|g' \ < ./sys_types.in.h; \ } > sys/types.h-t && \ mv sys/types.h-t sys/types.h cc -c -isystem $prefix/include -MMD -MF deps/fingerprint.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o fingerprint.o fingerprint.c cc -c -isystem $prefix/include -MMD -MF deps/acl_entries.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o acl_entries.o acl_entries.c cc -c -isystem $prefix/include -MMD -MF deps/canonicalize-lgpl.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o canonicalize-lgpl.o canonicalize-lgpl.c cc -c -isystem $prefix/include -MMD -MF deps/fpending.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o fpending.o fpending.c cc -c -isystem $prefix/include -MMD -MF deps/free.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o free.o free.c cc -c -isystem $prefix/include -MMD -MF deps/fsusage.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o fsusage.o fsusage.c cc -c -isystem $prefix/include -MMD -MF deps/getopt.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o getopt.o getopt.c cc -c -isystem $prefix/include -MMD -MF deps/getopt1.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o getopt1.o getopt1.c cc -c -isystem $prefix/include -MMD -MF deps/mempcpy.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o mempcpy.o mempcpy.c cc -c -isystem $prefix/include -MMD -MF deps/mktime.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o mktime.o mktime.c cc -c -isystem $prefix/include -MMD -MF deps/rawmemchr.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o rawmemchr.o rawmemchr.c cc -c -isystem $prefix/include -MMD -MF deps/regex.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o regex.o regex.c cc -c -isystem $prefix/include -MMD -MF deps/sig2str.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o sig2str.o sig2str.c cc -c -isystem $prefix/include -MMD -MF deps/sigdescr_np.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o sigdescr_np.o sigdescr_np.c cc -c -isystem $prefix/include -MMD -MF deps/time_rz.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o time_rz.o time_rz.c cc -c -isystem $prefix/include -MMD -MF deps/timegm.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o timegm.o timegm.c cc -c -isystem $prefix/include -MMD -MF deps/acl-errno-valid.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o acl-errno-valid.o acl-errno-valid.c cc -c -isystem $prefix/include -MMD -MF deps/acl-internal.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o acl-internal.o acl-internal.c cc -c -isystem $prefix/include -MMD -MF deps/get-permissions.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o get-permissions.o get-permissions.c cc -c -isystem $prefix/include -MMD -MF deps/set-permissions.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o set-permissions.o set-permissions.c cc -c -isystem $prefix/include -MMD -MF deps/allocator.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o allocator.o allocator.c cc -c -isystem $prefix/include -MMD -MF deps/binary-io.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o binary-io.o binary-io.c cc -c -isystem $prefix/include -MMD -MF deps/c-ctype.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o c-ctype.o c-ctype.c cc -c -isystem $prefix/include -MMD -MF deps/c-strcasecmp.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o c-strcasecmp.o c-strcasecmp.c cc -c -isystem $prefix/include -MMD -MF deps/c-strncasecmp.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o c-strncasecmp.o c-strncasecmp.c cc -c -isystem $prefix/include -MMD -MF deps/careadlinkat.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o careadlinkat.o careadlinkat.c cc -c -isystem $prefix/include -MMD -MF deps/close-stream.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o close-stream.o close-stream.c cc -c -isystem $prefix/include -MMD -MF deps/count-leading-zeros.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o count-leading-zeros.o count-leading-zeros.c cc -c -isystem $prefix/include -MMD -MF deps/count-one-bits.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o count-one-bits.o count-one-bits.c cc -c -isystem $prefix/include -MMD -MF deps/count-trailing-zeros.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o count-trailing-zeros.o count-trailing-zeros.c cc -c -isystem $prefix/include -MMD -MF deps/md5.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o md5.o md5.c cc -c -isystem $prefix/include -MMD -MF deps/sha1.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o sha1.o sha1.c cc -c -isystem $prefix/include -MMD -MF deps/sha256.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o sha256.o sha256.c cc -c -isystem $prefix/include -MMD -MF deps/sha512.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o sha512.o sha512.c cc -c -isystem $prefix/include -MMD -MF deps/dtoastr.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o dtoastr.o dtoastr.c cc -c -isystem $prefix/include -MMD -MF deps/dtotimespec.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o dtotimespec.o dtotimespec.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/dynarray_at_failure.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/dynarray_at_failure.o malloc/dynarray_at_failure.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/dynarray_emplace_enlarge.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/dynarray_emplace_enlarge.o malloc/dynarray_emplace_enlarge.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/dynarray_finalize.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/dynarray_finalize.o malloc/dynarray_finalize.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/dynarray_resize.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/dynarray_resize.o malloc/dynarray_resize.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/dynarray_resize_clear.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/dynarray_resize_clear.o malloc/dynarray_resize_clear.c dtotimespec.c:34:27: warning: implicit conversion from 'time_t' (aka 'long') to 'double' changes value from 9223372036854775807 to 9223372036854775808 [-Wimplicit-const-int-float-conversion] else if (! (sec < 1.0 + TYPE_MAXIMUM (time_t))) ~ ^~~~~~~~~~~~~~~~~~~~~ ./intprops.h:58:4: note: expanded from macro 'TYPE_MAXIMUM' ((t) (! TYPE_SIGNED (t) \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ cc -c -isystem $prefix/include -MMD -MF deps/filemode.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o filemode.o filemode.c 1 warning generated. cc -c -isystem $prefix/include -MMD -MF deps/filevercmp.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o filevercmp.o filevercmp.c cc -c -isystem $prefix/include -MMD -MF deps/gettime.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o gettime.o gettime.c cc -c -isystem $prefix/include -MMD -MF deps/nstrftime.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o nstrftime.o nstrftime.c cc -c -isystem $prefix/include -MMD -MF deps/pipe2.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o pipe2.o pipe2.c cc -c -isystem $prefix/include -MMD -MF deps/qcopy-acl.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o qcopy-acl.o qcopy-acl.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/scratch_buffer_dupfree.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/scratch_buffer_dupfree.o malloc/scratch_buffer_dupfree.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/scratch_buffer_grow.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/scratch_buffer_grow.o malloc/scratch_buffer_grow.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/scratch_buffer_grow_preserve.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/scratch_buffer_grow_preserve.o malloc/scratch_buffer_grow_preserve.c cc -c -isystem $prefix/include -MMD -MF deps/malloc/scratch_buffer_set_array_size.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o malloc/scratch_buffer_set_array_size.o malloc/scratch_buffer_set_array_size.c cc -c -isystem $prefix/include -MMD -MF deps/stat-time.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o stat-time.o stat-time.c cc -c -isystem $prefix/include -MMD -MF deps/tempname.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o tempname.o tempname.c cc -c -isystem $prefix/include -MMD -MF deps/timespec.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o timespec.o timespec.c cc -c -isystem $prefix/include -MMD -MF deps/timespec-add.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o timespec-add.o timespec-add.c cc -c -isystem $prefix/include -MMD -MF deps/timespec-sub.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o timespec-sub.o timespec-sub.c cc -c -isystem $prefix/include -MMD -MF deps/u64.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o u64.o u64.c cc -c -isystem $prefix/include -MMD -MF deps/unistd.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o unistd.o unistd.c cc -c -isystem $prefix/include -MMD -MF deps/openat-die.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o openat-die.o openat-die.c cc -c -isystem $prefix/include -MMD -MF deps/save-cwd.d -MP -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -I. -I../src -I. -I./../src -DGL_COMPILE_CRYPTO_STREAM -o save-cwd.o save-cwd.c rm -f libgnu.a ar cr libgnu.a fingerprint.o acl_entries.o canonicalize-lgpl.o fpending.o free.o fsusage.o getopt.o getopt1.o mempcpy.o mktime.o rawmemchr.o regex.o sig2str.o sigdescr_np.o time_rz.o timegm.o acl-errno-valid.o acl-internal.o get-permissions.o set-permissions.o allocator.o binary-io.o c-ctype.o c-strcasecmp.o c-strncasecmp.o careadlinkat.o close-stream.o count-leading-zeros.o count-one-bits.o count-trailing-zeros.o md5.o sha1.o sha256.o sha512.o dtoastr.o dtotimespec.o malloc/dynarray_at_failure.o malloc/dynarray_emplace_enlarge.o malloc/dynarray_finalize.o malloc/dynarray_resize.o malloc/dynarray_resize_clear.o filemode.o filevercmp.o gettime.o nstrftime.o pipe2.o qcopy-acl.o malloc/scratch_buffer_dupfree.o malloc/scratch_buffer_grow.o malloc/scratch_buffer_grow_preserve.o malloc/scratch_buffer_set_array_size.o stat-time.o tempname.o timespec.o timespec-add.o timespec-sub.o u64.o unistd.o openat-die.o save-cwd.o ranlib libgnu.a gmake[2]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lib' gmake -C lib-src all gmake[2]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lib-src' cc -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -o etags etags.c ../lib/libgnu.a -lutil cc -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -o ctags ctags.c ../lib/libgnu.a -lutil cc -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing emacsclient.c \ ../lib/libgnu.a -lutil \ -o emacsclient cc -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -o ebrowse ebrowse.c ../lib/libgnu.a -lutil cc -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing hexl.c ../lib/libgnu.a -lutil -o hexl cc -c -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing pop.c cc -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing make-docfile.c ../lib/libgnu.a -lutil -o make-docfile cc -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing make-fingerprint.c ../lib/libgnu.a -lutil -o make-fingerprint cc -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -I. -I../src -I../lib -I. -I./../src -I./../lib -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib -isystem $prefix/include -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing movemail.c pop.o \ ../lib/libgnu.a -lutil -o movemail gmake[2]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/doc/lispintro' gmake[2]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lib-src' gmake -C src VCSWITNESS='' BIN_DESTDIR=''$prefix/bin/'' \ ELN_DESTDIR='$prefix/lib/emacs/28.0.50/' all gmake[2]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/src' ( printf 'shortlisp = \\\n'; \ sed -n 's/^[ \t]*(load "\([^"]*\)".*/\1/p' ../lisp/loadup.el | \ sed -e 's/$/.elc \\/' -e 's/\.el\.elc/.el/'; \ echo "" ) > lisp.mk ../lib-src/make-docfile -d . -g dispnew.o frame.o scroll.o xdisp.o menu.o window.o charset.o coding.o category.o ccl.o character.o chartab.o bidi.o cm.o term.o terminal.o xfaces.o emacs.o keyboard.o macros.o keymap.o sysdep.o bignum.o buffer.o filelock.o insdel.o marker.o minibuf.o fileio.o dired.o cmds.o casetab.o casefiddle.o indent.o search.o regex-emacs.o undo.o alloc.o pdumper.o data.o doc.o editfns.o callint.o eval.o floatfns.o fns.o font.o print.o lread.o emacs-module.o syntax.o bytecode.o comp.o dynlib.o process.o gnutls.o callproc.o region-cache.o sound.o timefns.o atimer.o doprnt.o intervals.o textprop.o composite.o xml.o lcms.o kqueue.o profiler.o decompress.o thread.o systhread.o json.o > globals.tmp for i in dispnew.o frame.o scroll.o xdisp.o menu.o window.o charset.o coding.o category.o ccl.o character.o chartab.o bidi.o cm.o term.o terminal.o xfaces.o emacs.o keyboard.o macros.o keymap.o sysdep.o bignum.o buffer.o filelock.o insdel.o marker.o minibuf.o fileio.o dired.o cmds.o casetab.o casefiddle.o indent.o search.o regex-emacs.o undo.o alloc.o pdumper.o data.o doc.o editfns.o callint.o eval.o floatfns.o fns.o font.o print.o lread.o emacs-module.o syntax.o bytecode.o comp.o dynlib.o process.o gnutls.o callproc.o region-cache.o sound.o timefns.o atimer.o doprnt.o intervals.o textprop.o composite.o xml.o lcms.o kqueue.o profiler.o decompress.o thread.o systhread.o json.o terminfo.o lastfile.o ; do \ echo "$i" | sed 's,.*/,,; s/\.obj$/\.o/; s/^/"/; s/$/",/' \ || exit; \ done >buildobj.h.tmp gmake -C ../admin/charsets all gmake -C ../admin/unidata charscript.el gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/unidata' gmake -C ../admin/charsets cp51932.el gmake -C ../admin/charsets eucjp-ms.el gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/charsets' AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-2.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-2.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-3.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-3.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-4.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-4.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-5.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-5.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-6.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-6.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-7.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-7.map gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/charsets' AWK=/usr/bin/awk ./mapconv mapfiles/CP932.TXT '/^0x[89A-F][0-9A-F][0-9A-F]/' UNICODE2 ./cp932.awk > ../../etc/charsets/CP932-2BYTE.map gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/charsets' gunzip -c glibc/EUC-JP-MS.gz | /usr/bin/awk -f ./eucjp-ms.awk > ../../lisp/international/eucjp-ms.el AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-8.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-8.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-9.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-9.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-10.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-10.map /usr/bin/awk -f ./blocks.awk < Blocks.txt > ../../lisp/international/charscript.el ../build-aux/move-if-change globals.tmp globals.h gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/unidata' AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-11.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-11.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-13.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-13.map echo timestamp > gl-stamp AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-14.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-14.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-15.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-15.map AWK=/usr/bin/awk ./mapconv glibc/ISO-8859-16.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/8859-16.map AWK=/usr/bin/awk ./mapconv glibc/IBM037.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM037.map AWK=/usr/bin/awk ./mapconv glibc/IBM038.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM038.map AWK=/usr/bin/awk ./mapconv glibc/IBM256.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM256.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/dispnew.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing dispnew.c AWK=/usr/bin/awk ./mapconv glibc/IBM273.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM273.map AWK=/usr/bin/awk ./mapconv glibc/IBM274.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM274.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/frame.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing frame.c gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/charsets' AWK=/usr/bin/awk ./mapconv glibc/IBM275.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM275.map AWK=/usr/bin/awk ./mapconv glibc/IBM277.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM277.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/scroll.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing scroll.c AWK=/usr/bin/awk ./mapconv glibc/IBM278.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM278.map AWK=/usr/bin/awk ./mapconv glibc/IBM280.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM280.map AWK=/usr/bin/awk ./mapconv glibc/IBM281.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM281.map AWK=/usr/bin/awk ./mapconv glibc/IBM284.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM284.map AWK=/usr/bin/awk ./mapconv glibc/IBM285.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM285.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/xdisp.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing xdisp.c AWK=/usr/bin/awk ./mapconv glibc/IBM290.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM290.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/menu.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing menu.c AWK=/usr/bin/awk ./mapconv glibc/IBM297.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM297.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/window.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing window.c AWK=/usr/bin/awk ./mapconv glibc/IBM420.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM420.map AWK=/usr/bin/awk ./mapconv glibc/IBM423.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM423.map AWK=/usr/bin/awk ./mapconv glibc/IBM424.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM424.map AWK=/usr/bin/awk ./mapconv glibc/IBM437.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM437.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/charset.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing charset.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/coding.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing coding.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/category.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing category.c AWK=/usr/bin/awk ./mapconv glibc/IBM500.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM500.map AWK=/usr/bin/awk ./mapconv glibc/IBM850.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM850.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/ccl.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing ccl.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/character.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing character.c AWK=/usr/bin/awk ./mapconv glibc/IBM851.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM851.map AWK=/usr/bin/awk ./mapconv glibc/IBM852.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM852.map mv buildobj.h.tmp buildobj.h AWK=/usr/bin/awk ./mapconv glibc/IBM855.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM855.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/chartab.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing chartab.c AWK=/usr/bin/awk ./mapconv glibc/IBM856.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM856.map AWK=/usr/bin/awk ./mapconv glibc/IBM857.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM857.map AWK=/usr/bin/awk ./mapconv glibc/IBM860.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM860.map AWK=/usr/bin/awk ./mapconv glibc/IBM861.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM861.map AWK=/usr/bin/awk ./mapconv glibc/IBM862.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM862.map AWK=/usr/bin/awk ./mapconv glibc/IBM863.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM863.map AWK=/usr/bin/awk ./mapconv glibc/IBM864.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM864.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/bidi.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing bidi.c /usr/bin/awk -f ./cp51932.awk < ../../etc/charsets/CP932-2BYTE.map > ../../lisp/international/cp51932.el gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/charsets' cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/cm.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing cm.c AWK=/usr/bin/awk ./mapconv glibc/IBM865.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM865.map AWK=/usr/bin/awk ./mapconv glibc/IBM866.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM866.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/term.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing term.c AWK=/usr/bin/awk ./mapconv glibc/IBM868.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM868.map AWK=/usr/bin/awk ./mapconv glibc/IBM869.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM869.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/terminal.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing terminal.c AWK=/usr/bin/awk ./mapconv glibc/IBM870.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM870.map AWK=/usr/bin/awk ./mapconv glibc/IBM871.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM871.map AWK=/usr/bin/awk ./mapconv glibc/IBM874.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM874.map AWK=/usr/bin/awk ./mapconv glibc/IBM875.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM875.map AWK=/usr/bin/awk ./mapconv glibc/IBM880.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM880.map AWK=/usr/bin/awk ./mapconv glibc/IBM891.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM891.map AWK=/usr/bin/awk ./mapconv glibc/IBM903.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM903.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/xfaces.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing xfaces.c AWK=/usr/bin/awk ./mapconv glibc/IBM904.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM904.map AWK=/usr/bin/awk ./mapconv glibc/IBM905.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM905.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/emacs.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing emacs.c AWK=/usr/bin/awk ./mapconv glibc/IBM918.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM918.map AWK=/usr/bin/awk ./mapconv glibc/IBM1004.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM1004.map AWK=/usr/bin/awk ./mapconv glibc/IBM1026.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM1026.map AWK=/usr/bin/awk ./mapconv glibc/IBM1047.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/IBM1047.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/keyboard.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing keyboard.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/macros.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing macros.c AWK=/usr/bin/awk ./mapconv glibc/CP737.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP737.map AWK=/usr/bin/awk ./mapconv glibc/CP775.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP775.map AWK=/usr/bin/awk ./mapconv glibc/CP1125.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1125.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/keymap.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing keymap.c AWK=/usr/bin/awk ./mapconv glibc/CP1250.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1250.map AWK=/usr/bin/awk ./mapconv glibc/CP1251.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1251.map AWK=/usr/bin/awk ./mapconv glibc/CP1252.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1252.map AWK=/usr/bin/awk ./mapconv glibc/CP1253.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1253.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/sysdep.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing sysdep.c AWK=/usr/bin/awk ./mapconv glibc/CP1254.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1254.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/bignum.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing bignum.c AWK=/usr/bin/awk ./mapconv glibc/CP1255.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1255.map AWK=/usr/bin/awk ./mapconv glibc/CP1256.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1256.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/buffer.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing buffer.c AWK=/usr/bin/awk ./mapconv glibc/CP1257.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1257.map AWK=/usr/bin/awk ./mapconv glibc/CP1258.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP1258.map AWK=/usr/bin/awk ./mapconv glibc/CP10007.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/CP10007.map cp mapfiles/CP720.map ../../etc/charsets/CP720.map cp mapfiles/CP858.map ../../etc/charsets/CP858.map AWK=/usr/bin/awk ./mapconv glibc/GB2312.gz '/^<.*[ ]\/x[a-f]/' GLIBC-2-7 ./compact.awk > ../../etc/charsets/GB2312.map AWK=/usr/bin/awk ./mapconv glibc/GBK.gz '/^<.*[ ]\/x[89a-f]/' GLIBC-2 ./compact.awk > ../../etc/charsets/GBK.map AWK=/usr/bin/awk ./mapconv glibc/GB18030.gz '/^<.*[ ]\/x..\/x..[ ]/' GLIBC-2 ./gb180302.awk > ../../etc/charsets/GB180302.map AWK=/usr/bin/awk ./mapconv glibc/BIG5.gz '/^<.*[ ]\/x[a-f]/' GLIBC-2 > ../../etc/charsets/BIG5.map AWK=/usr/bin/awk ./mapconv glibc/BIG5-HKSCS.gz '/^<.*[ ]\/x[89a-f].\//' GLIBC-2 ./compact.awk > ../../etc/charsets/BIG5-HKSCS.map AWK=/usr/bin/awk ./mapconv glibc/EUC-TW.gz '/^<.*[ ]\/x[a-f]/' GLIBC-2-7 ./compact.awk > ../../etc/charsets/CNS-1.map AWK=/usr/bin/awk ./mapconv mapfiles/cns2ucsdkw.txt '/^C2/' KANJI-DATABASE ./compact.awk > ../../etc/charsets/CNS-2.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/filelock.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing filelock.c AWK=/usr/bin/awk ./mapconv mapfiles/cns2ucsdkw.txt '/^C3/' KANJI-DATABASE ./compact.awk > ../../etc/charsets/CNS-3.map AWK=/usr/bin/awk ./mapconv mapfiles/cns2ucsdkw.txt '/^C4/' KANJI-DATABASE ./compact.awk > ../../etc/charsets/CNS-4.map AWK=/usr/bin/awk ./mapconv mapfiles/cns2ucsdkw.txt '/^C5/' KANJI-DATABASE ./compact.awk > ../../etc/charsets/CNS-5.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/insdel.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing insdel.c AWK=/usr/bin/awk ./mapconv mapfiles/cns2ucsdkw.txt '/^C6/' KANJI-DATABASE ./compact.awk > ../../etc/charsets/CNS-6.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/marker.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing marker.c AWK=/usr/bin/awk ./mapconv mapfiles/cns2ucsdkw.txt '/^C7/' KANJI-DATABASE ./compact.awk > ../../etc/charsets/CNS-7.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/minibuf.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing minibuf.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/fileio.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing fileio.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/dired.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing dired.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/cmds.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing cmds.c AWK=/usr/bin/awk ./mapconv glibc/EUC-TW.gz '/^<.*\/x8e\/xaf/ s,/x8e/xaf,,' GLIBC-2-7 ./compact.awk > ../../etc/charsets/CNS-F.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/casetab.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing casetab.c fileio.c:3659:31: warning: implicit conversion from 'off_t' (aka 'long') to 'double' changes value from 9223372036854775807 to 9223372036854775808 [-Wimplicit-const-int-float-conversion] if (0 <= v && v < 1.0 + TYPE_MAXIMUM (off_t)) ~ ^~~~~~~~~~~~~~~~~~~~ ../lib/intprops.h:58:4: note: expanded from macro 'TYPE_MAXIMUM' ((t) (! TYPE_SIGNED (t) \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (./mapconv glibc/JIS_X0201.gz '/^<.*[ ]\/x[0-9]/' GLIBC-1 ./compact.awk && \ echo "# Generated by hand" && \ echo "0xA1-0xDF 0xFF61" ) > ../../etc/charsets/JISX0201.map AWK=/usr/bin/awk ./mapconv glibc/EUC-JP.gz '/^<.*[ ]\/x[a-f]/' GLIBC-2-7 \ | sed 's/0x2015/0x2014/' > ../../etc/charsets/JISX0208.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/casefiddle.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing casefiddle.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/indent.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing indent.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/search.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing search.c AWK=/usr/bin/awk ./mapconv glibc/EUC-JP.gz '/^<.*[ ]\/x8f/ s,/x8f,,' GLIBC-2-7 ./compact.awk > ../../etc/charsets/JISX0212.map sed -n -e '/^#/d' -e 's,.*0x\([0-9A-Z]*\)$,/0x0*\1$/d,p' < mapfiles/JISX213A.map > jisx2131-filter cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/regex-emacs.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing regex-emacs.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/undo.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing undo.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/alloc.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing alloc.c AWK=/usr/bin/awk ./mapconv glibc/EUC-JISX0213.gz '/^<.*[ ]\/x8f/ s,/x8f,,' GLIBC-2-7 > ../../etc/charsets/JISX2132.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/pdumper.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing pdumper.c (AWK=/usr/bin/awk ./mapconv mapfiles/Uni2JIS '/^[^#].*0-/' YASUOKA ./kuten.awk \ | sed -e '/0x2140/s/005C/FF3C/' && \ echo '0x3442 0x3D4E' && echo '0x374E 0x25874' && \ echo '0x3764 0x28EF6' && echo '0x513D 0x2F80F' && \ echo '0x7045 0x9724' ) > ../../etc/charsets/JISC6226.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/data.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing data.c cp mapfiles/JISX213A.map ../../etc/charsets/JISX213A.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/doc.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing doc.c AWK=/usr/bin/awk ./mapconv glibc/EUC-KR.gz '/^<.*[ ]\/x[a-f]/' GLIBC-2-7 ./compact.awk > ../../etc/charsets/KSC5601.map alloc.c:5963:18: warning: implicit conversion from 'long' to 'double' changes value from 4611686018427387903 to 4611686018427387904 [-Wimplicit-const-int-float-conversion] if (tot < HI_THRESHOLD) ~ ^~~~~~~~~~~~ alloc.c:309:37: note: expanded from macro 'HI_THRESHOLD' #define HI_THRESHOLD (EMACS_INT_MAX / 2) ~~~~~~~~~~~~~~^~~ AWK=/usr/bin/awk ./mapconv glibc/KSC5636.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/KSC5636.map AWK=/usr/bin/awk ./mapconv glibc/JOHAB.gz '/^<.*[ ]\/x[89a-f]/' GLIBC-2 ./compact.awk > ../../etc/charsets/JOHAB.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/editfns.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing editfns.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/callint.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing callint.c AWK=/usr/bin/awk ./mapconv glibc/KOI-8.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/KOI-8.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/eval.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing eval.c 1 warning generated. AWK=/usr/bin/awk ./mapconv glibc/KOI8-R.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/KOI8-R.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/floatfns.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing floatfns.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/fns.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing fns.c editfns.c:3651:21: warning: implicit conversion from 'unsigned long' to 'double' changes value from 18446744073709551615 to 18446744073709551616 [-Wimplicit-const-int-float-conversion] if (abs_d < UINTMAX_MAX + 1.0) ^~~~~~~~~~~ ~ /usr/include/machine/_stdint.h:166:21: note: expanded from macro 'UINTMAX_MAX' #define UINTMAX_MAX UINT64_MAX ^~~~~~~~~~ /usr/include/machine/_stdint.h:100:20: note: expanded from macro 'UINT64_MAX' #define UINT64_MAX __UINT64_C(0xffffffffffffffff) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ /usr/include/machine/_stdint.h:73:25: note: expanded from macro '__UINT64_C' #define __UINT64_C(c) (c ## UL) ^~~~~~~ :129:1: note: expanded from here 0xffffffffffffffffUL ^~~~~~~~~~~~~~~~~~~~ AWK=/usr/bin/awk ./mapconv glibc/KOI8-U.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/KOI8-U.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/font.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing font.c AWK=/usr/bin/awk ./mapconv glibc/KOI8-T.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/KOI8-T.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/print.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing print.c (echo "# Modified from IBM866.map according to the chart at" && \ echo "# https://web.archive.org/web/20100131045151/http://www.cyrillic.com/ref/cyrillic/koi-8alt.html" && \ echo "# with guesses for the Unicodes of the glyphs." && \ sed -e '1 d' \ -e '/0xF2/ s/ .*/ 0x2019/' \ -e '/0xF3/ s/ .*/ 0x2018/' \ -e '/0xF4/ s/ .*/ 0x0301/' \ -e '/0xF5/ s/ .*/ 0x0300/' \ -e '/0xF6/ s/ .*/ 0x203A/' \ -e '/0xF7/ s/ .*/ 0x2039/' \ -e '/0xF8/ s/ .*/ 0x2191/' \ -e '/0xF9/ s/ .*/ 0x2193/' \ -e '/0xFA/ s/ .*/ 0x00B1/' \ -e '/0xFB/ s/ .*/ 0x00F7/' < ../../etc/charsets/IBM866.map ) > ../../etc/charsets/ALTERNATIVNYJ.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/lread.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing lread.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/emacs-module.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing emacs-module.c fns.c:4258:58: warning: implicit conversion from 'long' to 'double' changes value from 1152921504606846974 to 1152921504606846976 [-Wimplicit-const-int-float-conversion] ptrdiff_t index_size = (index_float < INDEX_SIZE_BOUND + 1 ~ ~~~~~~~~~~~~~~~~~^~~ fns.c:4379:25: warning: implicit conversion from 'long' to 'double' changes value from 9223372036854775807 to 9223372036854775808 [-Wimplicit-const-int-float-conversion] if (float_new_size < EMACS_INT_MAX) ~ ^~~~~~~~~~~~~ ./lisp.h:90:25: note: expanded from macro 'EMACS_INT_MAX' # define EMACS_INT_MAX LONG_MAX ^~~~~~~~ /usr/include/sys/limits.h:64:18: note: expanded from macro 'LONG_MAX' #define LONG_MAX __LONG_MAX /* max for a long */ ^~~~~~~~~~ /usr/include/machine/_limits.h:64:20: note: expanded from macro '__LONG_MAX' #define __LONG_MAX 0x7fffffffffffffff ^~~~~~~~~~~~~~~~~~ AWK=/usr/bin/awk ./mapconv mapfiles/bulgarian-mik.txt '1,$' CZYBORRA ./compact.awk > ../../etc/charsets/MIK.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/syntax.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing syntax.c AWK=/usr/bin/awk ./mapconv mapfiles/PTCP154 '/^0x/' IANA ./compact.awk > ../../etc/charsets/PTCP154.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/bytecode.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing bytecode.c AWK=/usr/bin/awk ./mapconv glibc/TIS-620.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/TIS-620.map 1 warning generated. cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/comp.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing comp.c AWK=/usr/bin/awk ./mapconv glibc/VISCII.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/VISCII.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/dynlib.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing dynlib.c AWK=/usr/bin/awk ./mapconv glibc/TCVN5712-1.gz '/^<.*[ ]\/x[0-9a-f].[ ]/' GLIBC-1 ./compact.awk > ../../etc/charsets/VSCII.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/process.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing process.c comp.c:2631:24: warning: pragma diagnostic pop could not pop, no matching push [-Wunknown-pragmas] #pragma GCC diagnostic pop ^ comp.c:2704:75: warning: while loop has empty body [-Wempty-body] ADD_IMPORTED (helper_PSEUDOVECTOR_TYPEP_XUNTAG, comp.bool_type, 2, args); ^ comp.c:2704:75: note: put the semicolon on a separate line to silence this warning comp.c:2710:62: warning: while loop has empty body [-Wempty-body] ADD_IMPORTED (push_handler, comp.handler_ptr_type, 2, args); ^ comp.c:2710:62: note: put the semicolon on a separate line to silence this warning comp.c:2715:62: warning: while loop has empty body [-Wempty-body] ADD_IMPORTED (helper_unbind_n, comp.lisp_obj_type, 1, args); ^ comp.c:2715:62: note: put the semicolon on a separate line to silence this warning comp.c:2717:66: warning: while loop has empty body [-Wempty-body] ADD_IMPORTED (helper_save_restriction, comp.void_type, 0, NULL); ^ comp.c:2717:66: note: put the semicolon on a separate line to silence this warning comp.c:2729:51: warning: while loop has empty body [-Wempty-body] ADD_IMPORTED (specbind, comp.void_type, 2, args); ^ comp.c:2729:51: note: put the semicolon on a separate line to silence this warning comp.c:2731:51: warning: while loop has empty body [-Wempty-body] ADD_IMPORTED (maybe_gc, comp.void_type, 0, NULL); ^ comp.c:2731:51: note: put the semicolon on a separate line to silence this warning AWK=/usr/bin/awk ./mapconv glibc/TCVN5712-1.gz '/^<.*[ ]\/x[2-7a-f].[ ]/' GLIBC-1 ./compact.awk \ | sed 's/0x20-0x7F.*/0x00-0x7F 0x0000/' > ../../etc/charsets/VSCII-2.map AWK=/usr/bin/awk ./mapconv glibc/GEORGIAN-PS.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/KA-PS.map comp.c:4358:24: warning: pragma diagnostic pop could not pop, no matching push [-Wunknown-pragmas] #pragma GCC diagnostic pop ^ comp.c:4564:24: warning: pragma diagnostic pop could not pop, no matching push [-Wunknown-pragmas] #pragma GCC diagnostic pop ^ AWK=/usr/bin/awk ./mapconv glibc/GEORGIAN-ACADEMY.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/KA-ACADEMY.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/gnutls.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing gnutls.c AWK=/usr/bin/awk ./mapconv glibc/HP-ROMAN8.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/HP-ROMAN8.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/callproc.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing callproc.c AWK=/usr/bin/awk ./mapconv glibc/NEXTSTEP.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/NEXTSTEP.map AWK=/usr/bin/awk ./mapconv glibc/MACINTOSH.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/MACINTOSH.map AWK=/usr/bin/awk ./mapconv glibc/EBCDIC-UK.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/EBCDICUK.map 1 warning generated. cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/region-cache.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing region-cache.c AWK=/usr/bin/awk ./mapconv glibc/EBCDIC-US.gz '/^<.*[ ]\/x/' GLIBC-1 ./compact.awk > ../../etc/charsets/EBCDICUS.map AWK=/usr/bin/awk ./mapconv mapfiles/stdenc.txt '/^[0-9A-Fa-f]/' UNICODE ./compact.awk > ../../etc/charsets/stdenc.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/sound.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing sound.c AWK=/usr/bin/awk ./mapconv mapfiles/symbol.txt '/^[0-9A-Fa-f]/' UNICODE ./compact.awk > ../../etc/charsets/symbol.map AWK=/usr/bin/awk ./mapconv glibc/CP949.gz '/^<.*[ ]\/x[89a-f]/' GLIBC-2 ./compact.awk > ../../etc/charsets/CP949-2BYTE.map (echo "# Generated from BIG5.map" && \ sed -n -e '/0xa140/,/0xc8fe/p' < ../../etc/charsets/BIG5.map | /usr/bin/awk -f ./big5.awk ) > ../../etc/charsets/BIG5-1.map (echo "# Generated from BIG5.map" && \ sed -n -e '/0xc940/,$ p' < ../../etc/charsets/BIG5.map | /usr/bin/awk -f ./big5.awk ) > ../../etc/charsets/BIG5-2.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/timefns.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing timefns.c cp mapfiles/MULE-ethiopic.map ../../etc/charsets/MULE-ethiopic.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/atimer.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing atimer.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/doprnt.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing doprnt.c cp mapfiles/MULE-ipa.map ../../etc/charsets/MULE-ipa.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/intervals.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing intervals.c cp mapfiles/MULE-is13194.map ../../etc/charsets/MULE-is13194.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/textprop.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing textprop.c cp mapfiles/MULE-sisheng.map ../../etc/charsets/MULE-sisheng.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/composite.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing composite.c cp mapfiles/MULE-tibetan.map ../../etc/charsets/MULE-tibetan.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/xml.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing xml.c cp mapfiles/MULE-lviscii.map ../../etc/charsets/MULE-lviscii.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/lcms.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing lcms.c cp mapfiles/MULE-uviscii.map ../../etc/charsets/MULE-uviscii.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/kqueue.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing kqueue.c /usr/bin/awk -f ./gb180304.awk < ../../etc/charsets/GB180302.map > ../../etc/charsets/GB180304.map AWK=/usr/bin/awk ./mapconv glibc/EUC-JISX0213.gz '/^<.*[ ]\/x[a-f]/' GLIBC-2-7 \ | sed -f ./jisx2131-filter \ | sed -e 's/0x2015/0x2014/' -e 's/0x2299/0x29BF/' > ../../etc/charsets/JISX2131.map cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/profiler.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing profiler.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/decompress.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing decompress.c 2 warnings generated. cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/thread.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing thread.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/systhread.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing systhread.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/json.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing json.c 9 warnings generated. cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/terminfo.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing terminfo.c cc -c -isystem $prefix/include -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/lastfile.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing lastfile.c echo timestamp > charsets.stamp gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/charsets' cc -o temacs.tmp \ -Demacs -I. -I. -I../lib -I../lib -I$prefix/include/libxml2 -MMD -MF deps/.d -MP -I$prefix/include -I$prefix/include -I$prefix/include/p11-kit-1 -Wno-switch -Wno-pointer-sign -Wno-string-plus-int -Wno-unknown-attributes -Wno-initializer-overrides -Wno-tautological-compare -Wno-tautological-constant-out-of-range-compare -O2 -pipe -I$prefix/include -fstack-protector-strong -isystem $prefix/include -fno-strict-aliasing -L$prefix/lib/gcc11 -fstack-protector-strong -L$prefix/lib \ dispnew.o frame.o scroll.o xdisp.o menu.o window.o charset.o coding.o category.o ccl.o character.o chartab.o bidi.o cm.o term.o terminal.o xfaces.o emacs.o keyboard.o macros.o keymap.o sysdep.o bignum.o buffer.o filelock.o insdel.o marker.o minibuf.o fileio.o dired.o cmds.o casetab.o casefiddle.o indent.o search.o regex-emacs.o undo.o alloc.o pdumper.o data.o doc.o editfns.o callint.o eval.o floatfns.o fns.o font.o print.o lread.o emacs-module.o syntax.o bytecode.o comp.o dynlib.o process.o gnutls.o callproc.o region-cache.o sound.o timefns.o atimer.o doprnt.o intervals.o textprop.o composite.o xml.o lcms.o kqueue.o profiler.o decompress.o thread.o systhread.o json.o terminfo.o lastfile.o ../lib/libgnu.a -lrt -lexecinfo -L$prefix/lib -lxml2 -lutil -lncurses -L$prefix/lib -lgnutls -lpthread -lm -lz -L$prefix/lib -ljansson -lgmp -lgccjit -ldl ../lib-src/make-fingerprint temacs.tmp mv temacs.tmp temacs /bin/mkdir -p ../etc gmake -C ../lisp update-subdirs gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' for file in . ./calc ./calendar ./emacs-lisp ./emulation ./erc ./eshell ./gnus ./image ./international ./language ./mail ./mh-e ./net ./nxml ./obsolete ./org ./play ./progmodes ./term ./textmodes ./url ./vc; do \ ./../build-aux/update-subdirs $file; \ done; gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' cp -f temacs bootstrap-emacs rm -f bootstrap-emacs.pdmp ./temacs --batch --no-build-details -l loadup --temacs=pbootstrap \ --bin-dest $prefix/bin/ --eln-dest $prefix/lib/emacs/28.0.50/ Loading loadup.el (source)... Dump mode: pbootstrap Using load-path ($PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/progmodes $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/international $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/textmodes $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/vc) Loading emacs-lisp/byte-run (source)... Loading emacs-lisp/backquote (source)... Loading subr (source)... Loading version (source)... Loading widget (source)... Loading custom (source)... Loading emacs-lisp/map-ynp (source)... Loading international/mule (source)... Loading international/mule-conf (source)... Loading env (source)... Loading format (source)... Loading bindings (source)... Loading window (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/files.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/macroexp.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/pcase.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/macroexp.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cus-face.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/faces.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/ldefs-boot.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/button.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/nadvice.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/cl-preloaded.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/obarray.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/abbrev.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/simple.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/help.el (source)... gmake[2]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/doc/emacs' Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/jka-cmpr-hook.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/epa-hook.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/international/mule-cmds.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/case-table.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/international/characters.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/international/charscript.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/composite.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/chinese.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/cyrillic.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/indian.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/sinhala.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/english.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/ethiopic.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/european.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/czech.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/slovak.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/romanian.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/greek.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/hebrew.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/international/cp51932.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/international/eucjp-ms.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/japanese.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/korean.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/lao.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/tai-viet.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/thai.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/tibetan.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/vietnamese.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/misc-lang.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/utf-8-lang.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/georgian.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/khmer.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/burmese.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/language/cham.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/indent.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/cl-generic.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/minibuffer.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/frame.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/startup.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/term/tty-colors.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/font-core.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/syntax.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/font-lock.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/jit-lock.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/mouse.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/select.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/timer.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/easymenu.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/isearch.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/rfn-eshadow.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/menu-bar.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/tab-bar.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/lisp.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/textmodes/page.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/register.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/textmodes/paragraphs.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/progmodes/prog-mode.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/lisp-mode.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/progmodes/elisp-mode.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/textmodes/text-mode.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/textmodes/fill.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/newcomment.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/replace.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/tabulated-list.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/buff-menu.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/float-sup.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/vc/vc-hooks.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/vc/ediff-hook.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/uniquify.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/electric.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/emacs-lisp/eldoc.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cus-start.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/tooltip.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/international/iso-transl.el (source)... Finding pointers to doc strings... Finding pointers to doc strings...done Dumping under the name bootstrap-emacs.pdmp Dumping fingerprint: 9b9cde1c0da4ce59bcd99df5a97c08bdcdbbaef85623c4e83b0b2a9ed2f7ed8c gmake[2]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/doc/lispref' Dump complete Byte counts: header=100 hot=13919524 discardable=157424 cold=9751984 Reloc counts: hot=980999 discardable=4605 gmake -C ../lisp compile-first EMACS="../src/bootstrap-emacs" gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f batch-byte-native-compile-for-bootstrap emacs-lisp/macroexp.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f batch-byte-native-compile-for-bootstrap emacs-lisp/cconv.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f batch-byte-native-compile-for-bootstrap emacs-lisp/byte-opt.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f batch-byte-native-compile-for-bootstrap emacs-lisp/bytecomp.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f batch-byte-native-compile-for-bootstrap emacs-lisp/comp.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f batch-byte-native-compile-for-bootstrap emacs-lisp/comp-cstr.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f batch-byte-native-compile-for-bootstrap emacs-lisp/autoload.el gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake -C ../lisp autoloads EMACS="../src/bootstrap-emacs" gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/buff-menu.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f batch-byte-native-compile-for-bootstrap international/titdic-cnv.el -f batch-byte-native-compile-for-bootstrap ../lisp/cus-face.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/abbrev.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/bindings.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/dos-vars.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/dnd.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/case-table.el -f batch-byte-native-compile-for-bootstrap ../lisp/dos-fns.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/disp-table.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/composite.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/dynamic-setting.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/button.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/dos-w32.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/custom.el EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' \ -l comp -f byte-compile-refresh-preloaded \ -f batch-byte-native-compile-for-bootstrap ../lisp/cus-start.el Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/dos-vars.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/dos-w32.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/abbrev.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/dnd.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/bindings.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/dos-fns.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/case-table.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() gmake[3]: *** [Makefile:275: ../lisp/dos-vars.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/cus-start.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/buff-menu.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/custom.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() gmake[3]: *** [Makefile:275: ../lisp/dos-w32.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/dos-w32.elc] Error 2 gmake -C ../admin/grammars all EMACS="../../src/bootstrap-emacs" gmake[2]: *** Waiting for unfinished jobs.... gmake[2]: *** [Makefile:765: ../lisp/dos-vars.elc] Error 2 EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp -l autoload \ --eval "(setq generate-autoload-cookie \";;;###cal-autoload\")" \ --eval "(setq generated-autoload-file (expand-file-name (unmsys--file-name \"calendar/cal-loaddefs.el\")))" \ -f batch-update-autoloads ./calendar Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() gmake[4]: Entering directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/grammars' [ ! -f "../../lisp/cedet/semantic/bovine/c-by.el" ] || chmod +w "../../lisp/cedet/semantic/bovine/c-by.el" byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/composite.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/dynamic-setting.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-fileEMACSLOADPATH= "../../src/bootstrap-emacs" -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' -l semantic/bovine/grammar -f bovine-batch-make-parser -o "../../lisp/cedet/semantic/bovine/c-by.el" c.by " "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/cus-face.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "batch-byte-native-compile-for-bootstrap" "international/titdic-cnv.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/disp-table.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() gmake[3]: *** [Makefile:275: ../lisp/abbrev.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' normal-top-level() gmake[3]: *** [Makefile:275: ../lisp/bindings.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/abbrev.elc] Error 2 EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp -l autoload \ --eval "(setq generate-autoload-cookie \";;;###mh-autoload\")" \ --eval "(setq generated-autoload-file (expand-file-name (unmsys--file-name \"mh-e/mh-loaddefs.el\")))" \ -f batch-update-autoloads ./mh-e gmake[2]: *** [Makefile:765: ../lisp/bindings.elc] Error 2 [ ! -f "../../lisp/cedet/semantic/bovine/make-by.el" ] || chmod +w "../../lisp/cedet/semantic/bovine/make-by.el" EMACSLOADPATH= "../../src/bootstrap-emacs" -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' -l semantic/bovine/grammar -f bovine-batch-make-parser -o "../../lisp/cedet/semantic/bovine/make-by.el" make.by gmake[3]: *** [Makefile:275: ../lisp/dnd.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: *** [Makefile:275: ../lisp/case-table.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/dnd.elc] Error 2 EMACSLOADPATH= '../src/bootstrap-emacs' -batch --no-site-file --no-site-lisp -l autoload \ --eval "(setq generate-autoload-cookie \";;;###tramp-autoload\")" \ --eval "(setq generated-autoload-file (expand-file-name (unmsys--file-name \"net/tramp-loaddefs.el\")))" \ -f batch-update-autoloads ./net gmake[2]: *** [Makefile:765: ../lisp/case-table.elc] Error 2 [ ! -f "../../lisp/cedet/semantic/bovine/scm-by.el" ] || chmod +w "../../lisp/cedet/semantic/bovine/scm-by.el" gmake[3]: *** [Makefile:275: ../lisp/dos-fns.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' EMACSLOADPATH= "../../src/bootstrap-emacs" -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' -l semantic/bovine/grammar -f bovine-batch-make-parser -o "../../lisp/cedet/semantic/bovine/scm-by.el" scheme.by gmake[2]: *** [Makefile:765: ../lisp/dos-fns.elc] Error 2 [ ! -f "../../lisp/cedet/semantic/grammar-wy.el" ] || chmod +w "../../lisp/cedet/semantic/grammar-wy.el" EMACSLOADPATH= "../../src/bootstrap-emacs" -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' -l semantic/wisent/grammar -f wisent-batch-make-parser -o "../../lisp/cedet/semantic/grammar-wy.el" grammar.wy gmake[3]: *** [Makefile:275: ../lisp/composite.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/composite.elc] Error 2 [ ! -f "../../lisp/cedet/semantic/wisent/javat-wy.el" ] || chmod +w "../../lisp/cedet/semantic/wisent/javat-wy.el" Debugger entered--Lisp error: (wrong-type-argument listp (nil #)) make-comp-cstr-ctxt() byte-code("\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) (defconst comp-known-func-cstr-h (byte-code "\302 \30\303\304\305\"\11\306\211\211\211\211\5:\2038\0\5@\262\3\2\211A\262\4\242\262\5\2@\262\4\307\4!\262\2\310\5\3\6\11#\210\5A\262\6..." [comp-ctxt comp-known-type-specifiers make-comp-cstr-ctxt make-hash-table :test eq nil comp-type-spec-to-cstr puthash] 11) "Hash table function -> `comp-constraint'.") 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 ...)))))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("--eval" "(setq load-prefer-newer t)" "-l" "comp" "-f" "byte-compile-refresh-preloaded" "-f" "batch-byte-native-compile-for-bootstrap" "../lisp/button.el")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() gmake[3]: *** [Makefile:275: ../lisp/custom.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/custom.elc] Error 2 [ ! -f "../../lisp/cedet/semantic/wisent/js-wy.el" ] || chmod +w "../../lisp/cedet/semantic/wisent/js-wy.el" gmake[3]: *** [Makefile:275: ../lisp/buff-menu.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' EMACSLOADPATH= "../../src/bootstrap-emacs" -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' -l semantic/wisent/grammar -f wisent-batch-make-parser -o "../../lisp/cedet/semantic/wisent/javat-wy.el" java-tags.wy gmake[2]: *** [Makefile:765: ../lisp/buff-menu.elc] Error 2 [ ! -f "../../lisp/cedet/semantic/wisent/python-wy.el" ] || chmod +w "../../lisp/cedet/semantic/wisent/python-wy.el" EMACSLOADPATH= "../../src/bootstrap-emacs" -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' -l semantic/wisent/grammar -f wisent-batch-make-parser -o "../../lisp/cedet/semantic/wisent/js-wy.el" js.wy EMACSLOADPATH= "../../src/bootstrap-emacs" -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' -l semantic/wisent/grammar -f wisent-batch-make-parser -o "../../lisp/cedet/semantic/wisent/python-wy.el" python.wy gmake[3]: *** [Makefile:275: ../lisp/cus-start.elc] Error 255 gmake[3]: *** [Makefile:275: ../lisp/disp-table.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/cus-start.elc] Error 2 [ ! -f "../../lisp/cedet/srecode/srt-wy.el" ] || chmod +w "../../lisp/cedet/srecode/srt-wy.el" gmake[2]: *** [Makefile:765: ../lisp/disp-table.elc] Error 2 EMACSLOADPATH= "../../src/bootstrap-emacs" -batch --no-site-file --no-site-lisp --eval '(setq load-prefer-newer t)' -l semantic/wisent/grammar -f wisent-batch-make-parser -o "../../lisp/cedet/srecode/srt-wy.el" srecode-template.wy gmake[3]: *** [Makefile:275: ../lisp/cus-face.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/cus-face.elc] Error 2 gmake[3]: *** [Makefile:297: international/titdic-cnv.elc] Error 255 gmake[3]: *** Waiting for unfinished jobs.... gmake[3]: *** [Makefile:275: ../lisp/dynamic-setting.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/dynamic-setting.elc] Error 2 gmake[3]: *** [Makefile:275: ../lisp/button.elc] Error 255 gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:765: ../lisp/button.elc] Error 2 Debugger entered--Lisp error: (wrong-type-argument listp ("./calendar")) batch-update-autoloads--summary(("./calendar")) batch-update-autoloads() funcall(batch-update-autoloads) (if (commandp tem) (command-execute tem) (funcall tem)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("-l" "autoload" "--eval" "(setq generate-autoload-cookie \";;;###cal-autoload..." "--eval" "(setq generated-autoload-file (expand-file-name (u..." "-f" "batch-update-autoloads" "./calendar")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Debugger entered--Lisp error: (wrong-type-argument listp ("./net")) batch-update-autoloads--summary(("./net")) batch-update-autoloads() funcall(batch-update-autoloads) (if (commandp tem) (command-execute tem) (funcall tem)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("-l" "autoload" "--eval" "(setq generate-autoload-cookie \";;;###tramp-autolo..." "--eval" "(setq generated-autoload-file (expand-file-name (u..." "-f" "batch-update-autoloads" "./net")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() gmake[3]: *** [Makefile:453: calendar/cal-loaddefs.el] Error 255 gmake[3]: *** [Makefile:441: net/tramp-loaddefs.el] Error 255 Debugger entered--Lisp error: (wrong-type-argument listp ("./mh-e")) batch-update-autoloads--summary(("./mh-e")) batch-update-autoloads() funcall(batch-update-autoloads) (if (commandp tem) (command-execute tem) (funcall tem)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...)))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left ...)))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe ...)))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval (car-safe ...)))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall ...)))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let (...) (or elt ...) (setq argi ...)) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left ...))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe ...))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval ...))) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path ...)) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem ...)) (setq splice (cdr splice))) (t (setq load-path (cons tem load-path) splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name (or argval ...))) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left ...))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook ...))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi (match-end 0)) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ... ... ...) (setq argval nil argi orig-argi)))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left ...)) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe ...)))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval ...)) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem ...)) (setq tem (substring tem 1) append t)) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path ...) (if splice ...)) (splice (setcdr splice ...) (setq splice ...)) (t (setq load-path ... splice load-path))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload")) (let* ((file (command-line-normalize-file-name ...)) (file-ex (expand-file-name file))) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left ...)))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not ...)) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" ...)) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir ...)) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* (... ...) (setq displayable-buffers ...) (set-buffer buf) (if ... nil ... ...) (setq line 0) (if ... nil ...) (setq column 0)))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons (list ...) longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval (substring argi ...) argi (match-string 1 argi)))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi ...) (if ... ... ...))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let (...) (funcall ... argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval ...))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr ...) (read-data ...) (expr ...) (end ...)) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" ...)) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p ... ...) (setq tem ... append t)) (setq tem (expand-file-name ...)) (cond (append ... ...) (splice ... ...) (t ...)))) ((member argi '("-l" "-load")) (let* ((file ...) (file-ex ...)) (if (file-regular-p file-ex) (progn ...)) (load file nil t))) ((member argi '("-scriptload")) (let* ((file ...) (file-ex ...)) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number (match-string 1 argi)) column (string-to-number (match-string 2 argi)))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe ...))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks ...) (setq hooks ...)) (if did-hook nil (if ... ...) (if initial-window-system nil ...) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda ... ...) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not ...) (message "Ignoring relative file name (%s) due to nil defaul..." name) (let* ... ... ... ... ... ... ...))))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem (car --dolist-tail--))) (if (string-match "^--" (car tem)) (setq longopts (cons ... longopts))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (setq argval ... argi ...))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion ...) (if ... ... ...)))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ... ...) (funcall ... argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (intern ...)) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '...) (setq inhibit-startup-screen t) (let* (... ... ... ...) (if ... nil ...) (eval expr t))) ((member argi '...) (let (append) (if ... ...) (setq tem ...) (cond ... ... ...))) ((member argi '...) (let* (... ...) (if ... ...) (load file nil t))) ((member argi '...) (let* (... ...) (load file-ex nil t t))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval ...)) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line (string-to-number ...) column (string-to-number ...))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr ... command-line-args-left))) ((member argi '...) (setq inhibit-startup-screen t) (setq tem (or argval ...)) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let (... ...) (while ... ...) (if did-hook nil ... ... ...)))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if ... ... ...)))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ((tem ...)) (if (string-match "^--" ...) (setq longopts ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn ...)) (if (string-match "\\`--?[^-]" orig-argi) (progn ... ...))) (cond ((setq tem ...) (if argval ... ...)) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... ... ...)) ((member argi ...) (setq inhibit-startup-screen t) (let* ... ... ...)) ((member argi ...) (let ... ... ... ...)) ((member argi ...) (let* ... ... ...)) ((member argi ...) (let* ... ...)) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem ...) (or ... ...) (insert-file-contents ...)) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package...")) ((string-match "^\\+[0-9]+\\'" argi) (setq line ...)) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (setq line ... column ...)) ((setq tem ...) (setq command-line-args-left ...)) ((setq tem ...) (setq command-line-args-left ...)) ((member argi ...) (setq inhibit-startup-screen t) (setq tem ...) (if ... nil ...) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning ... ...)) ((equal argi "--") (setq just-files t)) (t (let ... ... ...))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '... (mapcar ... command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda ... ...))) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (while command-line-args-left (let* ((argi ...) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if ... ...) (if ... ...)) (cond (... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ...) (... ...) (t ...)) (if (frame-live-p ...) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append ... ...)) (line 0) (column 0) (process-file-arg #'...)) (let ((--dolist-tail-- command-line-x-option-alist)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- command-line-ns-option-alist)) (while --dolist-tail-- (let ... ... ...))) (while command-line-args-left (let* (... ... argval completion) (setq command-line-args-left ...) (if just-files ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (if ... nil ...))))))) (if (eq initial-buffer-choice t) (progn (startup--get-buffer-create-scratch))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond (... ...) (... ...) (... ...) (t ...)))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a..." buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (if (> displayable-buffers-len 1) (progn (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("-l" "autoload" "--eval" "(setq generate-autoload-cookie \";;;###mh-autoload\"..." "--eval" "(setq generated-autoload-file (expand-file-name (u..." "-f" "batch-update-autoloads" "./mh-e")) (let (xdg-dir startup-init-directory) (setq before-init-time (current-time) after-init-time nil command-line-default-directory default-directory) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc ...) (setq version-control t)) ((member vc ...) (setq version-control nil)) ((member vc ...) (setq version-control ...)))) (let ((simple-file-name (locate-file "simple" load-path ...)) lisp-dir) (if (null simple-file-name) (let (... ...) (princ "Warning: Could not find simple.e...") (terpri) (if ... ...) (if ... nil ... ...)) (setq lisp-dir (file-truename ...)) (setq load-history (mapcar ... load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string ... locale-coding-system t)) (car-safe (prog1 args ...)))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* (... ... ... argval) (if ... ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...) (and argval ...))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables)))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning ... ... :error) (if ... nil ...)))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 ...) (and ... ...)) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (and user-init-file package-enable-at-startup (not (and (boundp ...) package--activated)) (catch 'package-dir-found (let (...) (let ... ...))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system ...) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ... ...)) (let (...) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if ... ... ...) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (setq menu-bar-mode nil tab-bar-mode nil tool-bar-mode nil)) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let (...) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil ...) #'(lambda nil ...) t) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer ... ...))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let ... ...)) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode ...) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-som..."))) (command-line-1 (cdr command-line-args)) (let (warned) (let ((--dolist-tail-- load-path)) (while --dolist-tail-- (let ... ... ...)))) (if noninteractive (kill-emacs t)) ...) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name ...) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix ... ...))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type ...) (make-directory ... t) (concat ... "~")) (t (expand-file-name ...)))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system ...))))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let (...) (while --dolist-tail-- ...))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)) (if (equal (getenv "HOME") "/nonexistent") (progn (let ((tmp-dir ...)) (add-hook 'kill-emacs-hook #'...) (setq native-comp-eln-load-path (cons tmp-dir native-comp-eln-load-path))))))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) (t (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)"))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type ...) 'utf-8 locale-coding-system))) (save-excursion (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if (featurep 'native-compile) (progn (let (...) (set ... ...)))) (let ((--dolist-tail-- '...)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (set (make-local-variable 'window-point-insertion-type) t) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal ... ...)) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond (... ... ...) (t ...))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not ...)))) (progn (if (eq face-font-rescale-alist old-face-font-rescale-alist) nil (set-face-attribute 'default nil :font (font-spec))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((--dolist-tail-- initial-environment)) (while --dolist-tail-- (let ((varval ...)) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if display (progn (delete display process-environment))))) normal-top-level() Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cedet/semantic/grm-wy-boot.el (source)... gmake[3]: *** [Makefile:428: mh-e/mh-loaddefs.el] Error 255 Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cedet/semantic/grm-wy-boot.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cedet/semantic/grm-wy-boot.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cedet/semantic/grm-wy-boot.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cedet/semantic/grm-wy-boot.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cedet/semantic/grm-wy-boot.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cedet/semantic/grm-wy-boot.el (source)... Loading $PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp/cedet/semantic/grm-wy-boot.el (source)... gmake[4]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/admin/grammars' gmake[3]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/lisp' gmake[2]: *** [Makefile:775: ../lisp/loaddefs.el] Error 2 gmake[2]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417/src' gmake[1]: *** [Makefile:427: src] Error 2 gmake[1]: Leaving directory '$PORTSDIR/editors/emacs-devel/work-nox/emacs-246a417' ===> 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 $PORTSDIR/editors/emacs-devel