(lpr-headers-switches): Base default on lpr-command value.

diff --git a/lisp/lpr.el b/lisp/lpr.el
index a2c9cd5534573e528debf5544e6d149649632030..4299ef1d30f8a35c30a318364ad7ab0956a4716d 100644 (file)
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -43,7 +43,7 @@
   "*Name of program for printing a file.")
 
 (defvar lpr-headers-switches
-  (if (memq system-type '(usg-unix-v dgux hpux irix)) nil "-p")
+  (if (equal lpr-command "lpr") "-p" nil)
   "*List of strings to use as options for `lpr' to request page headings.")
 
 (defvar print-region-function nil