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

* lisp/minibuffer.el (minibuffer-complete-history): Ensure a list of strings

Browse source
This commit is contained in:
Stefan Monnier 2022-07-17 14:30:43 -04:00
parent ef77070727
commit 15df17964d
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/minibuffer.el
View file

@ -4408,17 +4408,19 @@ minibuffer, but don't quit the completions window."
Like `minibuffer-complete' but completes on the history items
instead of the default completion table."
(interactive)
(let ((completions-sort nil)
(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"))
(let* ((completions-sort nil)
(history (symbol-value minibuffer-history-variable))
(completions
(if (listp history)
;; Support e.g. `C-x ESC ESC TAB' as
;; a replacement of `list-command-history'
(mapcar (lambda (h)
(if (stringp h) h (format "%S" h)))
history)
(user-error "No history available"))))
;; FIXME: Can we make it work for CRM?
(completion-in-region (minibuffer--completion-prompt-end) (point-max)
history nil)))
completions nil)))
(defun minibuffer-complete-defaults ()
"Complete minibuffer defaults as far as possible.