From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 22 Nov 1994 21:26:19 +0000 (+0000)
Subject: (lpr-page-header-switches): Use -f by default.
X-Git-Tag: emacs-19.34~5801
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3cdcc6111bf80bbc9468c90ea4bf351683dd2676;p=emacs.git

(lpr-page-header-switches): Use -f by default.
(lpr-headers-switches): Make it a list.
---

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