[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 27655f9: Test that substitute-command-keys preserves text propert
From: |
Stefan Kangas |
Subject: |
master 27655f9: Test that substitute-command-keys preserves text properties |
Date: |
Mon, 16 Nov 2020 20:22:10 -0500 (EST) |
branch: master
commit 27655f9f38ab8037b599ce20341662d767fdc58c
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 42be029..49cb40b 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 27655f9: Test that substitute-command-keys preserves text properties,
Stefan Kangas <=