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 | 2adf4f6165a904bd5a3306ee129a258bd3050450 (patch) | |
| tree | c52da02d4054e1cbd0405229964c8f6ac167204c /lisp/lpr.el | |
| parent | d6bd8dca5d45ed3afdf1b172f1af559a85e7d750 (diff) | |
| download | emacs-2adf4f6165a904bd5a3306ee129a258bd3050450.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 |