Fix previous read-passwd change

diff --git a/lisp/subr.el b/lisp/subr.el
index 72bedc69c3cf9e380ce4e304d94586fc6c1a2db4..e8eef541f275f46f7ec242fde533825d3d415a36 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2183,8 +2183,9 @@ by doing (clear-string STRING)."
             (add-hook 'after-change-functions hide-chars-fun nil 'local))
         (unwind-protect
             (let ((enable-recursive-minibuffers t)
-                 (map minibuffer-local-map)
+                 (map (make-sparse-keymap))
                  result)
+             (set-keymap-parent map minibuffer-local-map)
              (define-key map "\C-u"    ; bug#12570
                (lambda () (interactive) (delete-minibuffer-contents)))
              (setq result