master 7b0b27971b: Make face-remap-set-base work with a single face again

[Lars Ingebrigtsen]

branch: master
commit 7b0b27971b583c09cbc524d2215546f5dfe4a0e1
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/face-remap.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index eb4f6b9534..50306a5e8a 100644
--- 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