bug#45926: Tabulated-list-mode wasteful properties

[Jean Louis]

* Boruch Baum <boruch_baum@gmx.com> [2021-03-12 05:58]:
> On 2021-03-11 18:52, Stefan Kangas wrote:
> > Lars Ingebrigtsen <larsi@gnus.org> writes:
> >
> > > Boruch Baum <boruch_baum@gmx.com> writes:
> > >
> > >> Until you wrote, I definitely was. I think I still am, but I'm willing
> > >> to look again.
> >
> > Borouch, did you have the time to look into if this data is indeed
> > shared or not?  Thanks.
> 
> Oh. I thought I had done that right away ...
> 
> Doing it again now. Yes. It's very simple to check for yourself. Open a
> buffer that uses the mode and evaluate from any table line ...
> 
>   (buffer-substring (line-beginning-position) (line-end-position))
> 
> You should be able to clearly see all the duplication. It's easiest when
> you have pretty-print set up to display the output in a dedicated
> buffer, but even without that you can isearch through the
> duplications.

I have done this excercise, as I have people management in the
database.

If tabulated-list-entries is ⇒ ((320295 ["320295" "Boruch  Baum" "Emacs 
Users"]))

Then this below is what I get when invoking: (buffer-substring 
(line-beginning-position) (line-end-position)):

#(" 320295   Boruch  Baum                             Emacs Users" 0 1 
(tabulated-list-id 320295 tabulated-list-entry ["320295" "Boruch  Baum" "Emacs 
Users"]) 1 7 (help-echo "ID: 320295" tabulated-list-column-name "ID" 
tabulated-list-id 320295 tabulated-list-entry ["320295" "Boruch  Baum" "Emacs 
Users"]) 7 8 (tabulated-list-column-name "ID" tabulated-list-id 320295 
tabulated-list-entry ["320295" "Boruch  Baum" "Emacs Users"]) 8 10 (display 
(space :align-to 10) tabulated-list-column-name "ID" tabulated-list-id 320295 
tabulated-list-entry ["320295" "Boruch  Baum" "Emacs Users"]) 10 22 (help-echo 
"Name: Boruch  Baum" tabulated-list-column-name "Name" tabulated-list-id 320295 
tabulated-list-entry ["320295" "Boruch  Baum" "Emacs Users"]) 22 23 
(tabulated-list-column-name "Name" tabulated-list-id 320295 
tabulated-list-entry ["320295" "Boruch  Baum" "Emacs Users"]) 23 51 (display 
(space :align-to 51) tabulated-list-column-name "Name" tabulated-list-id 320295 
tabulated-list-entry ["320295" "Boruch  Baum" "Emacs Users"]) 51 62 (help-echo 
"Account: Emacs Users" tabulated-list-column-name "Account" tabulated-list-id 
320295 tabulated-list-entry ["320295" "Boruch  Baum" "Emacs Users"]))