1 files changed, 2 insertions, 6 deletions

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 1ff07c4c361..e3134e8f1ea 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -39,15 +39,11 @@
     (when (fboundp 'facep)
       (unless (facep face)
         ;; If the user has already created the face, respect that.
-        (let ((value (or (get face 'saved-face) spec))
-              (frames (frame-list))
-              frame)
+        (let ((value (or (get face 'saved-face) spec)))
           ;; Create global face.
           (make-empty-face face)
           ;; Create frame-local faces
-          (while frames
-            (setq frame (car frames)
-                  frames (cdr frames))
+          (dolist (frame (frame-list))
             (face-spec-set face value frame)))
         ;; When making a face after frames already exist
         (if (memq window-system '(x w32))