bug#14181: bug#14184: 24.3.50; customize-face says "read-face-name: Wrong type argument: sequencep, 97"

[Tassilo Horn]

merge 14184 14181

> A recent change to read-face-name means that typing M-x customize-face
> gives the error "Wrong type argument: sequencep, 97".

Already reported as bug#14181, but without the fix, so thanks.  (Not
sure if that merging thing above is actually the right syntax...)

> This change seems to fix it:
>
> diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
> index d19e2de..46c2009 100644
> --- a/lisp/cus-edit.el
> +++ b/lisp/cus-edit.el
> @@ -1319,8 +1319,8 @@ If OTHER-WINDOW is non-nil, display in another window.
>  
>  Interactively, when point is on text which has a face specified,
>  suggest to customize that face, if it's customizable."
> -  (interactive (list (read-face-name "Customize face" "all faces" t)))
> -  (if (member face '(nil ""))
> +  (interactive (list (read-face-name "Customize face" '("all faces") t)))
> +  (if (member face '(nil "" (all\ faces)))
>        (setq face (face-list)))
>    (if (and (listp face) (null (cdr face)))
>        (setq face (car face)))

Bye,
Tassilo