From 10c675b96042f184524cc9ea817cad14ff1f7fc0 Mon Sep 17 00:00:00 2001
From: Juri Linkov <juri@linkov.net>
Date: Wed, 13 Apr 2022 20:56:34 +0300
Subject: * lisp/comint.el (comint-dynamic-list-input-ring): Keep replaced text
 props.

* lisp/minibuffer.el (completions-header-format): Remove unused	text prop.
---
 lisp/comint.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lisp/comint.el')

diff --git a/lisp/comint.el b/lisp/comint.el
index 56082f622a5..88eaf1120e3 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1110,7 +1110,8 @@ See also `comint-read-input-ring'."
 	  (use-local-map keymap))
 	(forward-line 3)
 	(while (search-backward "completion" nil 'move)
-	  (replace-match "history reference")))
+	  (replace-match (apply #'propertize "history reference"
+				(text-properties-at (point))))))
       (sit-for 0)
       (message "Hit space to flush")
       (setq comint-dynamic-list-input-ring-window-conf conf)
-- 
cgit v1.2.3