From: Stefan Kangas <stefan@marxist.se>
Date: Tue, 17 Nov 2020 01:17:14 +0000 (+0100)
Subject: Test that substitute-command-keys preserves text properties
X-Git-Tag: emacs-28.0.90~5126
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27655f9f38ab8037b599ce20341662d767fdc58c;p=emacs.git

Test that substitute-command-keys preserves text properties

* test/lisp/help-tests.el
(help-substitute-command-keys/preserves-text-properties): New test.
(Bug#17052)
---

diff --git a/test/lisp/help-tests.el b/test/lisp/help-tests.el
index 42be0296c4f..49cb40b29d9 100644
--- a/test/lisp/help-tests.el
+++ b/test/lisp/help-tests.el
@@ -392,6 +392,12 @@ C-b		undefined
     (define-key global-map (kbd "C-c C-l r") nil)
     (define-key global-map (kbd "C-c C-l") nil)))
 
+(ert-deftest help-substitute-command-keys/preserves-text-properties ()
+  "Check that we preserve text properties (Bug#17052)."
+  (should (equal (substitute-command-keys
+                  (propertize "foo \\[save-buffer]" 'face 'bold))
+                 (propertize "foo C-x C-s" 'face 'bold))))
+
 (provide 'help-tests)
 
 ;;; help-tests.el ends here