From b32631c868235afa96bd3c25a7c3dfde75edbdf5 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 21 Mar 2000 00:31:38 +0000 Subject: [PATCH] (read-face-font): Fix TABLE arg to completing-read. (describe-face): Include `font' attribute in the description. --- lisp/faces.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 4bdc107275..a7aad7f8e7 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -897,8 +897,8 @@ 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 "Set font attributes of face %s from font: " - face (x-list-fonts "*" nil frame)))) + (completing-read (format "Set font attributes of face %s from font: " face) + (mapcar 'list (x-list-fonts "*" nil frame))))) (defun read-all-face-attributes (face &optional frame) @@ -1036,7 +1036,8 @@ If FRAME is omitted or nil, use the selected frame." (:strike-through . "Strike-through") (:box . "Box") (:inverse-video . "Inverse") - (:stipple . "Stipple"))) + (:stipple . "Stipple") + (:font . "Font or fontset"))) (max-width (apply #'max (mapcar #'(lambda (x) (length (cdr x))) attrs)))) (with-output-to-temp-buffer "*Help*" -- 2.39.2