From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 2 Feb 1995 21:12:06 +0000 (+0000)
Subject: (lpr-headers-switches): Default is nil.
X-Git-Tag: emacs-19.34~5221
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7173ec778ed04cb9f0150cc0116d3fb46649d382;p=emacs.git

(lpr-headers-switches): Default is nil.
---

diff --git a/lisp/lpr.el b/lisp/lpr.el
index c5d9bb2205e..bab4e2e5a04 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -42,9 +42,12 @@
       "lp" "lpr")
   "*Name of program for printing a file.")
 
-(defvar lpr-headers-switches
-  (if (equal lpr-command "lpr") '("-p") nil)
-  "*List of strings to use as options for `lpr' to request page headings.")
+;; Default is nil, because that enables us to use pr -f
+;; which is more reliable than pr with no args, which is what lpr -p does.
+(defvar lpr-headers-switches nil
+  "*List of strings to use as options for `lpr' to request page headings.
+If nil, we run `lpr-page-header-program' to make page headings
+and print the result.")
 
 (defvar print-region-function nil
   "Function to call to print the region on a printer.
@@ -103,11 +106,13 @@ See definition of `print-region-1' for calling conventions.")
 	    (untabify (point-min) (point-max))))
       (if page-headers
 	  (if lpr-headers-switches
-	      ;; On BSD, use an option to get page headers.
+	      ;; It is possible to use an lpr option
+	      ;; to get page headers.
 	      (setq switches (append (if (stringp lpr-headers-switches)
 					 (list lpr-headers-switches)
 				        lpr-headers-switches)
 				     switches))
+	    ;; Run a separate program to get page headers.
 	    (print-region-new-buffer start end)
 	    (call-process-region start end lpr-page-header-program
 				 t t lpr-page-header-options)