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

(lpr-page-header-switches, print-region-1): Undo 2000-07-06 change.

Browse Source
This commit is contained in:
Richard M. Stallman 2001-02-27 19:07:09 +00:00
parent 91cb6e5163
commit 9f84479bd0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/lpr.el
View File

@ -139,7 +139,7 @@ See definition of `print-region-1' for calling conventions."
;; Berkeley systems support -F, and GNU pr supports both -f and -F,
;; So it looks like -F is a better default.
(defcustom lpr-page-header-switches '("-h" "-F")
(defcustom lpr-page-header-switches '("-F")
"*List of strings to use as options for the page-header-generating program.
The variable `lpr-page-header-program' specifies the program to use."
:type '(repeat string)
@ -242,7 +242,8 @@ for further customization of the printer command."
(let ((new-coords (print-region-new-buffer start end)))
(apply 'call-process-region (car new-coords) (cdr new-coords)
lpr-page-header-program t t nil
lpr-page-header-switches))
(nconc (list "-h" title)
lpr-page-header-switches)))
(setq start (point-min)
end (point-max))))
(apply (or print-region-function 'call-process-region)