mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 01:10:47 -08:00
Code Issues Projects Releases Wiki Activity

Use cache with help-char in read-char-from-minibuffer unless help-form is nil

Browse source
This commit is contained in:
Juri Linkov 2020-11-12 03:38:44 +02:00
parent 17894ef565
commit 73536ffecb
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/subr.el
View file

@ -2771,9 +2771,8 @@ If the caller has set `help-form', there is no need to explicitly add
`help-char' to chars. It's bound automatically to `help-form-show'."
(let* ((empty-history '())
(map (if (consp chars)
(or (and (gethash chars read-char-from-minibuffer-map-hash)
;; Don't use cached keymap with `help-char'.
(not help-form))
(or (gethash (if help-form (cons help-char chars) chars)
read-char-from-minibuffer-map-hash)
(let ((map (make-sparse-keymap))
(msg help-form))
(set-keymap-parent map read-char-from-minibuffer-map)
@ -2792,9 +2791,8 @@ If the caller has set `help-form', there is no need to explicitly add
'read-char-from-minibuffer-insert-char))
(define-key map [remap self-insert-command]
'read-char-from-minibuffer-insert-other)
(unless help-form
;; Don't cache keymap with `help-char'.
(puthash chars map read-char-from-minibuffer-map-hash))
(puthash (if help-form (cons help-char chars) chars)
map read-char-from-minibuffer-map-hash)
map))
read-char-from-minibuffer-map))
(result