diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-08-04 03:41:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-08-04 03:41:03 +0000 |
| commit | 97bd297876a56d626084938aed6fdf96589fb52e (patch) | |
| tree | 4e548c75afc85536a289461b49f7ed55a9e3450c /lisp/lpr.el | |
| parent | 96427cfac21ab73985a18787a7f450f53bb0ec24 (diff) | |
| download | emacs-97bd297876a56d626084938aed6fdf96589fb52e.tar.gz | |
(print-region-1): Make END a marker so untabify relocates it.
Diffstat (limited to 'lisp/lpr.el')
| -rw-r--r-- | lisp/lpr.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index 3bd12335068..8ffb7f37e9b 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el @@ -80,6 +80,9 @@ See definition of `print-region-1' for calling conventions.") (progn (print-region-new-buffer start end) (setq tab-width width) + (save-excursion + (goto-char end) + (setq end (point-marker))) (untabify (point-min) (point-max)))) (if page-headers (if (eq system-type 'usg-unix-v) @@ -94,6 +97,8 @@ See definition of `print-region-1' for calling conventions.") (nconc (and (eq system-type 'berkeley-unix) (list "-J" name "-T" name)) switches))) + (if (markerp end) + (set-marker end nil)) (message "Spooling...done")))) ;; This function copies the text between start and end |