From ad8d994cbecb75742754f1a9d56e5f1b11950e78 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 1 Nov 2004 23:16:25 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 4 ++++ lisp/ehelp.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bb38dbc47ed..3bdd1fefca1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2004-11-02 Kim F. Storm + * files.el (set-auto-mode-0): Don't rely on dynamic binding of + keep-mode-if-same variable. Add it as optional arg instead. + (set-auto-mode): Call set-auto-mode-0 with keep-mode-if-same. + * ehelp.el (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 --git a/lisp/ehelp.el b/lisp/ehelp.el index e80c129d3ea..82a8e10301e 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -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) -- 2.39.2