bug#8807: map-char-table alters cons cells used as events

[Kenichi Handa]

In article <4DEC5C8B.3030803@gmail.com>, Jonathan Ganc <jonpublic2@gmail.com> 
writes:

> In using map-char-table, I've encountered something which is either a 
> bug or at least unexpected to me. Here is a minimal listing producing 
> the result:

> (let ((ct (make-char-table 'keymap)) permev)
>    (set-char-table-range ct '(1 . 2) 'binding)
>    (map-char-table
>     (lambda (event defn)
>       (setq permev event)
>       (insert (prin1-to-string permev)))
>     ct)
>    (insert (concat "\n" (prin1-to-string permev)))
>    )

> This produces:
> (1 . 2)
> (3 . 4194303)
> , so that map-char-table alters the cons cell being used as an output 
> range than producing a new one. I would have expected:
> (1 . 2)
> (1 . 2)
> Is this the desired behavior?

Considering the efficiency (by reducing cons cell creation),
it is the desired behavior.

---
Kenichi Handa
handa@m17n.org