From 887bbf181d84912e57d1ad0f208a7e3fcde6ba49 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 19 Nov 1997 04:25:20 +0000 Subject: [PATCH] (print-region-1): When running pr, use -h always. --- lisp/lpr.el | 3 +-- 1 file changed, 1 insertion(+), 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) -- 2.39.2