summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-11-22 21:26:19 +0000
committerRichard M. Stallman <rms@gnu.org>1994-11-22 21:26:19 +0000
commit3cdcc6111bf80bbc9468c90ea4bf351683dd2676 (patch)
tree663e2309fa1e1b5d83059dbf77ea52a886ef67c0 /lisp
parentfeebcb337b8716e46f9db9fad523588b5d470354 (diff)
downloademacs-3cdcc6111bf80bbc9468c90ea4bf351683dd2676.tar.gz
(lpr-page-header-switches): Use -f by default.
(lpr-headers-switches): Make it a list.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/lpr.el4
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 @@
"*Name of program for printing a file.")
(defvar lpr-headers-switches
- (if (equal lpr-command "lpr") "-p" nil)
+ (if (equal lpr-command "lpr") '("-p") nil)
"*List of strings to use as options for `lpr' to request page headings.")
(defvar print-region-function nil
@@ -53,7 +53,7 @@ See definition of `print-region-1' for calling conventions.")
(defvar lpr-page-header-program "pr"
"*Name of program for adding page headers to a file.")
-(defvar lpr-page-header-switches nil
+(defvar lpr-page-header-switches '("-f")
"*List of strings to use as options for `lpr-page-header-program'.")
;;;###autoload