(lpr-command, lpr-headers-switches): Undo previous change.

ffc74f20 · Richard M. Stallman · 0ef2c2f2 · ffc74f20
Commit ffc74f20 authored Aug 19, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 5 deletions

lisp/lpr.el lisp/lpr.el +2 -5

No files found.
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -38,15 +38,12 @@
 ;;;###autoload
 (defvar lpr-command
-  (if (and (memq system-type '(usg-unix-v dgux hpux irix))
+  (if (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 (and (memq system-type '(usg-unix-v hpux))
+  (if (memq system-type '(usg-unix-v hpux)) nil "-p")
-	   (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