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

Previous Next

Full log

Message #8 received at 14184 <at> debbugs.gnu.org (full text, mbox):

From: Tassilo Horn <tsdh <at> gnu.org>
To: Magnus Henoch <magnus.henoch <at> gmail.com>
Cc: 14181 <at> debbugs.gnu.org, control <at> debbugs.gnu.org, 14184 <at> debbugs.gnu.org
Subject: Re: bug#14184: 24.3.50;
	customize-face says "read-face-name: Wrong type argument: sequencep,
	97"
Date: Thu, 11 Apr 2013 14:32:19 +0200

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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.