From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Sep 1994 23:12:31 +0000 (+0000)
Subject: (print-region-1): Use them instead of just pr.
X-Git-Tag: emacs-19.34~6667
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c820123b60386cc62e238d76f6a4cb1e93d0e059;p=emacs.git

(print-region-1): Use them instead of just pr.
(lpr-page-header-program, lpr-page-header-switches): New variables.
---

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 272d5af04d8..a2c9cd55345 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -40,7 +40,7 @@
 (defvar lpr-command
   (if (memq system-type '(usg-unix-v dgux hpux irix))
       "lp" "lpr")
-  "*Shell command for printing a file")
+  "*Name of program for printing a file.")
 
 (defvar lpr-headers-switches
   (if (memq system-type '(usg-unix-v dgux hpux irix)) nil "-p")
@@ -50,6 +50,12 @@
   "Function to call to print the region on a printer.
 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
+  "*List of strings to use as options for `lpr-page-header-program'.")
+
 ;;;###autoload
 (defun lpr-buffer ()
   "Print buffer contents as with Unix command `lpr'.
@@ -103,7 +109,8 @@ See definition of `print-region-1' for calling conventions.")
 				        lpr-headers-switches)
 				     switches))
 	    (print-region-new-buffer start end)
-	    (call-process-region start end "pr" t t nil)
+	    (call-process-region start end lpr-page-header-program
+				 t t lpr-page-header-options)
 	    (setq start (point-min) end (point-max))))
       (apply (or print-region-function 'call-process-region)
 	     (nconc (list start end lpr-command