diff options
| author | Roland Winkler <winkler@gnu.org> | 2013-04-12 20:10:09 -0500 |
|---|---|---|
| committer | Roland Winkler <winkler@gnu.org> | 2013-04-12 20:10:09 -0500 |
| commit | 011cddd649d81956ce13b9325b059dac78e61c4d (patch) | |
| tree | 885af8748b9a77e0ec7ad220ac3969337f15fd67 /lisp/cus-edit.el | |
| parent | 562c6ee9450073547ae45e88116cfc213c2254e0 (diff) | |
| download | emacs-011cddd649d81956ce13b9325b059dac78e61c4d.tar.gz | |
faces.el (read-face-name): Do not override value of arg default, call instead face-at-point
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index d19e2ded00c..ac9408b1081 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1319,7 +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))) + (interactive (list (read-face-name "Customize face" + (or (face-at-point t t) "all faces") t))) (if (member face '(nil "")) (setq face (face-list))) (if (and (listp face) (null (cdr face))) @@ -1350,7 +1351,8 @@ 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" + (or (face-at-point t t) "all faces") t))) (customize-face face t)) (defalias 'customize-customized 'customize-unsaved) |