Make face-remap-set-base work with a single face again

* lisp/face-remap.el (face-remap-set-base): Fix regression
introduced by cece37cf09de9 (bug#46973).

diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index eb4f6b9534ca5b731a16fb4e7f23d51ba4dae406..50306a5e8a0bcf81442d3019172e7b1c7900aaa8 100644 (file)
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -207,10 +207,12 @@ If SPECS is empty or a single face `eq' to FACE, call `face-remap-reset-base'
 to use the normal definition of FACE as the base remapping; note that
 this is different from SPECS containing a single value nil, which means
 not to inherit from the global definition of FACE at all."
+  ;; Simplify the specs in the case where it's just a single face (and
+  ;; it's not a list with just a nil).
   (while (and (consp specs) (not (null (car specs))) (null (cdr specs)))
     (setq specs (car specs)))
   (if (or (null specs)
-         (and (eq (car specs) face) (null (cdr specs)))) ; default
+         (eq specs face)) ; default
       ;; Set entry back to default
       (face-remap-reset-base face)
     ;; Set the base remapping