diff options
| author | Richard M. Stallman | 1994-11-13 12:15:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-13 12:15:29 +0000 |
| commit | 87b8e150eb59ffd39389b7f225fbea73e0ad114f (patch) | |
| tree | 0fbe1fed0c48fb4f94550bf273f2386788539f76 | |
| parent | 1855c8dd0bbe4d990c083cf077f85b989b4a8f6f (diff) | |
| download | emacs-87b8e150eb59ffd39389b7f225fbea73e0ad114f.tar.gz emacs-87b8e150eb59ffd39389b7f225fbea73e0ad114f.zip | |
(lpr-headers-switches): Base default on lpr-command value.
| -rw-r--r-- | lisp/lpr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index a2c9cd55345..4299ef1d30f 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el | |||
| @@ -43,7 +43,7 @@ | |||
| 43 | "*Name of program for printing a file.") | 43 | "*Name of program for printing a file.") |
| 44 | 44 | ||
| 45 | (defvar lpr-headers-switches | 45 | (defvar lpr-headers-switches |
| 46 | (if (memq system-type '(usg-unix-v dgux hpux irix)) nil "-p") | 46 | (if (equal lpr-command "lpr") "-p" nil) |
| 47 | "*List of strings to use as options for `lpr' to request page headings.") | 47 | "*List of strings to use as options for `lpr' to request page headings.") |
| 48 | 48 | ||
| 49 | (defvar print-region-function nil | 49 | (defvar print-region-function nil |