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 | 5e04a323d5e1d09f2c02a8d15d23c08ee95daf7a (patch) | |
| tree | c532e57420570cb5182a12723a4a007d11c23f2c /lisp/lpr.el | |
| parent | fb0877909643f5426bd79b8340ebd0dfb0219040 (diff) | |
| download | emacs-5e04a323d5e1d09f2c02a8d15d23c08ee95daf7a.tar.gz | |
(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 |