=> Bootstrap dependency digest>=20211023: found digest-20220214 ===> Skipping vulnerability checks. WARNING: No /usr/pkg/pkgdb/pkg-vulnerabilities file found. WARNING: To fix run: `/usr/sbin/pkg_admin -K /usr/pkg/pkgdb fetch-pkg-vulnerabilities'. ===> Building for emacs29-29.4nb10 /usr/pkg/bin/gmake actual-bootstrap || /usr/pkg/bin/gmake advice-on-failure make-target=bootstrap exit-status=$? gmake[1]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' /usr/pkg/bin/gmake bootstrap-clean gmake[2]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' /usr/pkg/bin/gmake -C src bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/src' GEN lisp.mk rm -f temacs core ./*.core \#* ./*.o rm -f dmpstruct.h rm -f emacs.pdmp rm -f ../etc/DOC rm -f bootstrap-emacs bootstrap-emacs.pdmp rm -f emacs-29.4 rm -f buildobj.h rm -f globals.h gl-stamp rm -f ./*.res ./*.tmp rm -f emacs emacs-*.*.*[0-9] emacs-*.*.*[0-9].pdmp rm -f ../etc/DOC* rm -f deps/* rm -f emacs-module.h epaths.h config.h config.stamp if test -f ./.gdbinit; then \ mv ./.gdbinit ./.gdbinit.save; \ if test -f "./.gdbinit"; then rm -f ./.gdbinit.save; \ else mv ./.gdbinit.save ./.gdbinit; fi; \ fi gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/src' /usr/pkg/bin/gmake -C oldXMenu bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/oldXMenu' rm -f libXMenu11.a ./*.o deps/* rm -f Makefile rm -fr deps gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/oldXMenu' /usr/pkg/bin/gmake -C lwlib bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lwlib' rm -f ./*.o liblw.a \#* deps/* rm -f Makefile rm -fr deps rm -f TAGS gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lwlib' /usr/pkg/bin/gmake -C lib bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lib' rm -f ./*.[ao] ./*/*.o ./*-t \#* deps/*.d deps/*/*.d rm -f core *.stackdump alloca.h assert.h byteswap.h dirent.h errno.h execinfo.h fcntl.h getopt.h getopt-cdefs.h malloc/dynarray.gl.h malloc/dynarray-skeleton.gl.h malloc/scratch_buffer.gl.h ieee754.h inttypes.h gmp.h limits.h signal.h stdalign.h stdckdint.h stddef.h stdint.h stdio.h stdlib.h string.h sys/random.h sys/select.h sys/stat.h sys/time.h sys/types.h time.h unistd.h rm -f Makefile rm -fr deps gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lib' /usr/pkg/bin/gmake -C lib-src bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lib-src' rm -f core ./*.o ./*.res rm -f seccomp-filter.bpf seccomp-filter.pfc seccomp-filter-exec.bpf seccomp-filter-exec.pfc rm -f etags ctags emacsclient ebrowse hexl movemail make-docfile make-fingerprint rm -f TAGS Makefile blessmail gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lib-src' /usr/pkg/bin/gmake -C nt bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/nt' rm -f core *.o *.res rm -f runemacs addpm cmdproxy ddeclient rm -f TAGS Makefile *.rc true gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/nt' /usr/pkg/bin/gmake -C doc/emacs bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/doc/emacs' rm -f ./*.aux ./*.log ./*.toc ./*.cp ./*.cps ./*.fn ./*.fns ./*.ky ./*.kys \ ./*.op ./*.ops ./*.pg ./*.pgs ./*.tp ./*.tps ./*.vr ./*.vrs rm -f emacs.dvi emacs-xtra.dvi emacs.html emacs.pdf emacs-xtra.pdf emacs.ps emacs-xtra.ps rm -f Makefile rm -f \ ./../../info/emacs.info \ ./../../info/emacs.info-[1-9] \ ./../../info/emacs.info-[1-9][0-9] rm -f ./emacsver.texi TAGS gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/doc/emacs' /usr/pkg/bin/gmake -C doc/misc bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/doc/misc' rm -f ./*.aux ./*.log ./*.toc ./*.c[mp] ./*.c[mp]s ./*.fn ./*.fns \ ./*.ky ./*.kys ./*.op ./*.ops ./*.p[gj] ./*.p[gj]s ./*.sc ./*.scs ./*.ss \ ./*.t[gp] ./*.t[gp]s ./*.vr ./*.vrs rm -f gnustmp* rm -f ./*.dvi ./*.html ./*.pdf ./*.ps rm -f Makefile for file in auth autotype bovine calc ccmode cl dbus dired-x ebrowse ede ediff edt efaq eglot eieio emacs-gnutls emacs-mime epa erc ert eshell eudc eww flymake forms gnus htmlfontify idlwave ido info.info mairix-el message mh-e modus-themes newsticker nxml-mode octave-mode org pcl-cvs pgg rcirc reftex remember sasl sc semantic ses sieve smtpmail speedbar srecode todo-mode tramp transient url use-package vhdl-mode vip viper vtable widget wisent woman efaq-w32; do \ file=`echo ${file} | sed 's/\.info$//'`.info; \ rm -f \ ./../../info/${file} \ ./../../info/${file}-[1-9] \ ./../../info/${file}-[1-9][0-9]; \ done rm -f ./modus-themes.texi ./org.texi rm -f TAGS gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/doc/misc' /usr/pkg/bin/gmake -C doc/lispref bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/doc/lispref' rm -f ./*.aux ./*.log ./*.toc ./*.cp ./*.cps ./*.fn ./*.fns ./*.ky ./*.kys \ ./*.op ./*.ops ./*.pg ./*.pgs ./*.tp ./*.tps ./*.vr ./*.vrs rm -f elisp[12]* vol[12].tmp rm -f elisp.dvi elisp.html elisp.pdf elisp.ps rm -f vol[12].dvi vol[12].pdf vol[12].ps rm -f Makefile rm -f \ ./../../info/elisp.info \ ./../../info/elisp.info-[1-9] \ ./../../info/elisp.info-[1-9][0-9] rm -f TAGS gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/doc/lispref' /usr/pkg/bin/gmake -C doc/lispintro bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/doc/lispintro' rm -f ./*.aux ./*.log ./*.toc ./*.cp ./*.cps ./*.fn ./*.fns ./*.ky ./*.kys \ ./*.op ./*.ops ./*.pg ./*.pgs ./*.tp ./*.tps ./*.vr ./*.vrs rm -f emacs-lisp-intro.dvi eintr.html emacs-lisp-intro.pdf emacs-lisp-intro.ps rm -f Makefile rm -f \ ./../../info/eintr.info \ ./../../info/eintr.info-[1-9] rm -f TAGS gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/doc/lispintro' /usr/pkg/bin/gmake -C test bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/test' find . '(' -name '*.log' -o -name '*.log~' ')' -delete find . '(' -name '*.xml' -a ! -path '*resources*' ')' -delete rm -f ./lisp/gnus/mml-sec-resources/random_seed rm -f src/emacs-module-resources/*.o src/emacs-module-resources/*.so \ src/emacs-module-resources/*.dll gmp.h find . -name '*.elc' -delete gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/test' /usr/pkg/bin/gmake -C nextstep bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/nextstep' rm -rf rm -f Makefile rm -f GNUstep/Emacs.base/Resources/Info-gnustep.plist \ GNUstep/Emacs.base/Resources/Emacs.desktop \ Cocoa/Emacs.base/Contents/Info.plist \ Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/nextstep' /usr/pkg/bin/gmake -C admin/charsets bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/charsets' gmake[3]: Nothing to be done for 'bootstrap-clean'. gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/charsets' /usr/pkg/bin/gmake -C admin/unidata bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/unidata' rm -f ./*.elc unidata.txt gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/unidata' /usr/pkg/bin/gmake -C leim bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/leim' rm -f ./../lisp/leim/quail/CCDOSPY.el ./../lisp/leim/quail/Punct.el ./../lisp/leim/quail/QJ.el ./../lisp/leim/quail/SW.el ./../lisp/leim/quail/TONEPY.el ./../lisp/leim/quail/4Corner.el ./../lisp/leim/quail/ARRAY30.el ./../lisp/leim/quail/ECDICT.el ./../lisp/leim/quail/ETZY.el ./../lisp/leim/quail/Punct-b5.el ./../lisp/leim/quail/PY-b5.el ./../lisp/leim/quail/QJ-b5.el ./../lisp/leim/quail/ZOZY.el ./../lisp/leim/quail/tsang-b5.el ./../lisp/leim/quail/quick-b5.el ./../lisp/leim/quail/tsang-cns.el ./../lisp/leim/quail/quick-cns.el ./../lisp/leim/quail/PY.el ./../lisp/leim/quail/ZIRANMA.el ./../lisp/leim/quail/CTLau.el ./../lisp/leim/quail/CTLau-b5.el ./../lisp/language/pinyin.el ./../lisp/leim/leim-list.el gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/leim' /usr/pkg/bin/gmake -C lisp bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' find . -name '*.elc' -delete rm -f ./calc/calc-loaddefs.el ./calendar/cal-loaddefs.el ./calendar/diary-loaddefs.el ./calendar/holiday-loaddefs.el ./cedet/ede/loaddefs.el ./cedet/semantic/loaddefs.el ./cedet/srecode/loaddefs.el ./dired-loaddefs.el ./erc/erc-loaddefs.el ./emacs-lisp/cl-loaddefs.el ./ibuffer-loaddefs.el ./net/tramp-loaddefs.el ./loaddefs.el ./mh-e/mh-loaddefs.el ./org/org-loaddefs.el ./ps-print-loaddefs.el ./textmodes/reftex-loaddefs.el ./textmodes/texinfo-loaddefs.el ./theme-loaddefs.el ./cus-load.el ./finder-inf.el ./subdirs.el ./eshell/esh-groups.el gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' /usr/pkg/bin/gmake -C admin/grammars bootstrap-clean gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/grammars' gmake[3]: Nothing to be done for 'bootstrap-clean'. gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/grammars' [ ! -f config.log ] || mv -f config.log config.log~ rm -rf ./info rm -f ./etc/refcards/emacsver.tex rm -rf native-lisp/ lisp/leim/ja-dic/ rm -fr autom4te.cache config.cache rm -f config.log ./doc/man/emacs.1 gmake[2]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' cd . && ./autogen.sh autoconf 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. Running 'autoreconf -fi -I m4' ... You can now run './configure'. /usr/pkg/bin/gmake MAKEFILE_NAME=force-Makefile force-Makefile gmake[2]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' gmake[3]: *** No rule to make target 'echo-sources'. Stop. if [ -x ./config.status ]; then \ ./config.status --recheck; \ else \ ./configure --cache-file=/dev/null; \ fi MAKE='/usr/pkg/bin/gmake' ./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 test/manual/noverlay/Makefile config.status: creating test/infra/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[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' config.status: executing src/.gdbinit commands config.status: executing doc/emacs/emacsver.texi commands config.status: executing etc-refcards-emacsver.tex commands gmake[2]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' /usr/pkg/bin/gmake actual-all gmake[2]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' if [ -x ./config.status ]; then \ ./config.status --recheck; \ else \ ./configure --cache-file=/dev/null; \ fi /usr/pkg/bin/gmake -C lib all gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lib' GEN alloca.h GEN byteswap.h GEN dirent.h GEN fcntl.h GEN getopt.h GEN getopt-cdefs.h GEN malloc/dynarray.gl.h GEN malloc/dynarray-skeleton.gl.h GEN malloc/scratch_buffer.gl.h GEN ieee754.h GEN inttypes.h GEN limits.h GEN signal.h GEN stdckdint.h GEN stdint.h GEN stdio.h GEN stdlib.h GEN string.h GEN sys/random.h GEN sys/select.h GEN sys/stat.h GEN sys/time.h GEN sys/types.h GEN time.h GEN unistd.h CC fingerprint.o CC acl_entries.o CC malloc.o CC mktime.o CC realloc.o CC acl-errno-valid.o CC acl-internal.o CC get-permissions.o CC set-permissions.o CC allocator.o CC openat-proc.o CC binary-io.o CC c-ctype.o CC c-strcasecmp.o CC c-strncasecmp.o CC canonicalize-lgpl.o CC careadlinkat.o careadlinkat.c: In function 'careadlinkat': careadlinkat.c:178:5: warning: #warning "GCC might issue a bogus -Wreturn-local-addr warning here." [-Wcpp] 178 | #warning "GCC might issue a bogus -Wreturn-local-addr warning here." | ^~~~~~~ careadlinkat.c:179:5: warning: #warning "See ." [-Wcpp] 179 | #warning "See ." | ^~~~~~~ careadlinkat.c:182:10: warning: function may return address of local variable [-Wreturn-local-addr] 182 | return readlink_stk (fd, filename, buffer, buffer_size, alloc, | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 183 | preadlinkat, stack_buf); | ~~~~~~~~~~~~~~~~~~~~~~~ careadlinkat.c:181:8: note: declared here 181 | char stack_buf[STACK_BUF_SIZE]; | ^~~~~~~~~ CC close-stream.o CC copy-file-range.o CC count-leading-zeros.o CC count-one-bits.o CC count-trailing-zeros.o CC md5-stream.o CC md5.o CC sha1.o CC sha256.o CC sha512.o CC dtoastr.o CC dtotimespec.o CC explicit_bzero.o CC fcntl.o CC file-has-acl.o CC filemode.o CC filevercmp.o CC fpending.o CC free.o CC fsusage.o CC futimens.o CC getopt.o CC getopt1.o CC gettime.o CC malloc/dynarray_at_failure.o CC malloc/dynarray_emplace_enlarge.o CC malloc/dynarray_finalize.o CC malloc/dynarray_resize.o CC malloc/dynarray_resize_clear.o CC malloc/scratch_buffer_grow.o CC malloc/scratch_buffer_grow_preserve.o CC malloc/scratch_buffer_set_array_size.o CC mempcpy.o CC nproc.o CC nstrftime.o CC pipe2.o CC pthread_sigmask.o CC qcopy-acl.o CC rawmemchr.o CC regex.o CC sig2str.o CC sigdescr_np.o CC stat-time.o CC tempname.o CC timegm.o CC timespec.o CC timespec-add.o CC timespec-sub.o CC u64.o CC unistd.o CC utimens.o CC utimensat.o CC openat-die.o CC save-cwd.o AR libgnu.a gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lib' /usr/pkg/bin/gmake -C lib-src all gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lib-src' CCLD etags CCLD ctags CCLD emacsclient CCLD ebrowse CCLD hexl CC pop.o CCLD movemail CCLD make-docfile CCLD make-fingerprint gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lib-src' /usr/pkg/bin/gmake -C src BIN_DESTDIR=''/usr/pkg/bin/'' \ ELN_DESTDIR='/usr/pkg/lib/emacs/29.4/' all gmake[3]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/src' GEN globals.h CC dispnew.o CC frame.o CC scroll.o CC xdisp.o CC menu.o CC xmenu.o CC window.o CC charset.o CC coding.o CC category.o CC ccl.o CC character.o CC chartab.o CC bidi.o CC cm.o CC term.o CC terminal.o CC xfaces.o CC xterm.o CC xfns.o CC xselect.o CC xrdb.o CC xsmfns.o CC xsettings.o CC gtkutil.o CC emacsgtkfixed.o CC dbusbind.o CC emacs.o CC keyboard.o CC macros.o CC keymap.o CC sysdep.o CC bignum.o CC buffer.o CC filelock.o CC insdel.o CC marker.o CC minibuf.o CC fileio.o CC dired.o CC cmds.o CC casetab.o CC casefiddle.o CC indent.o CC search.o CC regex-emacs.o CC undo.o CC alloc.o CC pdumper.o CC data.o GEN buildobj.h CC doc.o CC editfns.o CC callint.o CC eval.o CC floatfns.o CC fns.o CC sort.o CC font.o CC print.o CC lread.o CC emacs-module.o CC syntax.o CC bytecode.o CC comp.o CC dynlib.o CC process.o CC gnutls.o CC callproc.o CC region-cache.o CC sound.o CC timefns.o CC atimer.o CC doprnt.o CC intervals.o CC textprop.o CC composite.o CC xml.o CC lcms.o CC kqueue.o CC profiler.o CC decompress.o CC thread.o CC systhread.o CC sqlite.o CC treesit.o CC itree.o CC xfont.o CC ftfont.o CC ftcrfont.o CC hbfont.o CC fontset.o CC fringe.o CC image.o CC xgselect.o CC json.o CC terminfo.o CC lastfile.o /usr/pkg/bin/gmake -C ../admin/charsets all gmake[4]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/charsets' gmake[4]: Nothing to be done for 'all'. gmake[4]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/charsets' /usr/pkg/bin/gmake -C ../admin/unidata charscript.el gmake[4]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/unidata' gmake[4]: Nothing to be done for 'charscript.el'. gmake[4]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/unidata' /usr/pkg/bin/gmake -C ../admin/unidata emoji-zwj.el gmake[4]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/unidata' gmake[4]: Nothing to be done for 'emoji-zwj.el'. gmake[4]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/admin/unidata' CCLD temacs ld: warning: libfreetype.so.19, needed by /usr/pkgsrc/editors/emacs29/work/.buildlink/lib/libfontconfig.so, may conflict with libfreetype.so.6 ld: warning: libfreetype.so.19, needed by /usr/pkgsrc/editors/emacs29/work/.buildlink/lib/libfontconfig.so, may conflict with libfreetype.so.6 .././build-aux/install-sh -c -d ../etc GEN ../etc/DOC /usr/pkg/bin/gmake -C ../lisp update-subdirs gmake[4]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' gmake[4]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' cp -f temacs bootstrap-emacs rm -f bootstrap-emacs.pdmp ./temacs --batch -l loadup --temacs=pbootstrap \ --bin-dest /usr/pkg/bin/ --eln-dest /usr/pkg/lib/emacs/29.4/ Loading loadup.el (source)... Dump mode: pbootstrap Using load-path (/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/progmodes /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/textmodes /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/vc) Loading emacs-lisp/debug-early (source)... Loading emacs-lisp/byte-run (source)... Loading emacs-lisp/backquote (source)... Loading subr (source)... Loading keymap (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 /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/files.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/macroexp.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/pcase.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/macroexp.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/cus-face.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/faces.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/ldefs-boot.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/button.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/cl-preloaded.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/oclosure.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/obarray.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/abbrev.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/help.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/jka-cmpr-hook.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/epa-hook.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/mule-cmds.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/case-table.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/charprop.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/characters.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/charscript.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/emoji-zwj.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/composite.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/chinese.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/cyrillic.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/indian.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/sinhala.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/english.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/ethiopic.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/european.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/czech.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/slovak.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/romanian.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/greek.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/hebrew.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/cp51932.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/eucjp-ms.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/japanese.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/korean.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/lao.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/tai-viet.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/thai.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/tibetan.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/vietnamese.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/misc-lang.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/utf-8-lang.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/georgian.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/khmer.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/burmese.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/cham.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/philippine.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/language/indonesian.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/indent.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/cl-generic.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/simple.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/seq.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/nadvice.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/minibuffer.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/frame.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/startup.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/term/tty-colors.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/font-core.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/syntax.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/font-lock.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/jit-lock.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/mouse.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/scroll-bar.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/select.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/timer.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/easymenu.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/isearch.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/rfn-eshadow.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/menu-bar.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/tab-bar.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/lisp.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/textmodes/page.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/register.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/textmodes/paragraphs.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/progmodes/prog-mode.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/lisp-mode.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/textmodes/text-mode.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/textmodes/fill.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/newcomment.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/replace.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/tabulated-list.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/buff-menu.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/fringe.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/regexp-opt.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/image.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/fontset.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/dnd.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/tool-bar.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/dynamic-setting.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/x-dnd.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/term/common-win.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/term/x-win.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/mwheel.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/progmodes/elisp-mode.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/float-sup.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/vc/vc-hooks.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/vc/ediff-hook.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/uniquify.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/electric.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/paren.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/shorthands.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/eldoc.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/cconv.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/cus-start.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/tooltip.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/international/iso-transl.el (source)... Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/emacs-lisp/rmc.el (source)... Finding pointers to doc strings... Finding pointers to doc strings...done Loading /usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp/site-init.el (source)... Dumping under the name bootstrap-emacs.pdmp Dumping fingerprint: a602c73b2b9eea9b12fea64de82e2f9f3140b6ca8b58ecc597d851d17721498e Dump complete Byte counts: header=100 hot=8446452 discardable=106104 cold=11174528 Reloc counts: hot=1136964 discardable=5541 ANCIENT=yes /usr/pkg/bin/gmake -C ../lisp compile-first EMACS="../src/bootstrap-emacs" gmake[4]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' ELC emacs-lisp/macroexp.elc TZ=UTC0 touch -t 197001010000 emacs-lisp/macroexp.elc ELC emacs-lisp/cconv.elc TZ=UTC0 touch -t 197001010000 emacs-lisp/cconv.elc ELC emacs-lisp/byte-opt.elc TZ=UTC0 touch -t 197001010000 emacs-lisp/byte-opt.elc ELC emacs-lisp/bytecomp.elc TZ=UTC0 touch -t 197001010000 emacs-lisp/bytecomp.elc ELC emacs-lisp/comp.elc TZ=UTC0 touch -t 197001010000 emacs-lisp/comp.elc ELC emacs-lisp/comp-cstr.elc TZ=UTC0 touch -t 197001010000 emacs-lisp/comp-cstr.elc ELC emacs-lisp/loaddefs-gen.elc TZ=UTC0 touch -t 197001010000 emacs-lisp/loaddefs-gen.elc ELC emacs-lisp/radix-tree.elc TZ=UTC0 touch -t 197001010000 emacs-lisp/radix-tree.elc gmake[4]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' /usr/pkg/bin/gmake -C ../lisp compile-first EMACS="../src/bootstrap-emacs" gmake[4]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' ELC+ELN emacs-lisp/macroexp.elc ELC+ELN emacs-lisp/cconv.elc ELC+ELN emacs-lisp/byte-opt.elc ELC+ELN emacs-lisp/bytecomp.elc ELC+ELN emacs-lisp/comp.elc ELC+ELN emacs-lisp/comp-cstr.elc ELC+ELN emacs-lisp/loaddefs-gen.elc ELC+ELN emacs-lisp/radix-tree.elc gmake[4]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' /usr/pkg/bin/gmake -C ../lisp autoloads EMACS="../src/bootstrap-emacs" gmake[4]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' ELC+ELN international/titdic-cnv.elc /usr/pkg/bin/gmake -C ../leim all EMACS="../src/bootstrap-emacs" gmake[5]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/leim' GEN ../lisp/leim/quail/CCDOSPY.el GEN ../lisp/leim/quail/Punct.el GEN ../lisp/leim/quail/QJ.el GEN ../lisp/leim/quail/SW.el GEN ../lisp/leim/quail/TONEPY.el GEN ../lisp/leim/quail/4Corner.el GEN ../lisp/leim/quail/ARRAY30.el GEN ../lisp/leim/quail/ECDICT.el GEN ../lisp/leim/quail/ETZY.el GEN ../lisp/leim/quail/Punct-b5.el GEN ../lisp/leim/quail/PY-b5.el GEN ../lisp/leim/quail/QJ-b5.el GEN ../lisp/leim/quail/ZOZY.el GEN ../lisp/leim/quail/tsang-b5.el Error: wrong-type-argument (listp "jjgow") mapbacktrace((closure ((prin1 . cl-prin1) t) (evald func args _flags) (let ((args args)) (if evald (progn (princ " ") (funcall prin1 func) (princ "(")) (progn (princ " (") (setq args (cons func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args (cdr args))) (princ " "))) (princ ")\n")))) (let ((print-escape-newlines t) (print-escape-control-characters t) (print-escape-nonascii t) (prin1 (if (and (fboundp 'cl-prin1) (fboundp 'cl-defmethod) (condition-case nil (require 'cl-print) (error nil))) #'cl-prin1 #'prin1))) (mapbacktrace #'(lambda (evald func args _flags) (let ((args args)) (if evald (progn (princ " ") (funcall prin1 func) (princ "(")) (progn (princ " (") (setq args (cons func args)))) (if args (while (progn (funcall prin1 (car args)) (setq args (cdr args))) (princ " "))) (princ ")\n"))))) debug-early-backtrace() debug-early(error (wrong-type-argument listp "jjgow")) tsang-quick-converter(# t t) tsang-b5-converter(#) miscdic-convert("MISC-DIC/cangjie-table.b5" "./../lisp/leim/quail") batch-miscdic-convert() funcall(batch-miscdic-convert) (if (commandp tem) (command-execute tem) (funcall tem)) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))) (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((tail command-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr tail))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))) (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((tail command-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr tail))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((tail command-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr tail))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil))))))) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((tail command-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr tail))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))))) (let ((displayable-buffers nil)) (let ((command-line-args-left args-left)) (if command-line-args-left (progn (let* ((dir command-line-default-directory) tem splice just-files (longopts (append '("--funcall" "--load" "--insert" "--kill" "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar #'(lambda (elt) (concat "-" (car elt))) command-switch-alist))) (line 0) (column 0) (process-file-arg #'(lambda (name) (if (not (or dir (file-name-absolute-p name))) (message "Ignoring relative file name (%s) due to nil default-directory" name) (let* ((file (expand-file-name (command-line-normalize-file-name name) dir)) (buf (find-file-noselect file))) (file-name-history--add file) (setq displayable-buffers (cons buf displayable-buffers)) (set-buffer buf) (if (= 0 line) nil (goto-char (point-min)) (forward-line (1- line))) (setq line 0) (if (< column 1) nil (move-to-column (1- column))) (setq column 0)))))) (let ((tail command-line-x-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (car tem) longopts))) (setq tail (cdr tail))))) (let ((tail command-line-ns-option-alist)) (while tail (let ((tem (car tail))) (if (string-match "^--" (car tem)) (setq longopts (cons (list (car tem)) longopts))) (setq tail (cdr tail))))) (while command-line-args-left (let* ((argi (car command-line-args-left)) (orig-argi argi) argval completion) (setq command-line-args-left (cdr command-line-args-left)) (if just-files (setq argi "") (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--?[^-]" orig-argi) (progn (setq completion (try-completion argi longopts)) (if (eq completion t) (setq argi (substring argi 1)) (if (stringp completion) (let ((elt (member completion longopts))) (or elt (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1))) (progn (setq argval nil) (setq argi orig-argi))))))) (cond ((setq tem (assoc argi command-switch-alist)) (if argval (let ((command-line-args-left (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) ((equal argi "-no-splash") (setq inhibit-startup-screen t)) ((member argi '("-f" "-funcall" "-e")) (setq inhibit-startup-screen t) (setq tem (intern (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (if (commandp tem) (command-execute tem) (funcall tem))) ((member argi '("-eval" "-execute")) (setq inhibit-startup-screen t) (let* ((str-expr (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (read-data (read-from-string str-expr)) (expr (car read-data)) (end (cdr read-data))) (if (string-match-p "[ \11\n]*\\'" str-expr end) nil (error "Trailing garbage following expression: %s" (substring str-expr end))) (eval expr t))) ((member argi '("-L" "-directory")) (let (append) (if (string-match-p (format "\\`%s" path-separator) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (progn (setq tem (substring tem 1)) (setq append t))) (setq tem (expand-file-name (command-line-normalize-file-name tem))) (cond (append (setq load-path (append load-path (list tem))) (if splice (setq splice load-path))) (splice (setcdr splice (cons tem (cdr splice))) (setq splice (cdr splice))) (t (progn (setq load-path (cons tem load-path)) (setq splice load-path)))))) ((member argi '("-l" "-load")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (file-truename (expand-file-name file)))) (if (file-regular-p file-ex) (progn (setq file file-ex))) (load file nil t))) ((member argi '("-scriptload" "-scripteval")) (let* ((file (command-line-normalize-file-name (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left))))))) (file-ex (expand-file-name file)) (truename (file-truename file-ex))) (if (file-exists-p truename) (progn (setq file-ex truename))) (if (equal argi "-scripteval") (command-line--eval-script file-ex) (command-line--load-script file-ex)))) ((equal argi "-insert") (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (or (stringp tem) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) ((or (equal argi "-dump-file") (equal argi "-seccomp")) (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) ((equal argi "-kill") (kill-emacs t)) ((equal argi "-no-desktop") (message "\"--no-desktop\" ignored because the Desktop package is not loaded")) ((string-match "^\\+[0-9]+\\'" argi) (setq line (string-to-number argi))) ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi) (progn (setq line (string-to-number (match-string 1 argi))) (setq column (string-to-number (match-string 2 argi))))) ((setq tem (assoc orig-argi command-line-x-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((setq tem (assoc orig-argi command-line-ns-option-alist)) (setq command-line-args-left (nthcdr (nth 1 tem) command-line-args-left))) ((member argi '("-find-file" "-file" "-visit")) (setq inhibit-startup-screen t) (setq tem (or argval (car-safe (prog1 command-line-args-left (setq command-line-args-left (cdr command-line-args-left)))))) (if (stringp tem) nil (error "File name omitted from `%s' option" argi)) (funcall process-file-arg tem)) ((string-match "\\`--?\\(no-\\)?\\(uni\\|multi\\)byte$" argi) (display-warning 'initialization (format "Ignoring obsolete arg %s" argi))) ((equal argi "--") (setq just-files t)) (t (let ((hooks command-line-functions) (did-hook nil)) (while (and hooks (not (setq did-hook (funcall (car hooks))))) (setq hooks (cdr hooks))) (if did-hook nil (if (string-match "\\`-" argi) (error "Unknown option `%s'" argi)) (if initial-window-system nil (setq inhibit-startup-screen t)) (funcall process-file-arg orig-argi))))) (if (frame-live-p (selected-frame)) nil (kill-emacs nil)))))))) (if (eq initial-buffer-choice t) (progn (get-scratch-buffer-create))) (and initial-scratch-message (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (= 0 (buffer-size)) (progn (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil))))) (if initial-buffer-choice (progn (let ((buf (cond ((stringp initial-buffer-choice) (find-file-noselect initial-buffer-choice)) ((functionp initial-buffer-choice) (funcall initial-buffer-choice)) ((eq initial-buffer-choice t) (get-scratch-buffer-create)) (t (error "`initial-buffer-choice' must be a string, a function, or t"))))) (if (buffer-live-p buf) nil (error "Value returned by `initial-buffer-choice' is not a live buffer: %S" buf)) (setq displayable-buffers (cons buf (delq buf displayable-buffers)))))) (let ((displayable-buffers-len (length displayable-buffers)) (nondisplayed-buffers-p nil) (old-face-font-rescale-alist face-font-rescale-alist)) (if (> displayable-buffers-len 0) (progn (switch-to-buffer (car displayable-buffers)))) (cond ((= displayable-buffers-len 2) (switch-to-buffer-other-window (car (cdr displayable-buffers))) (other-window -1)) ((> displayable-buffers-len 2) (let ((bufs (reverse (cdr displayable-buffers)))) (switch-to-buffer-other-window (car-safe (prog1 bufs (setq bufs (cdr bufs))))) (let ((tail bufs)) (while tail (let ((buf (car tail))) (switch-to-buffer buf nil t) (setq tail (cdr tail))))) (other-window -1)))) (if (> displayable-buffers-len 2) (progn (setq nondisplayed-buffers-p t))) (if (or inhibit-startup-screen initial-buffer-choice noninteractive (daemonp) inhibit-x-resources) (if (and nondisplayed-buffers-p (not noninteractive) (not inhibit-startup-buffer-menu)) (progn (list-buffers))) (run-hooks 'emacs-startup-hook 'term-setup-hook) (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (progn (frame-notice-user-settings))) (run-hooks 'window-setup-hook) (setq inhibit-startup-hooks t) (display-startup-screen (> displayable-buffers-len 0))))) command-line-1(("-l" "titdic-cnv" "-f" "batch-miscdic-convert" "-dir" "./../lisp/leim/quail" "MISC-DIC/cangjie-table.b5")) (let (xdg-dir startup-init-directory) (progn (setq before-init-time (current-time)) (setq after-init-time nil) (setq command-line-default-directory default-directory)) (setq abbreviated-home-dir nil) (let ((vc (getenv "VERSION_CONTROL"))) (cond ((eq vc nil)) ((member vc '("t" "numbered")) (setq version-control t)) ((member vc '("nil" "existing")) (setq version-control nil)) ((member vc '("never" "simple")) (setq version-control 'never)))) (let ((simple-file-name (locate-file "simple" load-path (get-load-suffixes)))) (if (null simple-file-name) (let ((standard-output 'external-debugging-output) (lispdir (expand-file-name "../lisp" data-directory))) (princ "Warning: Could not find simple.el or simple.elc") (terpri) (if (getenv "EMACSLOADPATH") (progn (princ "The EMACSLOADPATH environment variable is set, please check its value") (terpri))) (if (file-readable-p lispdir) nil (princ (format "Lisp directory %s not readable?" lispdir)) (terpri))) (setq lisp-directory (file-truename (file-name-directory simple-file-name))) (setq load-history (mapcar #'(lambda (elt) (if (and (stringp (car elt)) (not (file-name-absolute-p (car elt)))) (cons (concat lisp-directory (car elt)) (cdr elt)) elt)) load-history)))) (let ((args command-line-args)) (while args (setcar args (decode-coding-string (car args) locale-coding-system t)) (car-safe (prog1 args (setq args (cdr args)))))) (let ((done nil) (args (cdr command-line-args)) display-arg) (setq init-file-user (if noninteractive nil (user-login-name))) (and init-file-user (equal init-file-user (user-real-login-name)) (setq init-file-user "")) (while (and (not done) args) (let* ((longopts '(("--no-init-file") ("--no-site-file") ("--no-x-resources") ("--debug-init") ("--user") ("--iconic") ("--icon-type") ("--quick") ("--no-blinking-cursor") ("--basic-display") ("--dump-file") ("--temacs") ("--seccomp") ("--init-directory" "--no-comp-spawn"))) (argi (car-safe (prog1 args (setq args (cdr args))))) (orig-argi argi) argval) (if (string-match "\\`\\(--[^=]*\\)=" argi) (progn (progn (setq argval (substring argi (match-end 0))) (setq argi (match-string 1 argi))))) (if (string-match "\\`--." orig-argi) (progn (let ((completion (try-completion argi longopts))) (cond ((eq completion t) (setq argi (substring argi 1))) ((stringp completion) (let ((elt (assoc completion longopts))) (if elt nil (error "Option `%s' is ambiguous" argi)) (setq argi (substring (car elt) 1)))) (t (progn (setq argval nil) (setq argi orig-argi))))))) (if (equal argi "-scripteval") (progn (progn (setq init-file-user nil) (setq noninteractive t)))) (cond ((member argi '("-d" "-display")) (setq display-arg (list argi (car-safe (prog1 args (setq args (cdr args))))))) ((member argi '("-Q" "-quick")) (progn (setq init-file-user nil) (setq site-run-file nil) (setq inhibit-x-resources t)) (put 'site-run-file 'standard-value '(nil))) ((member argi '("-no-x-resources")) (setq inhibit-x-resources t)) ((member argi '("-D" "-basic-display")) (progn (setq no-blinking-cursor t) (setq emacs-basic-display t)) (setq initial-frame-alist (cons '(vertical-scroll-bars) initial-frame-alist))) ((member argi '("-q" "-no-init-file")) (setq init-file-user nil)) ((member argi '("-init-directory")) (progn (setq user-emacs-directory (or argval (car-safe (prog1 args (setq args (cdr args)))))) (setq user-emacs-directory (if (stringp user-emacs-directory) (file-name-as-directory (expand-file-name user-emacs-directory command-line-default-directory)) user-emacs-directory)) (setq argval nil))) ((member argi '("-u" "-user")) (progn (setq init-file-user (or argval (car-safe (prog1 args (setq args (cdr args)))))) (setq argval nil))) ((equal argi "-no-site-file") (setq site-run-file nil) (put 'site-run-file 'standard-value '(nil))) ((equal argi "-no-comp-spawn") (defvar comp-no-spawn) (setq comp-no-spawn t)) ((equal argi "-debug-init") (setq init-file-debug t)) ((equal argi "-iconic") (setq initial-frame-alist (cons '(visibility . icon) initial-frame-alist))) ((member argi '("-nbc" "-no-blinking-cursor")) (setq no-blinking-cursor t)) ((member argi '("-dump-file" "-temacs" "-seccomp")) (or argval (car-safe (prog1 args (setq args (cdr args))))) (setq argval nil)) (t (setq args (cons argi args)) (setq done t))) (and argval (error "Option `%s' doesn't allow an argument" argi)))) (and display-arg (setq args (append display-arg args))) (and command-line-args (setcdr command-line-args args))) (let ((user-emacs-directory-warning nil)) (if (listp custom-delayed-init-variables) (progn (mapc #'custom-reevaluate-setting (reverse custom-delayed-init-variables))))) (setq custom-delayed-init-variables t) (if init-file-user (progn (if (string-match "[~/:\n]" init-file-user) (display-warning 'initialization (format "Invalid user name %s" init-file-user) :error) (if (file-directory-p (expand-file-name (if (memq system-type '(windows-nt ms-dos)) "~" (concat "~" init-file-user)))) nil (display-warning 'initialization (format "User %s has no home directory" (if (equal init-file-user "") (user-real-login-name) init-file-user)) :error))))) (setq xdg-dir startup--xdg-config-home-emacs) (setq startup-init-directory (if (or (= 0 (length init-file-user)) (and (eq xdg-dir user-emacs-directory) (not (eq xdg-dir startup--xdg-config-default)))) user-emacs-directory (setq xdg-dir (concat "~" init-file-user "/.config/emacs/")) (startup--xdg-or-homedot xdg-dir init-file-user))) (startup--load-user-init-file #'(lambda nil (expand-file-name "early-init.el" startup-init-directory))) (setq early-init-file user-init-file) (if (featurep 'native-compile) (progn (startup--update-eln-cache))) (and user-init-file package-enable-at-startup (not (and (boundp 'package--activated) package--activated)) (catch 'package-dir-found (let ((dirs (cons package-user-dir package-directory-list))) (let ((tail dirs)) (while tail (let ((dir (car tail))) (if (file-directory-p dir) (progn (let ((tail (directory-files dir))) (while tail (let ((subdir (car tail))) (if (let ((subdir (expand-file-name subdir dir))) (and (file-directory-p subdir) (file-exists-p (expand-file-name (package--description-file subdir) subdir)))) (progn (throw 'package-dir-found t))) (setq tail (cdr tail))))))) (setq tail (cdr tail))))))) (package-activate-all)) (condition-case error (if noninteractive nil (if (and initial-window-system (not (featurep (intern (concat (symbol-name initial-window-system) "-win"))))) (error "Unsupported window system `%s'" initial-window-system)) (setq command-line-args (let ((window-system initial-window-system)) (handle-args-function command-line-args))) (let ((window-system initial-window-system)) (window-system-initialization)) (put initial-window-system 'window-system-initialized t)) (error (princ (if (eq (car error) 'error) (apply 'concat (cdr error)) (if (memq 'file-error (get (car error) 'error-conditions)) (format "%s: %s" (nth 1 error) (mapconcat #'(lambda (obj) (prin1-to-string obj t)) (cdr (cdr error)) ", ")) (format "%s: %s" (get (car error) 'error-message) (mapconcat #'(lambda (obj) (prin1-to-string obj t)) (cdr error) ", ")))) 'external-debugging-output) (terpri 'external-debugging-output) (setq initial-window-system nil) (kill-emacs))) (run-hooks 'before-init-hook) (if (daemonp) nil (if (or noninteractive emacs-basic-display) (progn (setq menu-bar-mode nil) (setq tab-bar-mode nil) (setq tool-bar-mode nil))) (frame-initialize)) (if (fboundp 'x-create-frame) (progn (if noninteractive nil (tool-bar-setup)))) (if noninteractive nil (startup--setup-quote-display) (setq internal--text-quoting-flag t)) (normal-erase-is-backspace-setup-frame) (or (eq initial-window-system 'pc) (tty-register-default-colors)) (let ((old-scalable-fonts-allowed scalable-fonts-allowed) (old-face-ignored-fonts face-ignored-fonts)) (if site-run-file (let ((inhibit-startup-screen inhibit-startup-screen)) (load site-run-file t t))) (startup--load-user-init-file #'(lambda nil (cond ((eq startup-init-directory xdg-dir) nil) ((eq system-type 'ms-dos) (concat "~" init-file-user "/_emacs")) ((not (eq system-type 'windows-nt)) (concat "~" init-file-user "/.emacs")) ((directory-files "~" nil "\\`\\.emacs\\(\\.elc?\\)?\\'") "~/.emacs") ((directory-files "~" nil "\\`_emacs\\(\\.elc?\\)?\\'") (setq delayed-warnings-list (cons (list 'initialization (format-message "`_emacs' init file is deprecated, please use `.emacs'")) delayed-warnings-list)) "~/_emacs") (t "~/.emacs"))) #'(lambda nil (expand-file-name "init.el" startup-init-directory)) t) (if (featurep 'native-compile) (progn (startup--update-eln-cache))) (if (and deactivate-mark transient-mark-mode) (progn (save-current-buffer (set-buffer (window-buffer)) (deactivate-mark)))) (if (and (not noninteractive) (file-exists-p abbrev-file-name) (file-readable-p abbrev-file-name)) (progn (quietly-read-abbrev-file abbrev-file-name))) (setq abbrevs-changed nil) (and mail-host-address (equal user-mail-address (let (mail-host-address) (condition-case nil (progn (custom--standard-value 'user-mail-address)) (error nil)))) (custom-reevaluate-setting 'user-mail-address)) (if (and (eq scalable-fonts-allowed old-scalable-fonts-allowed) (eq face-ignored-fonts old-face-ignored-fonts)) nil (clear-face-cache))) (setq after-init-time (current-time)) (run-hooks 'after-init-hook 'delayed-warnings-hook) (if (get-buffer "*scratch*") (save-current-buffer (set-buffer "*scratch*") (if (eq major-mode 'fundamental-mode) (funcall initial-major-mode)))) (if (or noninteractive initial-window-system (daemonp)) nil (tty-run-terminal-initialization (selected-frame) nil t)) (setq memory-signal-data (list 'error (substitute-command-keys "Memory exhausted--use \\[save-some-buffers] then exit and restart Emacs"))) (custom-reevaluate-setting 'user-emacs-directory-warning) (command-line-1 (cdr command-line-args)) (if (and user-emacs-directory-warning (not (file-accessible-directory-p user-emacs-directory))) (progn (locate-user-emacs-file ""))) (let (warned) (let ((tail load-path)) (while tail (let ((dir (car tail))) (and (not noninteractive) (not warned) (stringp dir) (string-equal (file-name-as-directory (expand-file-name dir)) (expand-file-name user-emacs-directory)) (setq warned t) (display-warning 'initialization (format-message "Your `load-path' seems to contain\nyour `user-emacs-directory': %s\nThis is likely to cause problems...\nConsider using a subdirectory instead, e.g.: %s" dir (expand-file-name "lisp" user-emacs-directory)) :warning)) (setq tail (cdr tail)))))) (if noninteractive (kill-emacs t)) (let ((dn (daemonp))) (if dn (progn (if (stringp dn) (progn (setq server-name dn))) (server-start) (if server-process (daemon-initialized) (if (stringp dn) (message "Unable to start daemon: Emacs server named %S already running" server-name) (message "Unable to start the daemon.\nAnother instance of Emacs is running the server, either as daemon or interactively.\nYou can use emacsclient to connect to that Emacs process.")) (kill-emacs 1))))) (if (and (boundp 'x-session-previous-id) (stringp x-session-previous-id)) (with-no-warnings (emacs-session-restore x-session-previous-id)))) command-line() (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook))) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (if command-line-processed (message internal--top-level-message) (setq command-line-processed t) (setq startup--xdg-config-home-emacs (let ((xdg-config-home (getenv-internal "XDG_CONFIG_HOME"))) (if xdg-config-home (concat xdg-config-home "/emacs/") startup--xdg-config-default))) (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (if (featurep 'native-compile) (progn (if (native-comp-available-p) nil (progn (setq native-comp-jit-compilation nil) (setq native-comp-enable-subr-trampolines nil))) (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (if path-env (progn (let ((tail (split-string path-env path-separator))) (while tail (let ((path (car tail))) (if (string= "" path) nil (setq native-comp-eln-load-path (cons path native-comp-eln-load-path))) (setq tail (cdr tail)))))))) (setq native-comp-eln-load-path (cons (expand-file-name "eln-cache/" user-emacs-directory) native-comp-eln-load-path)))) (let ((tail load-path) (lispdir (expand-file-name "../lisp" data-directory)) dir) (while tail (setq dir (car tail)) (let ((default-directory dir)) (load (expand-file-name "subdirs.el") t t t)) (or (string-prefix-p lispdir dir) (let ((default-directory dir)) (load (expand-file-name "leim-list.el") t t t))) (setq tail (cdr tail)))) (cond ((memq system-type '(ms-dos windows-nt)) (progn (setq eol-mnemonic-unix "(Unix)") (setq eol-mnemonic-mac "(Mac)"))) (t (progn (setq eol-mnemonic-dos "(DOS)") (setq eol-mnemonic-mac "(Mac)")))) (set-locale-environment nil) (if locale-coding-system (progn (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (save-excursion (let ((tail (buffer-list))) (while tail (let ((elt (car tail))) (set-buffer elt) (if default-directory (setq default-directory (if (eq system-type 'windows-nt) (let ((defdir (decode-coding-string default-directory coding t))) (expand-file-name defdir defdir)) (decode-coding-string default-directory coding t)))) (setq tail (cdr tail)))))) (let ((tail '(load-path exec-path))) (while tail (let ((pathsym (car tail))) (let ((path (symbol-value pathsym))) (if (listp path) (set pathsym (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) path)))) (setq tail (cdr tail))))) (if (featurep 'native-compile) (progn (let ((npath (symbol-value 'native-comp-eln-load-path))) (set 'native-comp-eln-load-path (mapcar #'(lambda (dir) (expand-file-name (decode-coding-string dir Loading macroexp.elc... Wrong type argument: listp, "jjgow" coding t))) npath))) (setq startup--original-eln-load-path (copy-sequence native-comp-eln-load-path)))) (let ((tail '(data-directory doc-directory exec-directory installation-directory invocation-directory invocation-name source-directory shared-game-score-directory))) (while tail (let ((filesym (car tail))) (let ((file (symbol-value filesym))) (if (stringp file) (set filesym (decode-coding-string file coding t)))) (setq tail (cdr tail)))))))) (let ((dir default-directory)) (save-current-buffer (set-buffer "*Messages*") (messages-buffer-mode) (setq default-directory (or dir (expand-file-name "~/"))))) (put 'user-full-name 'standard-value (list (default-value 'user-full-name))) (let ((pwd (getenv "PWD"))) (and pwd (or (and default-directory (condition-case nil (progn (equal (file-attributes (file-name-as-directory pwd)) (file-attributes (file-name-as-directory default-directory)))) (error nil))) (setq process-environment (delete (concat "PWD=" pwd) process-environment))))) (if (listp charset-map-path) (let ((coding (if (eq system-type 'windows-nt) 'utf-8 locale-coding-system))) (setq charset-map-path (mapcar #'(lambda (dir) (decode-coding-string dir coding t)) charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) (display-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) (if default-directory (setq default-directory (abbreviate-file-name default-directory))) (or auto-save-list-file-name (and auto-save-list-file-prefix (setq auto-save-list-file-name (cond ((eq system-type 'ms-dos) (make-directory (file-name-directory auto-save-list-file-prefix) t) (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) "~")) (t (expand-file-name (format "%s%d-%s~" auto-save-list-file-prefix (emacs-pid) (system-name)))))))) (if inhibit-startup-hooks nil (run-hooks 'emacs-startup-hook 'term-setup-hook)) (if (or frame-initial-frame (not (and initial-window-system (not noninteractive) (not (eq initial-window-system 'pc))))) (progn (if (and (display-multi-font-p) (not (eq face-font-rescale-alist old-face-font-rescale-alist)) (assoc (font-xlfd-name (face-attribute 'default :font)) face-font-rescale-alist #'string-match-p)) (progn (set-face-attribute 'default nil :font (font-spec)))) (if (fboundp 'frame-notice-user-settings) (frame-notice-user-settings)) (if (fboundp 'frame-set-background-mode) (frame-set-background-mode (selected-frame))))) (if (fboundp 'font-menu-add-default) (font-menu-add-default)) (if inhibit-startup-hooks nil (run-hooks 'window-setup-hook)))) (setenv "TERM" "dumb") (let ((display (frame-parameter nil 'display))) (if (stringp display) (setq display (concat "DISPLAY=" display)) (let ((tail initial-environment)) (while tail (let ((varval (car tail))) (if (string-match "\\`DISPLAY=" varval) (setq display varval)) (setq tail (cdr tail)))))) (if display (progn (delete display process-environment))))) normal-top-level() gmake[5]: *** [Makefile:123: ../lisp/leim/quail/tsang-b5.el] Error 255 gmake[5]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/leim' gmake[4]: *** [Makefile:414: leim] Error 2 gmake[4]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/lisp' gmake[3]: *** [Makefile:897: ../lisp/loaddefs.el] Error 2 gmake[3]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4/src' gmake[2]: *** [Makefile:544: src] Error 2 gmake[2]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' gmake[1]: *** [Makefile:1268: actual-bootstrap] Error 2 gmake[1]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' gmake[1]: Entering directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' if [ -x ./config.status ]; then \ ./config.status --recheck; \ else \ ./configure --cache-file=/dev/null; \ fi *** *** "make bootstrap" failed with exit status 2. *** *** You could try to: *** - run "make extraclean" and run "make" again (or, equivalently, run *** "make bootstrap configure=default"), to rebuild Emacs with the *** default configuration options, which might fix the problem *** - run "git clean -fdx" and run "make bootstrap" again, which might *** fix the problem if "make bootstrap configure=default" did not *** !BEWARE! "git clean -fdx" deletes all files that are not under *** !BEWARE! version control, which means that all changes to such *** !BEWARE! files will be lost and cannot be restored later *** - run "make V=1", which displays the full commands invoked by make, *** to further investigate the problem *** - report the problem and ask for help by sending an email to *** bug-gnu-emacs@gnu.org, mentioning at least the build error *** message, the platform, and the repository revision displayed by *** "git rev-parse HEAD" *** gmake[1]: *** [Makefile:414: advice-on-failure] Error 2 gmake[1]: Leaving directory '/usr/pkgsrc/editors/emacs29/work/emacs-29.4' gmake: *** [Makefile:1251: bootstrap] Error 2 *** Error code 2 Stop. make[1]: stopped in /usr/pkgsrc/editors/emacs29 *** Error code 1 Stop. make: stopped in /usr/pkgsrc/editors/emacs29