39 |
(defvar gs-options |
(defvar gs-options |
40 |
'("-q" |
'("-q" |
41 |
;"-dNOPAUSE" |
;"-dNOPAUSE" |
42 |
|
"-dSAFER" |
43 |
"-dBATCH" |
"-dBATCH" |
44 |
"-sDEVICE=<device>" |
"-sDEVICE=<device>" |
45 |
"<file>") |
"<file>") |
46 |
"List of command line arguments to pass to Ghostscript. |
"List of command line arguments to pass to Ghostscript. |
47 |
Arguments may contain place-holders `<file>' for the name of the |
Arguments may contain place-holders `<file>' for the name of the |
48 |
input file, and `<device>' for the device to use.") |
input file, and `<device>' for the device to use.") |
49 |
|
(put 'gs-options 'risky-local-variable t) |
50 |
|
|
51 |
(defun gs-options (device file) |
(defun gs-options (device file) |
52 |
"Return a list of command line options with place-holders replaced. |
"Return a list of command line options with place-holders replaced. |
57 |
option (replace-regexp-in-string "<file>" file option))) |
option (replace-regexp-in-string "<file>" file option))) |
58 |
gs-options)) |
gs-options)) |
59 |
|
|
|
|
|
60 |
;; The GHOSTVIEW property (taken from gv 3.5.8). |
;; The GHOSTVIEW property (taken from gv 3.5.8). |
61 |
;; |
;; |
62 |
;; Type: |
;; Type: |