diff lisp/ehelp.el @ 57859:40f8936f0305

(electric-help-map): Reorder Q/q and R/r entries so substitute-command-keys will select lower-case bindings like those used in the static help texts.

--- a/lisp/ehelp.el	Mon Nov 01 23:13:39 2004 +0000
+++ b/lisp/ehelp.el	Mon Nov 01 23:13:57 2004 +0000
@@ -85,11 +85,11 @@
     (define-key map "<" 'beginning-of-buffer)
     (define-key map ">" 'end-of-buffer)
     ;(define-key map "\C-g" 'electric-help-exit)
+    (define-key map "Q" 'electric-help-exit)
     (define-key map "q" 'electric-help-exit)
-    (define-key map "Q" 'electric-help-exit)
     ;;a better key than this?
+    (define-key map "R" 'electric-help-retain)
     (define-key map "r" 'electric-help-retain)
-    (define-key map "R" 'electric-help-retain)
     (define-key map "\ex" 'electric-help-execute-extended)
     (define-key map "\C-x" 'electric-help-ctrl-x-prefix)