# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1099350837 0
# Node ID 40f8936f03051c3eb9c285adff307ca9e6fcf073
# Parent  53624be827e863e0185c355ccc2fe0285515245e
(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.

diff -r 53624be827e8 -r 40f8936f0305 lisp/ehelp.el
--- 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)