diff lisp/lpr.el @ 8020:23deb92071c6

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

--- 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))