Mercurial > emacs
comparison lisp/lpr.el @ 8562:bbe37f3ae570
(lpr-command, lpr-headers-switches): Treat Solaris like BSD.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 17 Aug 1994 23:29:45 +0000 |
| parents | 6a12a2845ccc |
| children | ce5ba216927d |
comparison
equal
deleted
inserted
replaced
| 8561:dc5353720725 | 8562:bbe37f3ae570 |
|---|---|
| 36 (defvar lpr-add-options (eq system-type 'berkeley-unix) | 36 (defvar lpr-add-options (eq system-type 'berkeley-unix) |
| 37 "*Non-nil means construct -T and -J options for the `lpr'.") | 37 "*Non-nil means construct -T and -J options for the `lpr'.") |
| 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 |
| 50 "Function to call to print the region on a printer. | 53 "Function to call to print the region on a printer. |
| 51 See definition of `print-region-1' for calling conventions.") | 54 See definition of `print-region-1' for calling conventions.") |