diff options
| author | Juri Linkov <juri@linkov.net> | 2022-04-13 20:56:34 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-04-13 20:56:34 +0300 |
| commit | 10c675b96042f184524cc9ea817cad14ff1f7fc0 (patch) | |
| tree | b4f0624c66ea9d428ec4a2400162a43286e1949f | |
| parent | 88998aab941a19cb7e5a8f22d10d607035760c4a (diff) | |
| download | emacs-10c675b96042f184524cc9ea817cad14ff1f7fc0.tar.gz emacs-10c675b96042f184524cc9ea817cad14ff1f7fc0.tar.bz2 emacs-10c675b96042f184524cc9ea817cad14ff1f7fc0.zip | |
* lisp/comint.el (comint-dynamic-list-input-ring): Keep replaced text props.
* lisp/minibuffer.el (completions-header-format): Remove unused text prop.
| -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." |