;;;###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