mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(print-region-1): Essentially undo previous change.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-07-01 23:59:32 +00:00
parent 0b43140039
commit 904d76247e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/lpr.el
View File

@ -79,9 +79,10 @@ 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)
;; Avoid having a space in the job name
;; because on some MIPS system that crashes the printer demon.
(let ((name (concat (buffer-name) "-Emacs-buffer"))
;; On some MIPS system, having a space in the job name
;; crashes the printer demon. But using dashes looks ugly
;; and it seems to annoying to do for that MIPS system.
(let ((name (concat (buffer-name) " Emacs buffer"))
(title (concat (buffer-name) " Emacs buffer"))
(width tab-width))
(save-excursion