(lpr-page-header-switches, print-region-1): Undo 2000-07-06 change.

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 113e991f5e9fb694a7a7d278894bbfd1531831fd..3188e96d76333e77504270e937cba1142b12fdc2 100644 (file)
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -139,7 +139,7 @@ See definition of `print-region-1' for calling conventions."
 
 ;; Berkeley systems support -F, and GNU pr supports both -f and -F,
 ;; So it looks like -F is a better default.
-(defcustom lpr-page-header-switches '("-h" "-F")
+(defcustom lpr-page-header-switches '("-F")
   "*List of strings to use as options for the page-header-generating program.
 The variable `lpr-page-header-program' specifies the program to use."
   :type '(repeat string)
@@ -242,7 +242,8 @@ for further customization of the printer command."
            (let ((new-coords (print-region-new-buffer start end)))
              (apply 'call-process-region (car new-coords) (cdr new-coords)
                     lpr-page-header-program t t nil
-                    lpr-page-header-switches))
+                    (nconc (list "-h" title)
+                           lpr-page-header-switches)))
            (setq start (point-min)
                  end   (point-max))))
       (apply (or print-region-function 'call-process-region)