Mercurial > emacs
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. |