diff lisp/printer.el @ 546:666d73d6ac56

[xemacs-hg @ 2001-05-20 01:17:07 by ben] fixes so MinGW compiles. console-msw.h, scrollbar-msw.c, event-msw.c: we might receive scrollbar events on windows without scrollbars (e.g. holding down and moving the wheel button). dired.c: win9x support. eval.c: doc comment about gcpro'ing in record_unwind_protect. frame-msw.c: typo. frame.c: avoid problems with errors during init_frame_3. process-nt.c: remove unused mswindows-quote-process-args. rec for 21.4. unexcw.c: use do/while. autoload.el: Oops, off by one argument. mouse.el: Add an argument to mouse-track so that hooks can be overridden. (let-binding doesn't work when the hooks have been made local.) modify mouse-track-run-hook accordingly, and fix mouse-track-default and mouse-track-insert to use the new functionality. printer.el: Oops, off by one paren.
author ben
date Sun, 20 May 2001 01:17:16 +0000
parents 5bdbc721d46a
children a307f9a2021d
line wrap: on
line diff
--- a/lisp/printer.el	Fri May 18 04:39:44 2001 +0000
+++ b/lisp/printer.el	Sun May 20 01:17:16 2001 +0000
@@ -436,10 +436,10 @@
 				       (let ((window-pixel-scroll-increment
 					      pixvis))
 					 (scroll-down 1))))))
-			     (setq pageno (1+ pageno))))))
-		     (and f (delete-frame f))
-		     (and header-buffer (kill-buffer header-buffer))
-		     (and footer-buffer (kill-buffer footer-buffer)))))
+			     (setq pageno (1+ pageno)))))))
+		 (and f (delete-frame f))
+		 (and header-buffer (kill-buffer header-buffer))
+		 (and footer-buffer (kill-buffer footer-buffer))))
 	     (setq copies (1- copies)))))
 	((and (not (eq system-type 'windows-nt))
 	      (fboundp 'lpr-region))