X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/c430f7e23fc2c22f251ace4254e37dea1452dfc3..a7e302dc1dc18770aaf9eeedfd638f73b574bc19:/lisp/faces.el

diff --git a/lisp/faces.el b/lisp/faces.el
index d5fc3ce834..426de3b81d 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2881,7 +2881,7 @@ also the same size as FACE on FRAME, or fail."
 			   pattern face)))
 	      (error "No fonts match `%s'" pattern)))
 	(car fonts))
-    (cdr (assq 'font (frame-parameters (selected-frame))))))
+    (frame-parameter nil 'font)))
 
 (defcustom font-list-limit 100
   "This variable is obsolete and has no effect."