diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-29 23:12:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-29 23:12:31 +0000 |
| commit | c820123b60386cc62e238d76f6a4cb1e93d0e059 (patch) | |
| tree | 9da6c09285b9c3c632c976e1d093299ac09323b7 /lisp/lpr.el | |
| parent | 4699e6d2a1a94b81e853c8afd48e652af232e529 (diff) | |
| download | emacs-c820123b60386cc62e238d76f6a4cb1e93d0e059.tar.gz emacs-c820123b60386cc62e238d76f6a4cb1e93d0e059.tar.bz2 emacs-c820123b60386cc62e238d76f6a4cb1e93d0e059.zip | |
(print-region-1): Use them instead of just pr.
(lpr-page-header-program, lpr-page-header-switches): New variables.
Diffstat (limited to 'lisp/lpr.el')
| -rw-r--r-- | lisp/lpr.el | 11 |
1 files changed, 9 insertions, 2 deletions
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 |