Re: Modified keypad keys

[Stefan Monnier]

> +(defun powerset (list)
> +  (if (null list)
> +      '(nil)
> +    (let ((ps (powerset (cdr list))))
> +      (append ps (mapcar (lambda (e) (cons (car list) e)) ps)))))

I'm not sure I want `powerset' without some "<prefix>-".

> +(let ((modifiers (powerset '(control meta super hyper)))

You forgot shift.

So that's a total of 27 * 32 entries.  Makes this function-key-map alist
pretty, if you ask me.


        Stefan