Recent read-face patch breaks `M-x customize-face'

[Giorgos Keramidas]

Hi all,

I noticed that `M-x customize-face' triggers an error in a recent build
of Emacs trunk, and managed to track this backtrace:

Debugger entered--Lisp error: (wrong-type-argument sequencep 97)
  mapconcat((lambda (f) (if (symbolp f) (symbol-name f) f)) "all faces" ", ")
  (setq default (mapconcat (function (lambda (f) (if (symbolp f) (symbol-name 
f) f))) default ", "))
  (if default (setq default (mapconcat (function (lambda (f) (if (symbolp f) 
(symbol-name f) f))) defau$
  read-face-name("Customize face" "all faces" t)
  (list (read-face-name "Customize face" "all faces" t))
  call-interactively(customize-face record nil)
  command-execute(customize-face record)
  execute-extended-command(nil "customize-face")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)

To the changes of this commit:

commit 605625d262e5e4bf996691027c755c65061492b1
Author: Roland Winkler <address@hidden>
Date:   Wed Apr 3 21:12:25 2013 -0500

    lisp/faces.el (read-face-name): Behave as promised by the docstring.

| diff --git a/lisp/ChangeLog b/lisp/ChangeLog
| index 2b86faf..7ee201a 100644
| --- a/lisp/ChangeLog
| +++ b/lisp/ChangeLog
| @@ -1,3 +1,9 @@
| +2013-04-04  Roland Winkler  <address@hidden>
| +
| +       * faces.el (read-face-name): Behave as promised by the docstring.
| +       Assume that arg default is a list of faces.
| +       (describe-face): Call read-face-name with list of default faces.
| +
|  2013-04-04  Thierry Volpiatto  <address@hidden>
|
|         * bookmark.el: Fix deletion of bookmarks (bug#13972).

Does customize-face depend on some bogus assumption that this commit
has now rendered broken??