Simplify window-char-pixel-* code slightly

* lisp/window.el (window-char-pixel-width)
(window-char-pixel-height): Simplify code slightly.

diff --git a/lisp/window.el b/lisp/window.el
index bb4d51da5f5da806b00e9014c5f3f8ca0318fe5f..5ceec77bd32e0fface0926edc0f766eaf8579e76 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -10488,8 +10488,7 @@ If FACE is nil or omitted, the default face is used.  If FACE is
 remapped (see `face-remapping-alist'), the function returns the
 information for the remapped face."
   (with-selected-window (window-normalize-window window t)
-    (let* ((face (if face face 'default))
-          (info (font-info (face-font face)))
+    (let* ((info (font-info (face-font (or face 'default))))
           (width (aref info 11)))
       (if (> width 0)
          width
@@ -10503,9 +10502,7 @@ If FACE is nil or omitted, the default face is used.  If FACE is
 remapped (see `face-remapping-alist'), the function returns the
 information for the remapped face."
   (with-selected-window (window-normalize-window window t)
-    (let* ((face (if face face 'default))
-          (info (font-info (face-font face))))
-      (aref info 3))))
+    (aref (font-info (face-font (or face 'default))) 3)))
 
 (defun window-max-characters-per-line (&optional window face)
   "Return the number of characters that can be displayed on one line in WINDOW.