# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 784728929 0
# Node ID 68411c4271cd6c922ed23432c15e28211babdcb1
# Parent  5db59a2f9370aba39dc36bac18ac72129c773789
(lpr-headers-switches): Base default on lpr-command value.

diff -r 5db59a2f9370 -r 68411c4271cd lisp/lpr.el
--- a/lisp/lpr.el	Sat Nov 12 20:05:07 1994 +0000
+++ b/lisp/lpr.el	Sun Nov 13 12:15:29 1994 +0000
@@ -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