Merge from savannah/emacs-30

1b80bc67aad ; * doc/emacs/android.texi (Android Software): Minor mark...
dcfbf7d1863 ; * etc/PROBLEMS: Document the same problem here.
b09bbf22afd Document requirements respecting XDG MIME databases on An...
365a91622e0 ; (completion-preview--try-table): Propagate extra proper...

# Conflicts:
#	lisp/completion-preview.el

1 files changed, 13 insertions, 0 deletions

diff --git a/test/lisp/completion-preview-tests.el b/test/lisp/completion-preview-tests.el
index 411a14a87ef..8ce2a30bb27 100644
--- a/test/lisp/completion-preview-tests.el
+++ b/test/lisp/completion-preview-tests.el
@@ -445,4 +445,17 @@ instead."
     (should (string= (buffer-string) "foobar"))
     (should (eq (get-text-property 6 'prop) 'val))))
 
+(ert-deftest completion-preview-propagates-properties ()
+  "Test the completion metadata handling of Completion Preview mode."
+  (with-temp-buffer
+    (setq-local
+     completion-preview-sort-function #'minibuffer-sort-alphabetically
+     completion-at-point-functions
+     (list (completion-preview-tests--capf '("foobaz" "foobar")
+                                           :display-sort-function #'identity)))
+    (insert "foo")
+    (let ((this-command 'self-insert-command))
+      (completion-preview--post-command))
+    (completion-preview-tests--check-preview "baz" 'completion-preview-common)))
+
 ;;; completion-preview-tests.el ends here