From: Jim Porter <jporterbugs@gmail.com>
Date: Sat, 11 Nov 2023 21:26:44 +0000 (-0800)
Subject: Forward completion text properties in 'completion-table-with-quoting'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16ac377aab257d635918dd0188dcdf630e75757c;p=emacs.git

Forward completion text properties in 'completion-table-with-quoting'

This fixes an issue with 'pcomplete-here-using-help', which passes
annotation strings along as text properties.  Previously, those got
clobbered when the completions got requoted (bug#67112).

* lisp/minibuffer.el (completion--twq-all): Apply text properties from
the first character of the unquoted completion to the quoted
completion.
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 7af7a359674..5c12d9fc914 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -677,6 +677,13 @@ for use at QPOS."
                                              'completions-common-part)
                                qprefix))))
                         (qcompletion (concat qprefix qnew)))
+                   ;; Some completion tables (including this one) pass
+                   ;; along necessary information as text properties
+                   ;; on the first character of the completion.  Make
+                   ;; sure the quoted completion has these properties
+                   ;; too.
+                   (add-text-properties 0 1 (text-properties-at 0 completion)
+                                        qcompletion)
                    ;; Attach unquoted completion string, which is needed
                    ;; to score the completion in `completion--flex-score'.
                    (put-text-property 0 1 'completion--unquoted