diff options
Diffstat (limited to 'lisp')
| -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 | |||
| 766 | (defun set-minibuffer-message (message) | 766 | (defun set-minibuffer-message (message) |
| 767 | "Temporarily display MESSAGE at the end of the minibuffer. | 767 | "Temporarily display MESSAGE at the end of the minibuffer. |
| 768 | The text is displayed for `minibuffer-message-clear-timeout' seconds | 768 | The text is displayed for `minibuffer-message-clear-timeout' seconds |
| 769 | (if the value is a number), or until the next input event arrives, | 769 | \(if the value is a number), or until the next input event arrives, |
| 770 | whichever comes first. | 770 | whichever comes first. |
| 771 | Unlike `minibuffer-message', this function is called automatically | 771 | Unlike `minibuffer-message', this function is called automatically |
| 772 | via `set-message-function'." | 772 | via `set-message-function'." |
| @@ -790,8 +790,14 @@ via `set-message-function'." | |||
| 790 | ;; The current C cursor code doesn't know to use the overlay's | 790 | ;; The current C cursor code doesn't know to use the overlay's |
| 791 | ;; marker's stickiness to figure out whether to place the cursor | 791 | ;; marker's stickiness to figure out whether to place the cursor |
| 792 | ;; before or after the string, so let's spoon-feed it the pos. | 792 | ;; before or after the string, so let's spoon-feed it the pos. |
| 793 | (put-text-property 0 1 'cursor t message)) | 793 | (put-text-property 0 1 'cursor 1 message)) |
| 794 | (overlay-put minibuffer-message-overlay 'after-string message) | 794 | (overlay-put minibuffer-message-overlay 'after-string message) |
| 795 | ;; Make sure the overlay with the message is displayed before | ||
| 796 | ;; any other overlays in that position, in case they have | ||
| 797 | ;; resize-mini-windows set to nil and the other overlay strings | ||
| 798 | ;; are too long for the mini-window width. This makes sure the | ||
| 799 | ;; temporary message will always be visible. | ||
| 800 | (overlay-put minibuffer-message-overlay 'priority 1100) | ||
| 795 | 801 | ||
| 796 | (when (numberp minibuffer-message-clear-timeout) | 802 | (when (numberp minibuffer-message-clear-timeout) |
| 797 | (setq minibuffer-message-timer | 803 | (setq minibuffer-message-timer |