# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772382012 0
# Node ID 23deb92071c6a1593dbb948f626cf1efcd563777
# Parent  cbab396695ab76a2906b15b21ec5e3cef2bbb7c9
(print-region-1): Don't include a space in the job name.

diff -r cbab396695ab -r 23deb92071c6 lisp/lpr.el
--- a/lisp/lpr.el	Thu Jun 23 14:31:35 1994 +0000
+++ b/lisp/lpr.el	Thu Jun 23 14:33:32 1994 +0000
@@ -79,7 +79,8 @@
   (print-region-1 start end lpr-switches t))
 
 (defun print-region-1 (start end switches page-headers)
-  (let ((name (concat (buffer-name) " Emacs buffer"))
+  (let ((name (concat (buffer-name) "-Emacs-buffer"))
+	(title (concat (buffer-name) " Emacs buffer"))
 	(width tab-width))
     (save-excursion
       (message "Spooling...")
@@ -105,7 +106,7 @@
 	     (nconc (list start end lpr-command
 			  nil nil nil)
 		    (nconc (and lpr-add-options
-				(list "-J" name "-T" name))
+				(list "-J" name "-T" title))
 			   switches)))
       (if (markerp end)
 	  (set-marker end nil))