master 1ac47aa: Add help-form to the cache key in read-char-from-minibuffer

[Juri Linkov]

branch: master
commit 1ac47aac0855c2a57112456537f621eb1a6f8eaa
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    Add help-form to the cache key in read-char-from-minibuffer
---
 lisp/subr.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index 1129496..cf56978 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2735,7 +2735,7 @@ floating point support."
   "Keymap for the `read-char-from-minibuffer' function.")
 
 (defconst read-char-from-minibuffer-map-hash
-  (make-hash-table :weakness 'key :test 'equal))
+  (make-hash-table :test 'equal))
 
 (defun read-char-from-minibuffer-insert-char ()
   "Insert the character you type in the minibuffer and exit.
@@ -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 (if help-form (cons help-char chars) chars)
+                  (or (gethash (cons help-form 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 (if help-form (cons help-char chars) chars)
+                        (puthash (cons help-form chars)
                                  map read-char-from-minibuffer-map-hash)
                         map))
                 read-char-from-minibuffer-map))