From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Jun 1994 14:33:32 +0000 (+0000)
Subject: (print-region-1): Don't include a space in the job name.
X-Git-Tag: emacs-19.34~7833
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a803745514e7179db1d83236fa243c744365b787;p=emacs.git

(print-region-1): Don't include a space in the job name.
---

diff --git a/lisp/lpr.el b/lisp/lpr.el
index cd68c41b615..37b98d91fec 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -79,7 +79,8 @@ See definition of `print-region-1' for calling conventions.")
   (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 @@ See definition of `print-region-1' for calling conventions.")
 	     (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))