← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mit-scheme/trusty

« back to all changes in this revision

Viewing changes to src/edwin/bufwiu.scm

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2010-03-10 02:00:45 UTC
  • mfrom: (1.1.7 upstream) (3.1.6 sid)
  • Revision ID: james.westby@ubuntu.com-20100310020045-4np1y3ro6sk2oz92
Tags: 9.0.1-1
* New upstream.
* debian/watch: Fix, previous version was broken.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/edwin/bufwiu.scm
1
1
#| -*-Scheme-*-
2
2
 
3
 
$Id: bufwiu.scm,v 1.41 2008/01/30 20:01:59 cph Exp $
4
 
 
5
3
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
6
4
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
7
 
    2006, 2007, 2008 Massachusetts Institute of Technology
 
5
    2006, 2007, 2008, 2009, 2010 Massachusetts Institute of Technology
8
6
 
9
7
This file is part of MIT/GNU Scheme.
10
8
 
404
402
      (not (%window-saved-screen window))
405
403
      (screen-needs-update? (%window-saved-screen window))))
406
404
 
 
405
(define (buffer-window/direct-output-cursor! window)
 
406
  (if (%window-debug-trace window)
 
407
      ((%window-debug-trace window) 'window window 'direct-output-cursor!))
 
408
  (let ((mask (set-interrupt-enables! interrupt-mask/gc-ok)))
 
409
    (let ((x-start (inferior-x-start (%window-cursor-inferior window)))
 
410
          (y-start (inferior-y-start (%window-cursor-inferior window))))
 
411
      (screen-direct-output-move-cursor
 
412
       (%window-saved-screen window)
 
413
       (fix:+ (%window-saved-x-start window) x-start)
 
414
       (fix:+ (%window-saved-y-start window) y-start)))
 
415
    (set-interrupt-enables! mask)
 
416
    unspecific))
 
417
 
407
418
(define (buffer-window/direct-output-forward-char! window)
408
419
  (if (%window-debug-trace window)
409
420
      ((%window-debug-trace window) 'window window