Mercurial > emacs
changeset 23273:519bc559e950
(ps-font-info-database): Add missing dots in value.
Improve layout of customize type.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Fri, 18 Sep 1998 09:19:47 +0000 |
| parents | 7e4879a1cb2d |
| children | 0c30ca946dba |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 14 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-print.el Fri Sep 18 09:18:40 1998 +0000 +++ b/lisp/ps-print.el Fri Sep 18 09:19:47 1998 +0000 @@ -1335,7 +1335,7 @@ (size . 10.0) (line-height . 11.0) (space-width . 2.5) - (avg-char-width 4.71432)) + (avg-char-width . 4.71432)) (Palatino (fonts (normal . "Palatino-Roman") (bold . "Palatino-Bold") @@ -1360,7 +1360,7 @@ (italic . "NewCenturySchlbk-Italic") (bold-italic . "NewCenturySchlbk-BoldItalic")) (size . 10.0) - (line-height 12.15) + (line-height . 12.15) (space-width . 2.78) (avg-char-width . 5.31162)) ;; got no bold for the next ones @@ -1426,20 +1426,26 @@ You can get all the fonts of YOUR printer using `ReportAllFontInfo'." :type '(repeat (list :tag "Font Definition" (symbol :tag "Font Family") - (cons (const fonts) - (repeat (cons (choice (const normal) + (cons :format "%v" + (const :format "" fonts) + (repeat :tag "Faces" + (cons (choice (const normal) (const bold) (const italic) (const bold-italic) (symbol :tag "Face")) (string :tag "Font Name")))) - (cons (const size) + (cons :format "%v" + (const :format "" size) (number :tag "Reference Size")) - (cons (const line-height) + (cons :format "%v" + (const :format "" line-height) (number :tag "Line Height")) - (cons (const space-width) + (cons :format "%v" + (const :format "" space-width) (number :tag "Space Width")) - (cons (const avg-char-width) + (cons :format "%v" + (const :format "" avg-char-width) (number :tag "Average Character Width")))) :group 'ps-print-font)