diff options
| author | Miles Bader <miles@gnu.org> | 2000-08-27 02:04:26 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2000-08-27 02:04:26 +0000 |
| commit | 48ec993922c673c39dc7758b0b410d40cb529068 (patch) | |
| tree | cf6005e962a1e9cd2ab7543f2c83c1032ff94829 | |
| parent | c9ef1229a7495d60ee383021dab4f845b4133ecb (diff) | |
| download | emacs-48ec993922c673c39dc7758b0b410d40cb529068.tar.gz | |
(read-face-font, read-face-and-attribute): Tweak prompts.
| -rw-r--r-- | lisp/faces.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 63a48e35891..c95a8ef831d 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -920,7 +920,7 @@ of a global face. Value is the new attribute value." "Read the name of a font for FACE on FRAME. If optional argument FRAME Is nil or omitted, use the selected frame." (let ((completion-ignore-case t)) - (completing-read (format "Set font attributes of face %s from font: " face) + (completing-read (format "Set font attributes of face `%s' from font: " face) (mapcar 'list (x-list-fonts "*" nil frame))))) @@ -952,7 +952,7 @@ FRAME nil or unspecified means read attribute value of global face. Value is a list (FACE NEW-VALUE) where FACE is the face read (a symbol), and NEW-VALUE is value read." (cond ((eq attribute :font) - (let* ((prompt (format "Set font-related attributes of face ")) + (let* ((prompt "Set font-related attributes of face") (face (read-face-name prompt)) (font (read-face-font face frame))) (list face font))) |