mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(read-face-font): Fix TABLE arg to completing-read.

Browse Source 
(describe-face): Include `font' attribute in the description.
This commit is contained in:
Kenichi Handa 2000-03-21 00:31:38 +00:00
parent 91e947ce52
commit b32631c868
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/faces.el
View File

@ -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*"