procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add help-char to the cache key in read-char-from-minibuffer as well

Browse source 
It's highly unlikely that help-char will be changed from its default value 8,
but formally there is a dependence on help-char.
This commit is contained in:
Juri Linkov 2020-11-12 22:33:27 +02:00
parent 56a7c73f9c
commit 8ac71a07ce
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/subr.el
View file

@ -2771,7 +2771,7 @@ 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 (gethash (cons help-form chars)
(or (gethash (list help-form (cons help-char chars))
read-char-from-minibuffer-map-hash)
(let ((map (make-sparse-keymap))
(msg help-form))
@ -2791,7 +2791,7 @@ 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)
(puthash (cons help-form chars)
(puthash (list help-form (cons help-char chars))
map read-char-from-minibuffer-map-hash)
map))
read-char-from-minibuffer-map))