diff options
| -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) |