diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-17 23:29:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-17 23:29:45 +0000 |
| commit | 861a58193a9061d809c43c315b6844f519f19bdb (patch) | |
| tree | 4cf1418ceac15be2da7f384386f4c50198684d51 /lisp/lpr.el | |
| parent | 514b8dcfdbf66a2953fb0994bb1ca964d964ecb3 (diff) | |
| download | emacs-861a58193a9061d809c43c315b6844f519f19bdb.tar.gz | |
(lpr-command, lpr-headers-switches): Treat Solaris like BSD.
Diffstat (limited to 'lisp/lpr.el')
| -rw-r--r-- | lisp/lpr.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index 7f5ff8d1542..4af86a1e742 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el @@ -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 |