diff options
| -rw-r--r-- | lisp/comint.el | 3 | ||||
| -rw-r--r-- | 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." |