comparison 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
comparison
equal deleted inserted replaced
545:9a775fb11bb7 546:666d73d6ac56
434 ;; #### scroll-down should take a 434 ;; #### scroll-down should take a
435 ;; window arg. 435 ;; window arg.
436 (let ((window-pixel-scroll-increment 436 (let ((window-pixel-scroll-increment
437 pixvis)) 437 pixvis))
438 (scroll-down 1)))))) 438 (scroll-down 1))))))
439 (setq pageno (1+ pageno)))))) 439 (setq pageno (1+ pageno)))))))
440 (and f (delete-frame f)) 440 (and f (delete-frame f))
441 (and header-buffer (kill-buffer header-buffer)) 441 (and header-buffer (kill-buffer header-buffer))
442 (and footer-buffer (kill-buffer footer-buffer))))) 442 (and footer-buffer (kill-buffer footer-buffer))))
443 (setq copies (1- copies))))) 443 (setq copies (1- copies)))))
444 ((and (not (eq system-type 'windows-nt)) 444 ((and (not (eq system-type 'windows-nt))
445 (fboundp 'lpr-region)) 445 (fboundp 'lpr-region))
446 (lpr-region buffer)) 446 (lpr-region buffer))
447 (t (error "No print support available")))) 447 (t (error "No print support available"))))