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/face-remap.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/face-remap.el')
| -rw-r--r-- | lisp/face-remap.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/face-remap.el b/lisp/face-remap.el index f1efc3727f5..b620d01d83e 100644 --- a/lisp/face-remap.el +++ b/lisp/face-remap.el @@ -378,7 +378,7 @@ one face is listed, that specifies an aggregate face, like in a This function makes the variable `buffer-face-mode-face' buffer local, and sets it to FACE." - (interactive (list (read-face-name "Set buffer face"))) + (interactive (list (read-face-name "Set buffer face" (face-at-point t)))) (while (and (consp specs) (null (cdr specs))) (setq specs (car specs))) (if (null specs) |