Mercurial > emacs
comparison lisp/lpr.el @ 4446:ff1f9d7addd9
(print-region-1): Make END a marker so untabify relocates it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 04 Aug 1993 03:41:03 +0000 |
| parents | 030b76db285a |
| children | 1c1661097590 |
comparison
equal
deleted
inserted
replaced
| 4445:a1e412873732 | 4446:ff1f9d7addd9 |
|---|---|
| 78 (message "Spooling...") | 78 (message "Spooling...") |
| 79 (if (/= tab-width 8) | 79 (if (/= tab-width 8) |
| 80 (progn | 80 (progn |
| 81 (print-region-new-buffer start end) | 81 (print-region-new-buffer start end) |
| 82 (setq tab-width width) | 82 (setq tab-width width) |
| 83 (save-excursion | |
| 84 (goto-char end) | |
| 85 (setq end (point-marker))) | |
| 83 (untabify (point-min) (point-max)))) | 86 (untabify (point-min) (point-max)))) |
| 84 (if page-headers | 87 (if page-headers |
| 85 (if (eq system-type 'usg-unix-v) | 88 (if (eq system-type 'usg-unix-v) |
| 86 (progn | 89 (progn |
| 87 (print-region-new-buffer start end) | 90 (print-region-new-buffer start end) |
| 92 (nconc (list start end lpr-command | 95 (nconc (list start end lpr-command |
| 93 nil nil nil) | 96 nil nil nil) |
| 94 (nconc (and (eq system-type 'berkeley-unix) | 97 (nconc (and (eq system-type 'berkeley-unix) |
| 95 (list "-J" name "-T" name)) | 98 (list "-J" name "-T" name)) |
| 96 switches))) | 99 switches))) |
| 100 (if (markerp end) | |
| 101 (set-marker end nil)) | |
| 97 (message "Spooling...done")))) | 102 (message "Spooling...done")))) |
| 98 | 103 |
| 99 ;; This function copies the text between start and end | 104 ;; This function copies the text between start and end |
| 100 ;; into a new buffer, makes that buffer current, | 105 ;; into a new buffer, makes that buffer current, |
| 101 ;; and sets start and end to the buffer bounds. | 106 ;; and sets start and end to the buffer bounds. |