cua-mode / substitute-command-keys interaction

[Juanma Barranquero]

(load-library "cua-base")
(cua-mode)
(load-library "ehelp")
M-x electric-describe-function car [RET]

  => (in the echo area:) "Press SPC to scroll, q to exit, r to retain"

(add-hook 'electric-help-mode
          '(lambda ()
             (define-key electric-help-map "r" #'ignore)))

M-x electric-describe-function car [RET]

  => (echo area:) "Press M-x scroll-up to scroll, M-x electric-help-exit to 
exit, M-x electric-help-retain to retain"

(cua-mode 0)
M-x electric-describe-function car [RET]

  => (echo area:) "Press SPC to scroll, Q to exit, R to retain"

-------------------------------------------------

In the call to Electric-command-loop inside electric-command-help-loop,
substitute-command-keys acts weirdly. It's easy to see by tracing the
function with edebug and 'e'valing:

 (substitute-command-keys "\\[scroll-up], \\[electric-help-exit]")
 (substitute-command-keys "\\[electric-help-exit]")
 (substitute-command-keys "\\[scroll-up]")

etc. The results depend on what is being asked to translate and in which
order.

                                                           /L/e/k/t/u