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

Support ido-vertical-mode better

Browse source 
* lisp/ido.el (ido-exhibit):
Prepend a space to INF if it starts with a newline (bug#39379).
This commit is contained in:
Dmitry Gutov 2020-02-05 02:50:12 +03:00
parent ef5fba9f40
commit 4a0a114505
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ido.el
View file

@ -4732,6 +4732,9 @@ For details of keybindings, see `ido-find-file'."
(delete-overlay ido--overlay)) (delete-overlay ido--overlay))
(let ((o (make-overlay (point-max) (point-max) nil t t))) (let ((o (make-overlay (point-max) (point-max) nil t t)))
(when (> (length inf) 0) (when (> (length inf) 0)
;; For hacks that redefine ido-completions function (bug#39379)
(when (eq (aref inf 0) ?\n)
(setq inf (concat " " inf)))
(put-text-property 0 1 'cursor t inf)) (put-text-property 0 1 'cursor t inf))
(overlay-put o 'after-string inf) (overlay-put o 'after-string inf)
(setq ido--overlay o))) (setq ido--overlay o)))