- (format
- "
-;;; ps-print version %s
-
-\(setq ps-print-color-p %s
- ps-lpr-command %S
- ps-lpr-switches %s
- ps-printer-name %S
- ps-print-region-function %s
- ps-manual-feed %S
-
- ps-paper-type %s
- ps-warn-paper-type %s
- ps-landscape-mode %s
- ps-print-upside-down %s
- ps-number-of-columns %s
-
- ps-zebra-stripes %s
- ps-zebra-stripe-height %s
- ps-zebra-stripe-follow %S
- ps-zebra-color %s
- ps-line-number %s
- ps-line-number-step %s
- ps-line-number-start %S
-
- ps-default-fg %s
- ps-default-bg %s
-
- ps-use-face-background %s
-
- ps-print-control-characters %s
-
- ps-print-background-image %s
-
- ps-print-background-text %s
-
- ps-error-handler-message %s
- ps-user-defined-prologue %s
- ps-print-prologue-header %s
-
- ps-left-margin %s
- ps-right-margin %s
- ps-inter-column %s
- ps-bottom-margin %s
- ps-top-margin %s
- ps-header-offset %s
- ps-header-line-pad %s
- ps-print-header %s
- ps-print-only-one-header %s
- ps-print-header-frame %s
- ps-switch-header %s
- ps-header-lines %s
- ps-show-n-of-n %s
- ps-spool-config %s
- ps-spool-duplex %s
- ps-spool-tumble %s
- ps-banner-page-when-duplexing %s
-
- ps-n-up-printing %s
- ps-n-up-margin %s
- ps-n-up-border-p %s
- ps-n-up-filling %s
-
- ps-multibyte-buffer %s
- ps-font-family %s
- ps-font-size %s
- ps-header-font-family %s
- ps-header-font-size %s
- ps-header-title-font-size %s
-
- ps-even-or-odd-pages %s
- ps-selected-pages %s
- ps-last-selected-pages %s)
-
-;;; ps-print - end of settings
-"
- ps-print-version
- ps-print-color-p
- ps-lpr-command
- (ps-print-quote ps-lpr-switches)
- ps-printer-name
- (ps-print-quote ps-print-region-function)
- ps-manual-feed
- (ps-print-quote ps-paper-type)
- ps-warn-paper-type
- ps-landscape-mode
- ps-print-upside-down
- ps-number-of-columns
- ps-zebra-stripes
- ps-zebra-stripe-height
- ps-zebra-stripe-follow
- (ps-print-quote ps-zebra-color)
- ps-line-number
- (ps-print-quote ps-line-number-step)
- ps-line-number-start
- (ps-print-quote ps-default-fg)
- (ps-print-quote ps-default-bg)
- (ps-print-quote ps-use-face-background)
- (ps-print-quote ps-print-control-characters)
- (ps-print-quote ps-print-background-image)
- (ps-print-quote ps-print-background-text)
- (ps-print-quote ps-error-handler-message)
- (ps-print-quote ps-user-defined-prologue)
- (ps-print-quote ps-print-prologue-header)
- ps-left-margin
- ps-right-margin
- ps-inter-column
- ps-bottom-margin
- ps-top-margin
- ps-header-offset
- ps-header-line-pad
- ps-print-header
- ps-print-only-one-header
- ps-print-header-frame
- (ps-print-quote ps-switch-header)
- ps-header-lines
- ps-show-n-of-n
- (ps-print-quote ps-spool-config)
- ps-spool-duplex
- ps-spool-tumble
- ps-banner-page-when-duplexing
- ps-n-up-printing
- ps-n-up-margin
- ps-n-up-border-p
- (ps-print-quote ps-n-up-filling)
- (ps-print-quote ps-multibyte-buffer) ; see `ps-mule.el'
- (ps-print-quote ps-font-family)
- (ps-print-quote ps-font-size)
- (ps-print-quote ps-header-font-family)
- (ps-print-quote ps-header-font-size)
- (ps-print-quote ps-header-title-font-size)
- (ps-print-quote ps-even-or-odd-pages)
- (ps-print-quote ps-selected-pages)
- (ps-print-quote ps-last-selected-pages)))
+ (let (ps-prefix-quote)
+ (mapconcat
+ #'ps-print-quote
+ (list
+ (concat "\n;;; ps-print version " ps-print-version "\n")
+ ";; internal vars"
+ (ps-comment-string "ps-print-emacs-type" ps-print-emacs-type)
+ (ps-comment-string "ps-windows-system " ps-windows-system)
+ (ps-comment-string "ps-lp-system " ps-lp-system)
+ nil
+ '(25 . ps-print-color-p)
+ '(25 . ps-lpr-command)
+ '(25 . ps-lpr-switches)
+ '(25 . ps-printer-name)
+ '(25 . ps-printer-name-option)
+ '(25 . ps-print-region-function)
+ '(25 . ps-manual-feed)
+ '(25 . ps-end-with-control-d)
+ nil
+ '(23 . ps-paper-type)
+ '(23 . ps-warn-paper-type)
+ '(23 . ps-landscape-mode)
+ '(23 . ps-print-upside-down)
+ '(23 . ps-number-of-columns)
+ nil
+ '(23 . ps-zebra-stripes)
+ '(23 . ps-zebra-stripe-height)
+ '(23 . ps-zebra-stripe-follow)
+ '(23 . ps-zebra-color)
+ '(23 . ps-line-number)
+ '(23 . ps-line-number-step)
+ '(23 . ps-line-number-start)
+ nil
+ '(17 . ps-default-fg)
+ '(17 . ps-default-bg)
+ '(17 . ps-razzle-dazzle)
+ nil
+ '(23 . ps-use-face-background)
+ nil
+ '(28 . ps-print-control-characters)
+ nil
+ '(26 . ps-print-background-image)
+ nil
+ '(25 . ps-print-background-text)
+ nil
+ '(29 . ps-error-handler-message)
+ '(29 . ps-user-defined-prologue)
+ '(29 . ps-print-prologue-header)
+ '(29 . ps-postscript-code-directory)
+ '(29 . ps-adobe-tag)
+ nil
+ '(30 . ps-left-margin)
+ '(30 . ps-right-margin)
+ '(30 . ps-inter-column)
+ '(30 . ps-bottom-margin)
+ '(30 . ps-top-margin)
+ '(30 . ps-print-only-one-header)
+ '(30 . ps-switch-header)
+ '(30 . ps-print-header)
+ '(30 . ps-header-lines)
+ '(30 . ps-header-offset)
+ '(30 . ps-header-line-pad)
+ '(30 . ps-print-header-frame)
+ '(30 . ps-header-frame-alist)
+ '(30 . ps-print-footer)
+ '(30 . ps-footer-lines)
+ '(30 . ps-footer-offset)
+ '(30 . ps-footer-line-pad)
+ '(30 . ps-print-footer-frame)
+ '(30 . ps-footer-frame-alist)
+ '(30 . ps-show-n-of-n)
+ '(30 . ps-spool-config)
+ '(30 . ps-spool-duplex)
+ '(30 . ps-spool-tumble)
+ '(30 . ps-banner-page-when-duplexing)
+ '(30 . ps-left-header)
+ '(30 . ps-right-header)
+ '(30 . ps-left-footer)
+ '(30 . ps-right-footer)
+ nil
+ '(23 . ps-n-up-printing)
+ '(23 . ps-n-up-margin)
+ '(23 . ps-n-up-border-p)
+ '(23 . ps-n-up-filling)
+ nil
+ '(26 . ps-multibyte-buffer)
+ '(26 . ps-font-family)
+ '(26 . ps-font-size)
+ '(26 . ps-header-font-family)
+ '(26 . ps-header-font-size)
+ '(26 . ps-header-title-font-size)
+ '(26 . ps-footer-font-family)
+ '(26 . ps-footer-font-size)
+ '(26 . ps-line-number-color)
+ '(26 . ps-line-number-font)
+ '(26 . ps-line-number-font-size)
+ '(26 . ps-line-spacing)
+ '(26 . ps-paragraph-spacing)
+ '(26 . ps-paragraph-regexp)
+ '(26 . ps-begin-cut-regexp)
+ '(26 . ps-end-cut-regexp)
+ nil
+ '(23 . ps-even-or-odd-pages)
+ '(23 . ps-selected-pages)
+ '(23 . ps-last-selected-pages)
+ nil
+ '(31 . ps-build-face-reference)
+ '(31 . ps-always-build-face-reference)
+ nil
+ '(20 . ps-auto-font-detect)
+ '(20 . ps-bold-faces)
+ '(20 . ps-italic-faces)
+ '(20 . ps-underlined-faces)
+ '(20 . ps-black-white-faces)
+ " )\n
+;; The following customized variables have long lists and are seldom modified:
+;; ps-page-dimensions-database
+;; ps-font-info-database
+
+;;; ps-print - end of settings\n")
+ "\n")))