From 10c675b96042f184524cc9ea817cad14ff1f7fc0 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 13 Apr 2022 20:56:34 +0300 Subject: [PATCH] * 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 ++- lisp/minibuffer.el | 4 +--- 2 files changed, 3 insertions(+), 4 deletions(-) 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) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index f60af482da2..e1947ae5ddb 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1895,9 +1895,7 @@ completions." :version "28.1") (defcustom completions-header-format - (propertize "%s possible completions:\n" - 'face 'shadow - :help "Please select a completion") + (propertize "%s possible completions:\n" 'face 'shadow) "Format of completions header. It may contain one %s to show the total count of completions. When nil, no header is shown." -- 2.30.2