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 /lisp/comint.el | |
| 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.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 3 |
1 files changed, 2 insertions, 1 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) |