summaryrefslogtreecommitdiff
path: root/lisp/lpr.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-06-23 14:33:32 +0000
committerRichard M. Stallman <rms@gnu.org>1994-06-23 14:33:32 +0000
commita803745514e7179db1d83236fa243c744365b787 (patch)
treec076e0fad9f7af9e994f32924707ac799a99151e /lisp/lpr.el
parenta060984a9ad7034561c7751f816541d84b30a045 (diff)
downloademacs-a803745514e7179db1d83236fa243c744365b787.tar.gz
(print-region-1): Don't include a space in the job name.
Diffstat (limited to 'lisp/lpr.el')
-rw-r--r--lisp/lpr.el5
1 files changed, 3 insertions, 2 deletions
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))