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

diff --git a/lisp/lpr.el b/lisp/lpr.el
index cd68c41b6155519ae7ab6bf354302510e9068e5f..37b98d91fecca29ca6d7c932954bb20cd023b910 100644 (file)
--- 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))