changeset 8020:23deb92071c6

(print-region-1): Don't include a space in the job name.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Jun 1994 14:33:32 +0000
parents cbab396695ab
children a4b5e12e299d
files lisp/lpr.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))