[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 10c675b960: * lisp/comint.el (comint-dynamic-list-input-ring): Ke
From: |
Juri Linkov |
Subject: |
master 10c675b960: * lisp/comint.el (comint-dynamic-list-input-ring): Keep replaced text props. |
Date: |
Wed, 13 Apr 2022 13:57:20 -0400 (EDT) |
branch: master
commit 10c675b96042f184524cc9ea817cad14ff1f7fc0
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* 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 56082f622a..88eaf1120e 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 f60af482da..e1947ae5dd 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 10c675b960: * lisp/comint.el (comint-dynamic-list-input-ring): Keep replaced text props.,
Juri Linkov <=