diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-11-19 04:25:20 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-11-19 04:25:20 +0000 |
| commit | 887bbf181d84912e57d1ad0f208a7e3fcde6ba49 (patch) | |
| tree | 4365b2ed8d322b006e88701675acf4990361a21a /lisp/lpr.el | |
| parent | 240e9cda7d93f1f2dce293b0d10ab9552176bc09 (diff) | |
| download | emacs-887bbf181d84912e57d1ad0f208a7e3fcde6ba49.tar.gz | |
(print-region-1): When running pr, use -h always.
Diffstat (limited to 'lisp/lpr.el')
| -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." (setq start (car new-coords) end (cdr new-coords))) (apply 'call-process-region start end lpr-page-header-program t t nil - (nconc (and lpr-add-switches - (list "-h" title)) + (nconc (list "-h" title) lpr-page-header-switches)) (setq start (point-min) end (point-max)))) (apply (or print-region-function 'call-process-region) |