# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 906110387 0
# Node ID 519bc559e95050d566befd9b21347c4d07e04113
# Parent  7e4879a1cb2d242cb32f2c8ad64a7ea5a8811879
(ps-font-info-database): Add missing dots in value.
Improve layout of customize type.

diff -r 7e4879a1cb2d -r 519bc559e950 lisp/ps-print.el
--- 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)