Commit 3247de96 authored by Dave Love's avatar Dave Love
Browse files

(internal-face-interactive): Update prompt for new read-face-name.

parent 32e33f60
......@@ -783,8 +783,8 @@ See the documentation of `create-fontset-from-fontset-spec for the format.")
(defun internal-face-interactive (what &optional bool)
(let* ((fn (intern (concat "face-" what)))
(prompt (concat "Set " what " of face"))
(face (read-face-name (concat prompt ": ")))
(prompt (concat "Set " what " of face "))
(face (read-face-name prompt))
(default (if (fboundp fn)
(or (funcall fn face (selected-frame))
(funcall fn 'default (selected-frame)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment