From: Dmitry Gutov <dgutov@yandex.ru>
Date: Tue, 4 Feb 2020 23:50:12 +0000 (+0300)
Subject: Support ido-vertical-mode better
X-Git-Tag: emacs-27.0.90~69
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a0a1145054db9ba71c48ae5c3d766a06e144887;p=emacs.git

Support ido-vertical-mode better

* lisp/ido.el (ido-exhibit):
Prepend a space to INF if it starts with a newline (bug#39379).
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 355be5eaa66..6707d814077 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -4732,6 +4732,9 @@ For details of keybindings, see `ido-find-file'."
             (delete-overlay ido--overlay))
           (let ((o (make-overlay (point-max) (point-max) nil t t)))
             (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))
             (overlay-put o 'after-string inf)
             (setq ido--overlay o)))