diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-02 02:57:42 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-02 02:57:42 +0000 |
| commit | 35378a097bac5d5f5e9b6fc5049e1d3bddb4c815 (patch) | |
| tree | 50e8bf978fc12056ee01f5533614d79cf62c521e /lisp/ps-print.el | |
| parent | a0d809f20e7582b84bf6ecfa54bd281e63be57a5 (diff) | |
| download | emacs-35378a097bac5d5f5e9b6fc5049e1d3bddb4c815.tar.gz | |
(ps-print-background-image): Fix customize type.
(ps-print-background-text): Likewise.
(ps-show-n-of-n): Doc fix.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 27 |
1 files changed, 24 insertions, 3 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 7a5a74d3ed3..f358e69d0d1 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -916,7 +916,17 @@ PostScript programming that returns a float or integer value. 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 @@ PostScript programming that returns a float or integer value. 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 @@ customizable by changing variables `ps-left-header' and (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) |