emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Giorgos Keramidas
Subject: Re: Recent read-face patch breaks `M-x customize-face'
Date: Fri, 5 Apr 2013 21:04:30 +0200

On 2013-04-05 14:00, Roland Winkler <address@hidden> wrote:
> On Fri Apr 5 2013 Roland Winkler wrote:
> > So I guess the best fix is to replace "all faces" by nil.
>
> ...both for customize-face and customize-face-other-window.

Correct.  This fixes `M-x customize-face' in trunk.  Thanks!

===========================================================================
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index d19e2de..b82c67b 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1319,7 +1319,7 @@ 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)))
+  (interactive (list (read-face-name "Customize face" nil t)))
   (if (member face '(nil ""))
       (setq face (face-list)))
   (if (and (listp face) (null (cdr face)))
@@ -1350,7 +1350,7 @@ If FACE is actually a face-alias, customize the face it 
is aliased to.
 
 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)))
+  (interactive (list (read-face-name "Customize face" nil t)))
   (customize-face face t))
 
 (defalias 'customize-customized 'customize-unsaved)
===========================================================================



reply via email to

[Prev in Thread] Current Thread [Next in Thread]