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

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

Browse source 
Signal a user error when the history is not a list (bug#56613).
This commit is contained in:
Juri Linkov 2022-07-17 21:04:29 +03:00
parent d62766305a
commit 60185819b6
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/minibuffer.el
View file

@ -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)))