bug#71894: 29.4; Symbols joined during parsing with .erts files

bug#71894: 29.4; Symbols joined during parsing with .erts files

[David J. Rosenbaum]

To reproduce, run `emacs -Q`, paste the following into test.erts and run
the test using C-c C-c.

Name: Simple
Code: (lambda ()
        (let ((l '(x
                   x)))
             (insert (prin1-to-string l))))
No-After-Newline:
=-=
=-=
(x x)
=-=-=

The buffer contents should be "(x x)" after the transform runs but the
actual contents are "(xx)" as the two x's seem to be getting joined
during the parsing process. It only seems to happen when two symbols are
separated by a newline plus some whitespace as above. When the newline
between the x's is removed, the test passes as one would expect.

In GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.42,
cairo version 1.18.0)
Windowing system distributor 'The X.Org Foundation', version 11.0.12101013
System Description: Arch Linux

Configured using:
 'configure --with-x-toolkit=gtk3 --with-native-compilation=aot
 --sysconfdir=/etc --prefix=/usr --libexecdir=/usr/lib
 --with-tree-sitter --localstatedir=/var --with-cairo
 --disable-build-details --with-harfbuzz --with-libsystemd
 --with-modules 'CFLAGS=-march=x86-64 -mtune=generic -O2 -pipe -fno-plt
 -fexceptions -Wp,-D_FORTIFY_SOURCE=3 -Wformat -Werror=format-security
 -fstack-clash-protection -fcf-protection -fno-omit-frame-pointer
 -mno-omit-leaf-frame-pointer -g
 -ffile-prefix-map=/build/emacs/src=/usr/src/debug/emacs -flto=auto'
 'LDFLAGS=-Wl,-O1 -Wl,--sort-common -Wl,--as-needed -Wl,-z,relro
 -Wl,-z,now -Wl,-z,pack-relative-relocs -flto=auto'
 'CXXFLAGS=-march=x86-64 -mtune=generic -O2 -pipe -fno-plt -fexceptions
 -Wp,-D_FORTIFY_SOURCE=3 -Wformat -Werror=format-security
 -fstack-clash-protection -fcf-protection -fno-omit-frame-pointer
 -mno-omit-leaf-frame-pointer -Wp,-D_GLIBCXX_ASSERTIONS -g
 -ffile-prefix-map=/build/emacs/src=/usr/src/debug/emacs -flto=auto''

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSYSTEMD LIBXML2 M17N_FLT MODULES NATIVE_COMP NOTIFY
INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF
TOOLKIT_SCROLL_BARS TREE_SITTER WEBP X11 XDBE XIM XINPUT2 XPM GTK3 ZLIB

Important settings:
  value of $LC_ALL: en_US.UTF-8
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8-unix

Major mode: erts

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  line-number-mode: t
  indent-tabs-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug message yank-media puny dired
dired-loaddefs rfc822 mml mml-sec epa derived epg rfc6068 epg-config
gnus-util time-date mm-decode mm-bodies mm-encode mail-parse rfc2231
mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums
mm-util mail-prsvr mail-utils cl-print shortdoc text-property-search
rect delsel help-fns radix-tree erts-mode ert pp ewoc debug backtrace
find-func comp comp-cstr warnings icons rx cl-extra help-mode
compilation-patches browse-url url url-proxy url-privacy url-expand
url-methods url-history url-cookie generate-lisp-file url-domsuf
url-util url-parse auth-source cl-seq eieio password-cache json subr-x
map byte-opt url-vars mailcap bytecomp byte-compile eieio-compat
eieio-core cl-macs gv cl-loaddefs cl-lib rmc iso-transl tooltip cconv
eldoc paren electric uniquify ediff-hook vc-hooks lisp-float-type
elisp-mode mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd
fontset image regexp-opt fringe tabulated-list replace newcomment
text-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow
isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax
font-core term/tty-colors frame minibuffer nadvice seq simple cl-generic
indonesian philippine cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
composite emoji-zwj charscript charprop case-table epa-hook
jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs
theme-loaddefs faces cus-face macroexp files window text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget keymap
hashtable-print-readable backquote threads dbusbind inotify lcms2
dynamic-setting system-font-setting font-render-setting cairo
move-toolbar gtk x-toolkit xinput2 x multi-tty make-network-process
native-compile emacs)

Memory information:
((conses 16 119449 7741)
 (symbols 48 9167 0)
 (strings 32 30837 2085)
 (string-bytes 1 1043905)
 (vectors 16 20986)
 (vector-slots 8 420662 11481)
 (floats 8 104 204)
 (intervals 56 669 0)
 (buffers 984 16))

bug#71894: 29.4; Symbols joined during parsing with .erts files

[Eli Zaretskii]

> From: "David J. Rosenbaum" <djr7c4@gmail.com>
> Date: Mon, 01 Jul 2024 16:50:00 -0700
> 
> To reproduce, run `emacs -Q`, paste the following into test.erts and run
> the test using C-c C-c.
> 
> Name: Simple
> Code: (lambda ()
>         (let ((l '(x
>                    x)))
>              (insert (prin1-to-string l))))
> No-After-Newline:
> =-=
> =-=
> (x x)
> =-=-=

Run how?

Please make the instructions more elaborate to include all the
commands I need to type to reproduce the problem.  Thanks.

bug#71894: 29.4; Symbols joined during parsing with .erts files

[David Rosenbaum]

[-- Attachment #1: Type: text/plain, Size: 747 bytes --]

To run the test, press C-c C-c with the tests.erts buffer selected. I have
also run it using other methods but it makes no difference.

On Tue, Jul 2, 2024, 5:30 AM Eli Zaretskii <eliz@gnu.org> wrote:

> > From: "David J. Rosenbaum" <djr7c4@gmail.com>
> > Date: Mon, 01 Jul 2024 16:50:00 -0700
> >
> > To reproduce, run `emacs -Q`, paste the following into test.erts and run
> > the test using C-c C-c.
> >
> > Name: Simple
> > Code: (lambda ()
> >         (let ((l '(x
> >                    x)))
> >              (insert (prin1-to-string l))))
> > No-After-Newline:
> > =-=
> > =-=
> > (x x)
> > =-=-=
>
> Run how?
>
> Please make the instructions more elaborate to include all the
> commands I need to type to reproduce the problem.  Thanks.
>

[-- Attachment #2: Type: text/html, Size: 1225 bytes --]