diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2020-01-21 17:58:23 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-01-21 17:58:23 +0200 |
| commit | 5abd8d73b08f0ef57b1ddcab298fa7a3aff8f45c (patch) | |
| tree | 718194e9822a02e6d11bdecafb0595bb3bddda9d | |
| parent | f2f9f2f98ef34bc9c6eef6a7b85b75e4581daabc (diff) | |
| download | emacs-5abd8d73b08f0ef57b1ddcab298fa7a3aff8f45c.tar.gz | |
Improve display of temporary echo messages
* lisp/minibuffer.el (set-minibuffer-message): Fix cursor position
for the temporary display of an echo-area message when minibuffer
is active. Ensure the message is visible even if the end of the
completion candidates presented by the likes of Icomplete mode is
not visible due to its length, under resize-mini-windows = nil.
(Bug#38457)
| -rw-r--r-- | lisp/minibuffer.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 4831bf72e9d..0589211877a 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -766,7 +766,7 @@ and `clear-minibuffer-message' called automatically via (defun set-minibuffer-message (message) "Temporarily display MESSAGE at the end of the minibuffer. The text is displayed for `minibuffer-message-clear-timeout' seconds -(if the value is a number), or until the next input event arrives, +\(if the value is a number), or until the next input event arrives, whichever comes first. Unlike `minibuffer-message', this function is called automatically via `set-message-function'." @@ -790,8 +790,14 @@ via `set-message-function'." ;; The current C cursor code doesn't know to use the overlay's ;; marker's stickiness to figure out whether to place the cursor ;; before or after the string, so let's spoon-feed it the pos. - (put-text-property 0 1 'cursor t message)) + (put-text-property 0 1 'cursor 1 message)) (overlay-put minibuffer-message-overlay 'after-string message) + ;; Make sure the overlay with the message is displayed before + ;; any other overlays in that position, in case they have + ;; resize-mini-windows set to nil and the other overlay strings + ;; are too long for the mini-window width. This makes sure the + ;; temporary message will always be visible. + (overlay-put minibuffer-message-overlay 'priority 1100) (when (numberp minibuffer-message-clear-timeout) (setq minibuffer-message-timer |