# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 875761062 0
# Node ID d8e290881d8c4ea73f606dcdc1a9b62951342780
# Parent  eb109838909d2c616e07edf6498191747602ce38
(ps-print-background-image): Fix customize type.
(ps-print-background-text): Likewise.
(ps-show-n-of-n): Doc fix.

diff -r eb109838909d -r d8e290881d8c lisp/ps-print.el
--- a/lisp/ps-print.el	Thu Oct 02 02:57:16 1997 +0000
+++ b/lisp/ps-print.el	Thu Oct 02 02:57:42 1997 +0000
@@ -916,7 +916,17 @@
 For example, if you wish to print an EPS image on all pages do:
 
    '((\"~/images/EPS-image.ps\"))"
-  :type 'list
+  :type '(repeat (list file
+		       (choice :tag "X" number string (const nil))
+		       (choice :tag "Y" number string (const nil))
+		       (choice :tag "X Scale" number string (const nil))
+		       (choice :tag "Y Scale" number string (const nil))
+		       (choice :tag "Rotation" number string (const nil))
+		       (repeat :tag "Pages" :inline t
+			       (radio integer
+				      (cons :tag "Range"
+					    (integer :tag "From")
+					    (integer :tag "To"))))))
   :group 'ps-print)
 
 (defcustom ps-print-background-text nil
@@ -954,7 +964,18 @@
 For example, if you wish to print text \"Preliminary\" on all pages do:
 
    '((\"Preliminary\"))"
-  :type 'list
+  :type '(repeat (list string
+		       (choice :tag "X" number string (const nil))
+		       (choice :tag "Y" number string (const nil))
+		       (choice :tag "Font" string (const nil))
+		       (choice :tag "Fontsize" number string (const nil))
+		       (choice :tag "Gray" number string (const nil))
+		       (choice :tag "Rotation" number string (const nil))
+		       (repeat :tag "Pages" :inline t
+			       (radio integer
+				      (cons :tag "Range"
+					    (integer :tag "From")
+					    (integer :tag "To"))))))
   :group 'ps-print)
 
 ;;; Horizontal layout
@@ -1040,7 +1061,7 @@
 (defcustom ps-show-n-of-n t
   "*Non-nil means show page numbers as N/M, meaning page N of M.
 Note: page numbers are displayed as part of headers, see variable
-`ps-print-headers'."
+`ps-print-header'."
   :type 'boolean
   :group 'ps-print-header)