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/facemenu.el | |
parent | 562c6ee9450073547ae45e88116cfc213c2254e0 (diff) |
faces.el (read-face-name): Do not override value of arg default, call instead face-at-point
Diffstat (limited to 'lisp/facemenu.el')
-rw-r--r-- | lisp/facemenu.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 9a66edd28fc..eb4554585a8 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -329,7 +329,7 @@ This command can also add FACE to the menu of faces, if `facemenu-listed-faces' says to do that." (interactive (list (progn (barf-if-buffer-read-only) - (read-face-name "Use face")) + (read-face-name "Use face" (face-at-point t))) (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) |