974 |
|
|
975 |
|
|
976 |
(and (string< ps-print-version "6.6.4") |
(and (string< ps-print-version "6.6.4") |
977 |
(error "`printing' requires `ps-print' package version 6.6.4 or later.")) |
(error "`printing' requires `ps-print' package version 6.6.4 or later")) |
978 |
|
|
979 |
|
|
980 |
(eval-and-compile |
(eval-and-compile |
4254 |
(pr-ps-buffer-ps-print |
(pr-ps-buffer-ps-print |
4255 |
(if (integerp n-up) |
(if (integerp n-up) |
4256 |
(min (max n-up 1) 100) |
(min (max n-up 1) 100) |
4257 |
(error "n-up must be an integer greater than zero.")) |
(error "n-up must be an integer greater than zero")) |
4258 |
filename))) |
filename))) |
4259 |
|
|
4260 |
|
|
5031 |
(let ((item (cdr (assq value pr-ps-utility-alist)))) |
(let ((item (cdr (assq value pr-ps-utility-alist)))) |
5032 |
(or item |
(or item |
5033 |
(error |
(error |
5034 |
"Invalid PostScript utility name `%s' for variable `pr-ps-utility'." |
"Invalid PostScript utility name `%s' for variable `pr-ps-utility'" |
5035 |
value)) |
value)) |
5036 |
(setq pr-ps-utility value) |
(setq pr-ps-utility value) |
5037 |
(pr-eval-alist (nthcdr 9 item))) |
(pr-eval-alist (nthcdr 9 item))) |
5042 |
(let ((ps (cdr (assq value pr-ps-printer-alist)))) |
(let ((ps (cdr (assq value pr-ps-printer-alist)))) |
5043 |
(or ps |
(or ps |
5044 |
(error |
(error |
5045 |
"Invalid PostScript printer name `%s' for variable `pr-ps-name'." |
"Invalid PostScript printer name `%s' for variable `pr-ps-name'" |
5046 |
value)) |
value)) |
5047 |
(setq pr-ps-name value |
(setq pr-ps-name value |
5048 |
pr-ps-command (pr-dosify-file-name (nth 0 ps)) |
pr-ps-command (pr-dosify-file-name (nth 0 ps)) |
5068 |
(defun pr-txt-set-printer (value) |
(defun pr-txt-set-printer (value) |
5069 |
(let ((txt (cdr (assq value pr-txt-printer-alist)))) |
(let ((txt (cdr (assq value pr-txt-printer-alist)))) |
5070 |
(or txt |
(or txt |
5071 |
(error "Invalid text printer name `%s' for variable `pr-txt-name'." |
(error "Invalid text printer name `%s' for variable `pr-txt-name'" |
5072 |
value)) |
value)) |
5073 |
(setq pr-txt-name value |
(setq pr-txt-name value |
5074 |
pr-txt-command (pr-dosify-file-name (nth 0 txt)) |
pr-txt-command (pr-dosify-file-name (nth 0 txt)) |
5121 |
(setq global nil))) |
(setq global nil))) |
5122 |
(and inherits |
(and inherits |
5123 |
(if (memq inherits old) |
(if (memq inherits old) |
5124 |
(error "Circular inheritance for `%S'." inherits) |
(error "Circular inheritance for `%S'" inherits) |
5125 |
(setq local-list |
(setq local-list |
5126 |
(pr-eval-setting-alist inherits global |
(pr-eval-setting-alist inherits global |
5127 |
(cons inherits old))))) |
(cons inherits old))))) |
5349 |
|
|
5350 |
(defun pr-switches (switches mess) |
(defun pr-switches (switches mess) |
5351 |
(or (listp switches) |
(or (listp switches) |
5352 |
(error "%S should have a list of strings." mess)) |
(error "%S should have a list of strings" mess)) |
5353 |
(ps-flatten-list ; dynamic evaluation |
(ps-flatten-list ; dynamic evaluation |
5354 |
(mapcar 'ps-eval-switch switches))) |
(mapcar 'ps-eval-switch switches))) |
5355 |
|
|