Mercurial > emacs
comparison lisp/faces.el @ 28214:73c16c6e401e
(read-face-font): Fix TABLE arg to completing-read.
(describe-face): Include `font' attribute in the description.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 21 Mar 2000 00:31:38 +0000 |
parents | 0ffb33d1514a |
children | d0531e35d9f2 |
comparison
equal
deleted
inserted
replaced
28213:2851f83ea432 | 28214:73c16c6e401e |
---|---|
895 | 895 |
896 (defun read-face-font (face &optional frame) | 896 (defun read-face-font (face &optional frame) |
897 "Read the name of a font for FACE on FRAME. | 897 "Read the name of a font for FACE on FRAME. |
898 If optional argument FRAME Is nil or omitted, use the selected frame." | 898 If optional argument FRAME Is nil or omitted, use the selected frame." |
899 (let ((completion-ignore-case t)) | 899 (let ((completion-ignore-case t)) |
900 (completing-read "Set font attributes of face %s from font: " | 900 (completing-read (format "Set font attributes of face %s from font: " face) |
901 face (x-list-fonts "*" nil frame)))) | 901 (mapcar 'list (x-list-fonts "*" nil frame))))) |
902 | 902 |
903 | 903 |
904 (defun read-all-face-attributes (face &optional frame) | 904 (defun read-all-face-attributes (face &optional frame) |
905 "Interactively read all attributes for FACE. | 905 "Interactively read all attributes for FACE. |
906 If optional argument FRAME Is nil or omitted, use the selected frame. | 906 If optional argument FRAME Is nil or omitted, use the selected frame. |
1034 (:underline . "Underline") | 1034 (:underline . "Underline") |
1035 (:overline . "Overline") | 1035 (:overline . "Overline") |
1036 (:strike-through . "Strike-through") | 1036 (:strike-through . "Strike-through") |
1037 (:box . "Box") | 1037 (:box . "Box") |
1038 (:inverse-video . "Inverse") | 1038 (:inverse-video . "Inverse") |
1039 (:stipple . "Stipple"))) | 1039 (:stipple . "Stipple") |
1040 (:font . "Font or fontset"))) | |
1040 (max-width (apply #'max (mapcar #'(lambda (x) (length (cdr x))) | 1041 (max-width (apply #'max (mapcar #'(lambda (x) (length (cdr x))) |
1041 attrs)))) | 1042 attrs)))) |
1042 (with-output-to-temp-buffer "*Help*" | 1043 (with-output-to-temp-buffer "*Help*" |
1043 (save-excursion | 1044 (save-excursion |
1044 (set-buffer standard-output) | 1045 (set-buffer standard-output) |