diff options
| author | Andreas Schwab <schwab@suse.de> | 1998-09-18 09:19:47 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1998-09-18 09:19:47 +0000 |
| commit | 334cc3b71bb3c203fe48eba606d60438dcf92fd4 (patch) | |
| tree | d35d943e3ae2e0229179d23751e2e8e6d71c29b0 /lisp/ps-print.el | |
| parent | d2ef1f623995abc1ca1e04513f136e4f29e51bd7 (diff) | |
| download | emacs-334cc3b71bb3c203fe48eba606d60438dcf92fd4.tar.gz | |
(ps-font-info-database): Add missing dots in value.
Improve layout of customize type.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index a44cfbee235..78f33149494 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -1335,7 +1335,7 @@ the left on even-numbered pages." (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 @@ the left on even-numbered pages." (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 @@ To get the info for another specific font (say Helvetica), do the following: 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) |