Mercurial > emacs
changeset 9187:8cf9181c119e
(print-region-1): Use them instead of just pr.
(lpr-page-header-program, lpr-page-header-switches): New variables.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 29 Sep 1994 23:12:31 +0000 |
| parents | 45bac5feb065 |
| children | c17b2a49b6ec |
| files | lisp/lpr.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/lpr.el Thu Sep 29 23:00:43 1994 +0000 +++ b/lisp/lpr.el Thu Sep 29 23:12:31 1994 +0000 @@ -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 @@ 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