From 27655f9f38ab8037b599ce20341662d767fdc58c Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 17 Nov 2020 02:17:14 +0100 Subject: [PATCH] Test that substitute-command-keys preserves text properties * test/lisp/help-tests.el (help-substitute-command-keys/preserves-text-properties): New test. (Bug#17052) --- test/lisp/help-tests.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 2.39.5