bugs in (loop for ... being the key-codes|key-seqs ...)

bugs in (loop for ... being the key-codes|key-seqs ...)

[Jonas Bernoulli]

Both 22.1 and 23.0.60 are affected.

(loop for key being the key-seqs of
      (let ((map (make-sparse-keymap)))
	(define-key map "a" 'a-97)
	(define-key map "b" 'b-98)
	map)
      collect key)

=> ([97] [97])

but should be:

=> ([98] [97])


(loop for key being the key-codes of
      (let ((map (make-sparse-keymap)))
	(define-key map "a" 'a-97)
	(define-key map "b" 'b-98)
	(set-keymap-parent map
			   (let ((map (make-sparse-keymap)))
			     (define-key map "c" 'c-99)
			     map))
	map)
      collect key)

=> (98 97 99)

but should be:

=> (98 97)

`for VAR being the key-codes of KEYMAP'
     This clause iterates over the entries in KEYMAP.  The iteration
     does not enter nested keymaps or inherited (parent) keymaps.

-- jonas

Re: bugs in (loop for ... being the key-codes|key-seqs ...)

[Johan Bockgård]

"Jonas Bernoulli" <jonas@bernoulli.cc> writes:

> Both 22.1 and 23.0.60 are affected.
>
> (loop for key being the key-seqs of
>       (let ((map (make-sparse-keymap)))
> 	(define-key map "a" 'a-97)
> 	(define-key map "b" 'b-98)
> 	map)
>       collect key)
>
> => ([97] [97])
>
> but should be:
>
> => ([98] [97])

  `for VAR being the key-seqs of KEYMAP'
       This clause iterates over all key sequences defined by KEYMAP and
       its nested keymaps, where VAR takes on values which are vectors.
       The strings or vectors are reused for each iteration, so you must
       copy them if you wish to keep them permanently.
       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

-- 
Johan Bockgård