* lisp/minibuffer.el (minibuffer-complete-history): Check for history=t.

Signal a user error when the history is not a list (bug#56613).

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 9d2abbd1180e922e9289321cf67fb407a27b6922..a598fe110f26278bac640eb72289ef862043f8b9 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -4409,11 +4409,14 @@ Like `minibuffer-complete' but completes on the history items
 instead of the default completion table."
   (interactive)
   (let ((completions-sort nil)
-        (history (mapcar (lambda (h)
-                           ;; Support e.g. `C-x ESC ESC TAB' as
-                           ;; a replacement of `list-command-history'
-                           (if (consp h) (format "%S" h) h))
-                         (symbol-value minibuffer-history-variable))))
+        (history (symbol-value minibuffer-history-variable)))
+    (if (listp history)
+        ;; Support e.g. `C-x ESC ESC TAB' as
+        ;; a replacement of `list-command-history'
+        (setq history (mapcar (lambda (h)
+                                (if (consp h) (format "%S" h) h))
+                              history))
+      (user-error "No history available"))
     (completion-in-region (minibuffer--completion-prompt-end) (point-max)
                           history nil)))