From 48ec993922c673c39dc7758b0b410d40cb529068 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sun, 27 Aug 2000 02:04:26 +0000 Subject: [PATCH] (read-face-font, read-face-and-attribute): Tweak prompts. --- lisp/faces.el | 4 ++-- 1 file 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))) -- 2.39.2