diff options
| author | Richard M. Stallman | 1994-08-17 23:29:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-08-17 23:29:45 +0000 |
| commit | 861a58193a9061d809c43c315b6844f519f19bdb (patch) | |
| tree | 4cf1418ceac15be2da7f384386f4c50198684d51 | |
| parent | 514b8dcfdbf66a2953fb0994bb1ca964d964ecb3 (diff) | |
| download | emacs-861a58193a9061d809c43c315b6844f519f19bdb.tar.gz emacs-861a58193a9061d809c43c315b6844f519f19bdb.zip | |
(lpr-command, lpr-headers-switches): Treat Solaris like BSD.
| -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 @@ | |||
| 38 | 38 | ||
| 39 | ;;;###autoload | 39 | ;;;###autoload |
| 40 | (defvar lpr-command | 40 | (defvar lpr-command |
| 41 | (if (memq system-type '(usg-unix-v dgux hpux irix)) | 41 | (if (and (memq system-type '(usg-unix-v dgux hpux irix)) |
| 42 | (not (string-match "^[^-]*-[^-]*-solaris" system-configuration))) | ||
| 42 | "lp" "lpr") | 43 | "lp" "lpr") |
| 43 | "*Shell command for printing a file") | 44 | "*Shell command for printing a file") |
| 44 | 45 | ||
| 45 | (defvar lpr-headers-switches | 46 | (defvar lpr-headers-switches |
| 46 | (if (memq system-type '(usg-unix-v hpux)) nil "-p") | 47 | (if (and (memq system-type '(usg-unix-v hpux)) |
| 48 | (not (string-match "^[^-]*-[^-]*-solaris" system-configuration))) | ||
| 49 | nil "-p") | ||
| 47 | "*List of strings to use as options for `lpr' to request page headings.") | 50 | "*List of strings to use as options for `lpr' to request page headings.") |
| 48 | 51 | ||
| 49 | (defvar print-region-function nil | 52 | (defvar print-region-function nil |