1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/term/tty-colors.el b/lisp/term/tty-colors.el
index 307586f2213..5af8170203e 100644
--- a/lisp/term/tty-colors.el
+++ b/lisp/term/tty-colors.el
@@ -820,7 +820,7 @@ Value is the modified color alist for FRAME."
   "Return COLOR in canonical form.
 A canonicalized color name is all-lower case, with any blanks removed."
   (let ((case-fold-search nil))
-    (if (string-match "[A-Z ]" color)
+    (if (string-match-p "[A-Z ]" color)
         (replace-regexp-in-string " +" "" (downcase color))
       color)))