diff options
| author | Karl Heuer | 1997-11-19 04:25:20 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-11-19 04:25:20 +0000 |
| commit | 887bbf181d84912e57d1ad0f208a7e3fcde6ba49 (patch) | |
| tree | 4365b2ed8d322b006e88701675acf4990361a21a | |
| parent | 240e9cda7d93f1f2dce293b0d10ab9552176bc09 (diff) | |
| download | emacs-887bbf181d84912e57d1ad0f208a7e3fcde6ba49.tar.gz emacs-887bbf181d84912e57d1ad0f208a7e3fcde6ba49.zip | |
(print-region-1): When running pr, use -h always.
| -rw-r--r-- | lisp/lpr.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index 3b8e2d88255..40f9d81b697 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el | |||
| @@ -157,8 +157,7 @@ The variable `lpr-page-header-program' specifies the program to use." | |||
| 157 | (setq start (car new-coords) end (cdr new-coords))) | 157 | (setq start (car new-coords) end (cdr new-coords))) |
| 158 | (apply 'call-process-region start end lpr-page-header-program | 158 | (apply 'call-process-region start end lpr-page-header-program |
| 159 | t t nil | 159 | t t nil |
| 160 | (nconc (and lpr-add-switches | 160 | (nconc (list "-h" title) |
| 161 | (list "-h" title)) | ||
| 162 | lpr-page-header-switches)) | 161 | lpr-page-header-switches)) |
| 163 | (setq start (point-min) end (point-max)))) | 162 | (setq start (point-min) end (point-max)))) |
| 164 | (apply (or print-region-function 'call-process-region) | 163 | (apply (or print-region-function 'call-process-region) |