# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777166185 0
# Node ID bbe37f3ae57023015e43069fec28599ed7846caa
# Parent  dc5353720725a0a89299a363a3d512f3ef7bc314
(lpr-command, lpr-headers-switches): Treat Solaris like BSD.

diff -r dc5353720725 -r bbe37f3ae570 lisp/lpr.el
--- a/lisp/lpr.el	Wed Aug 17 23:13:50 1994 +0000
+++ b/lisp/lpr.el	Wed Aug 17 23:29:45 1994 +0000
@@ -38,12 +38,15 @@
 
 ;;;###autoload
 (defvar lpr-command
-  (if (memq system-type '(usg-unix-v dgux hpux irix))
+  (if (and (memq system-type '(usg-unix-v dgux hpux irix))
+	   (not (string-match "^[^-]*-[^-]*-solaris" system-configuration)))
       "lp" "lpr")
   "*Shell command for printing a file")
 
 (defvar lpr-headers-switches
-  (if (memq system-type '(usg-unix-v hpux)) nil "-p")
+  (if (and (memq system-type '(usg-unix-v hpux))
+	   (not (string-match "^[^-]*-[^-]*-solaris" system-configuration)))
+      nil "-p")
   "*List of strings to use as options for `lpr' to request page headings.")
 
 (defvar print-region-function nil