diff options
| author | Richard M. Stallman | 1994-11-22 21:26:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-22 21:26:19 +0000 |
| commit | 3cdcc6111bf80bbc9468c90ea4bf351683dd2676 (patch) | |
| tree | 663e2309fa1e1b5d83059dbf77ea52a886ef67c0 | |
| parent | feebcb337b8716e46f9db9fad523588b5d470354 (diff) | |
| download | emacs-3cdcc6111bf80bbc9468c90ea4bf351683dd2676.tar.gz emacs-3cdcc6111bf80bbc9468c90ea4bf351683dd2676.zip | |
(lpr-page-header-switches): Use -f by default.
(lpr-headers-switches): Make it a list.
| -rw-r--r-- | lisp/lpr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index 4299ef1d30f..c5d9bb2205e 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 (equal lpr-command "lpr") "-p" nil) | 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 |
| @@ -53,7 +53,7 @@ See definition of `print-region-1' for calling conventions.") | |||
| 53 | (defvar lpr-page-header-program "pr" | 53 | (defvar lpr-page-header-program "pr" |
| 54 | "*Name of program for adding page headers to a file.") | 54 | "*Name of program for adding page headers to a file.") |
| 55 | 55 | ||
| 56 | (defvar lpr-page-header-switches nil | 56 | (defvar lpr-page-header-switches '("-f") |
| 57 | "*List of strings to use as options for `lpr-page-header-program'.") | 57 | "*List of strings to use as options for `lpr-page-header-program'.") |
| 58 | 58 | ||
| 59 | ;;;###autoload | 59 | ;;;###autoload |