From 3cdcc6111bf80bbc9468c90ea4bf351683dd2676 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 22 Nov 1994 21:26:19 +0000 Subject: [PATCH] (lpr-page-header-switches): Use -f by default. (lpr-headers-switches): Make it a list. --- lisp/lpr.el | 4 ++-- 1 file 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 -- 2.39.5