diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 57702760fb..9a473b6867 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -714,6 +717,9 @@ minibuffer-message (copy-sequence message) (concat " [" message "]"))) (when args (setq message (apply #'format-message message args))) + ;; If not already propertized: + (unless (or (text-properties-at 0 message) (next-property-change 0 message)) + (setq message (apply #'propertize message minibuffer-message-properties))) (let ((ol (make-overlay (point-max) (point-max) nil t t)) ;; A quit during sit-for normally only interrupts the sit-for, ;; but since minibuffer-message is used at the end of a command,