; Fix non-symbol DEFAULT argument handling in 'read-face-name'

This fixes an error in 'hi-lock-read-face-name' that was introduced in
6cd47f59326.

* lisp/faces.el (read-face-name): Fix DEFAULT normalization.

diff --git a/lisp/faces.el b/lisp/faces.el
index a67aa41acc19533a677691800dc00272e121008d..d28839bd538242961eda06f232ce02b27838f754 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1178,7 +1178,9 @@ this function returns only the first face name and ignores
 everything after the first separator, but if optional argument
 MULTIPLE is non-nil, this function returns all of the face names
 in your input as a list of face names."
-  (let* ((default (when default (symbol-name default)))
+  (let* ((default (mapcar
+                   (lambda (d) (if (and d (symbolp d)) (symbol-name d) d))
+                   (ensure-list default)))
          (faces
           (mapcar #'intern
                   (completing-read-multiple