Mercurial > hg > xemacs-beta
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")))) |