substitute-command-keys keeps quotes’ text props

[gnu-emacs] / test / automated / faces-tests.el

diff --git a/test/automated/faces-tests.el b/test/automated/faces-tests.el
index 4029003e38ac7e5bdd627cd4ac25c419dd0abaad..809ba24d210b8b9ce4703f7b7c298ee6b183a27f 100644 (file)
--- a/test/automated/faces-tests.el
+++ b/test/automated/faces-tests.el
@@ -1,6 +1,6 @@
 ;;; faces-tests.el --- Tests for faces.el            -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2013-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2016 Free Software Foundation, Inc.
 
 ;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
 ;; Keywords:
@@ -37,12 +37,20 @@
     (goto-char (point-min))
     (should (equal (background-color-at-point) "black"))
     (should (equal (foreground-color-at-point) "black")))
+  (with-temp-buffer
+    (insert (propertize "STRING" 'face '(:foreground "black" :background "black")))
+    (goto-char (point-min))
+    (should (equal (background-color-at-point) "black"))
+    (should (equal (foreground-color-at-point) "black")))
   (with-temp-buffer
     (emacs-lisp-mode)
     (setq-local font-lock-comment-face 'faces--test1)
     (setq-local font-lock-constant-face 'faces--test2)
     (insert ";; `symbol'")
     (font-lock-fontify-region (point-min) (point-max))
+    (goto-char (point-min))
+    (should (equal (background-color-at-point) "black"))
+    (should (equal (foreground-color-at-point) "black"))
     (goto-char 6)
     (should (equal (background-color-at-point) "black"))
     (should (equal (foreground-color-at-point) "black"))))