Mercurial > emacs

changeset 4446:ff1f9d7addd9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a1e412873732
children ba273b48143b
files lisp/lpr.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/lpr.el	Tue Aug 03 21:38:31 1993 +0000
+++ b/lisp/lpr.el	Wed Aug 04 03:41:03 1993 +0000
@@ -80,6 +80,9 @@
 	  (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 @@
 		    (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