comparison lisp/ps-print.el @ 20019:d8e290881d8c

(ps-print-background-image): Fix customize type. (ps-print-background-text): Likewise. (ps-show-n-of-n): Doc fix.
author Karl Heuer <kwzh@gnu.org>
date Thu, 02 Oct 1997 02:57:42 +0000
parents 87952270ceeb
children 39baaa9c5980
comparison
equal deleted inserted replaced
20018:eb109838909d 20019:d8e290881d8c
914 PostScript programming that returns a float or integer value. 914 PostScript programming that returns a float or integer value.
915 915
916 For example, if you wish to print an EPS image on all pages do: 916 For example, if you wish to print an EPS image on all pages do:
917 917
918 '((\"~/images/EPS-image.ps\"))" 918 '((\"~/images/EPS-image.ps\"))"
919 :type 'list 919 :type '(repeat (list file
920 (choice :tag "X" number string (const nil))
921 (choice :tag "Y" number string (const nil))
922 (choice :tag "X Scale" number string (const nil))
923 (choice :tag "Y Scale" number string (const nil))
924 (choice :tag "Rotation" number string (const nil))
925 (repeat :tag "Pages" :inline t
926 (radio integer
927 (cons :tag "Range"
928 (integer :tag "From")
929 (integer :tag "To"))))))
920 :group 'ps-print) 930 :group 'ps-print)
921 931
922 (defcustom ps-print-background-text nil 932 (defcustom ps-print-background-text nil
923 "*Text list to be printed on background. 933 "*Text list to be printed on background.
924 934
952 PostScript programming that returns a float or integer value. 962 PostScript programming that returns a float or integer value.
953 963
954 For example, if you wish to print text \"Preliminary\" on all pages do: 964 For example, if you wish to print text \"Preliminary\" on all pages do:
955 965
956 '((\"Preliminary\"))" 966 '((\"Preliminary\"))"
957 :type 'list 967 :type '(repeat (list string
968 (choice :tag "X" number string (const nil))
969 (choice :tag "Y" number string (const nil))
970 (choice :tag "Font" string (const nil))
971 (choice :tag "Fontsize" number string (const nil))
972 (choice :tag "Gray" number string (const nil))
973 (choice :tag "Rotation" number string (const nil))
974 (repeat :tag "Pages" :inline t
975 (radio integer
976 (cons :tag "Range"
977 (integer :tag "From")
978 (integer :tag "To"))))))
958 :group 'ps-print) 979 :group 'ps-print)
959 980
960 ;;; Horizontal layout 981 ;;; Horizontal layout
961 982
962 ;; ------------------------------------------ 983 ;; ------------------------------------------
1038 (make-variable-buffer-local 'ps-header-lines) 1059 (make-variable-buffer-local 'ps-header-lines)
1039 1060
1040 (defcustom ps-show-n-of-n t 1061 (defcustom ps-show-n-of-n t
1041 "*Non-nil means show page numbers as N/M, meaning page N of M. 1062 "*Non-nil means show page numbers as N/M, meaning page N of M.
1042 Note: page numbers are displayed as part of headers, see variable 1063 Note: page numbers are displayed as part of headers, see variable
1043 `ps-print-headers'." 1064 `ps-print-header'."
1044 :type 'boolean 1065 :type 'boolean
1045 :group 'ps-print-header) 1066 :group 'ps-print-header)
1046 1067
1047 (defcustom ps-spool-duplex nil ; Not many people have duplex 1068 (defcustom ps-spool-duplex nil ; Not many people have duplex
1048 ; printers, so default to nil. 1069 ; printers, so default to nil.