;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; 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.
+ "*List of strings of options to request page headings in the printer program.
If nil, we run `lpr-page-header-program' to make page headings
and print the result.")
"*Name of program for adding page headers to a file.")
(defvar lpr-page-header-switches '("-f")
- "*List of strings to use as options for `lpr-page-header-program'.")
+ "*List of strings to use as options for the page-header-generating program.
+The variable `lpr-page-header-program' specifies the program to use.")
;;;###autoload
(defun lpr-buffer ()
;; and it seems to annoying to do for that MIPS system.
(let ((name (concat (buffer-name) " Emacs buffer"))
(title (concat (buffer-name) " Emacs buffer"))
+ ;; On MS-DOS systems, make pipes use binary mode if the
+ ;; original file is binary.
+ (binary-process-input buffer-file-type)
+ (binary-process-output buffer-file-type)
(width tab-width)
switch-string)
(save-excursion