Mercurial > emacs

changeset 31197:39d437913f44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-face-font, read-face-and-attribute): Tweak prompts.
author Miles Bader <miles@gnu.org>
date Sun, 27 Aug 2000 02:04:26 +0000
parents 28b5eff78c33
children ce9e93f8341e
files lisp/faces.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sun Aug 27 02:04:17 2000 +0000
+++ b/lisp/faces.el	Sun Aug 27 02:04:26 2000 +0000
@@ -920,7 +920,7 @@
   "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 @@
 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)))