mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(lpr-headers-switches): Default is nil.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-02-02 21:12:06 +00:00
parent e86fe0d789
commit 7173ec778e
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/lpr.el
View File

@ -42,9 +42,12 @@
"lp" "lpr")
"*Name of program for printing a file.")
(defvar lpr-headers-switches
(if (equal lpr-command "lpr") '("-p") nil)
"*List of strings to use as options for `lpr' to request page headings.")
;; Default is nil, because that enables us to use pr -f
;; which is more reliable than pr with no args, which is what lpr -p does.
(defvar lpr-headers-switches nil
"*List of strings to use as options for `lpr' to request page headings.
If nil, we run `lpr-page-header-program' to make page headings
and print the result.")
(defvar print-region-function nil
"Function to call to print the region on a printer.
@ -103,11 +106,13 @@ See definition of `print-region-1' for calling conventions.")
(untabify (point-min) (point-max))))
(if page-headers
(if lpr-headers-switches
;; On BSD, use an option to get page headers.
;; It is possible to use an lpr option
;; to get page headers.
(setq switches (append (if (stringp lpr-headers-switches)
(list lpr-headers-switches)
lpr-headers-switches)
switches))
;; Run a separate program to get page headers.
(print-region-new-buffer start end)
(call-process-region start end lpr-page-header-program
t t lpr-page-header-options)