emacs/lisp/printing.el

12 (defconst pr-version "6.8.4"
22 ;; the terms of the GNU General Public License as published by the Free
23 ;; Software Foundation; either version 2, or (at your option) any later
24 ;; version.
202 ;;         set, as they are implicit set by `pr-ps-printer-alist' and
282 ;;    pages per sheet (-twoup).  The printer B declaration does the same as the
287 ;;    -mono	Render in monochrome as 1bit/pixel (only black and white).
288 ;;    -grey	Render in greyscale as 8bits/pixel.
289 ;;    -color	Render in color as 24bits/pixel.
500 ;; `pr-path-style'		Specify which path style to use for external
695 ;;	 as argument.  This option is disabled if spooling is on (option 16).
732 ;;    2. Operate the same way as option 1, but it sends directly the PostScript
816 ;;	  as a PostScript filter, you don't need to turn on this option.
1006 ;;    - `pr-path-style' variable.
1032 (and (string< ps-print-version "6.6.4")
1033      (error "`printing' requires `ps-print' package version 6.6.4 or later"))
1179   :version "20"
1184 (defcustom pr-path-style
1189   "*Specify which path style to use for external commands.
1193    windows	Windows 9x/NT style (\\)
1195    unix		Unix style (/)"
1196   :type '(choice :tag "Path style"
1199   :version "20"
1208   "Replace unix-style directory separator character with dos/windows one."
1210   (if (eq pr-path-style 'windows)
1216   "Replace dos/windows-style directory separator character with unix one."
1218   (if (eq pr-path-style 'windows)
1225 That is, if Emacs is running on DOS/Windows, ensure dos/windows-style directory
1226 separator; otherwise, ensure unix-style directory separator."
1311   :version "20"
1326   :version "20"
1370 		specially, using NAME as the destination for output; any other
1372 		is given as the last argument.
1381 SWITCHES	List of sexp's to pass as extra options for text printer
1459   :version "20"
1474   :version "20"
1523 		specially, using NAME as the destination for output; any other
1525 		is given as the last argument.
1536 SWITCHES	List of sexp's to pass as extra options for PostScript printer
1658 per sheet (-twoup).  The printer B declaration does the same as the printer A
1663    -mono	Render in monochrome as 1bit/pixel (only black and white).
1664    -grey	Render in greyscale as 8bits/pixel.
1665    -color	Render in color as 24bits/pixel.
1747   :version "20"
1756      (file-name-as-directory
1766   :version "20"
1775   :version "21"
1779 ;; It uses 0600 as default instead of (default-file-modes).
1789   :version "21.3"
1831   :version "20"
1858   :version "20"
1886      located in the same directory as gswin32.exe.
1901   :version "20"
1918   :version "20"
1932   :version "20"
1942 In GNU or Unix system, if ghostscript is set as a PostScript filter, this
1945   :version "20"
1952   :version "20"
1959   :version "20"
1966   :version "20"
1973   :version "20"
1985   :version "20"
1998   :version "20"
2010   :version "20"
2211   :version "20"
2229   :version "20"
2273 MUST-SWITCHES	List of sexp's to pass as options to the PostScript utility
2318 SWITCHES	List of sexp's to pass as extra options to the PostScript utility
2442   :version "20"
2451   :version "20"
2467   :version "20"
2483   :version "20"
2600   :version "20"
2654   :version "20"
2666   :version "20"
2673 That is, any subdirectories (and the superdirectory) of the directory (given as
2674 argument of functions below) are also printed (as dired-mode listings).
2680   :version "20"
2689   :version "20"
2703   :version "20"
2712   :version "20"
2726   "List of sexp's to pass as extra options to the text printer program.
2741   "List of sexp's to pass as extra options to the PostScript printer program.
2877 	 :style toggle :selected pr-file-landscape
2882 	 :style toggle :selected pr-file-duplex
2887 	 :style toggle :selected pr-file-tumble
2939 	 :style toggle :selected pr-file-landscape
2944 	 :style toggle :selected pr-file-duplex
2949 	 :style toggle :selected pr-file-tumble
2982        :style toggle :selected ps-landscape-mode
2985        :style toggle :selected ps-print-header
2988        :style toggle :selected ps-print-header-frame :active ps-print-header
2991        :style toggle :selected ps-line-number
2994        :style toggle :selected ps-zebra-stripes
2997        :style toggle :selected ps-spool-duplex
3000        :style toggle :selected ps-spool-tumble :active ps-spool-duplex
3003        :style toggle :selected ps-print-upside-down
3009 	:style radio :selected (eq ps-even-or-odd-pages nil)]
3011 	:style radio :selected (eq ps-even-or-odd-pages 'even-page)]
3013 	:style radio :selected (eq ps-even-or-odd-pages 'odd-page)]
3015 	:style radio :selected (eq ps-even-or-odd-pages 'even-sheet)]
3017 	:style radio :selected (eq ps-even-or-odd-pages 'odd-sheet)])
3020        :style toggle :selected pr-spool-p
3025        :style toggle :selected pr-faces-p
3030        :style toggle :selected pr-print-using-ghostscript
3036        :style toggle :selected pr-auto-region
3039        :style toggle :selected pr-auto-mode
3042        :style toggle :selected pr-menu-lock
3089      ((< emacs-major-version 21)
3098       (let ((menu-file (if (= emacs-major-version 21)
3151   (concat "printing.el version " pr-version
3152 	  "    ps-print.el version " ps-print-version
3210       as argument.  This option is disabled if spooling is on (option 16).
3245    2. Operate the same way as option 1, but it sends directly the PostScript
3329        as a PostScript filter, you don't need to turn on this option.
3364   (concat "printing.el version " pr-version
3365 	  "    ps-print.el version " ps-print-version
3367 The printing interface buffer has the same functionality as the printing menu.
3389 	 so you can turn on/off, as you wish.
3397 	 for major mode processing, so you can turn on/off, as you wish.
3452       If spooling is on, you can turn it on/off, as you wish.
3568 	 as a PostScript filter, you don't need to turn on this option.
3625 FILE(name)-REGEXP.  The argument FILENAME is treated as follows: if it's nil,
3651 FILE(name)-REGEXP.  The argument FILENAME is treated as follows: if it's nil,
3677 FILE(name)-REGEXP.  The argument FILENAME is treated as follows: if it's nil,
3705 FILE(name)-REGEXP.  The argument FILENAME is treated as follows: if it's nil,
3729 argument FILENAME is treated as follows: if it's nil, save the image in a
3748 argument FILENAME is treated as follows: if it's nil, send the image to the
3767 argument FILENAME is treated as follows: if it's nil, send the image to the
3788 argument FILENAME is treated as follows: if it's nil, send the image to the
3998 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
4016 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
4035 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
4055 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
4153 argument IFILENAME is treated as follows: if it's t, prompts for an input
4155 PostScript file name.  The argument OFILENAME is treated as follows: if it's
4410 zero and the argument SELECT is treated as follows:
4434 Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode'
4474 Noninteractively, the argument SELECT-PRINTER is treated as follows:
4484 Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode'
4515       (concat "\n;;; printing.el version " pr-version "\n")
4517       (ps-comment-string "emacs-version       " emacs-version)
4531       '(14 . pr-path-style)
4595       (ps-comment-string "emacs-version" emacs-version)
4989 		:style 'radio
5739     (file-name-as-directory dir)))
5969 			      (concat (file-name-as-directory path)
6011 (defvar pr-i-ps-as-is   t)
6057   (let ((versions (concat "printing v" pr-version
6058 			  "    ps-print v" ps-print-version)))
6206   (pr-insert-toggle 'pr-i-ps-as-is " No Preprocessing"))
6477       (let ((outfile (or (and (eq pr-i-process 'file) pr-i-ps-as-is)
6494 		(pr-i-ps-as-is