mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-06-23 14:33:32 +00:00
parent a060984a9a
commit a803745514
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/lpr.el
View file

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