Use the `recenter' command rather than the procedure `window-redraw!'.

diff --git a/v7/src/edwin/kmacro.scm b/v7/src/edwin/kmacro.scm
index a13dd52f99563641a2d5887cfb2932b3460253fd..dec8da95730261d91d8dec7cc397a7ce4bea8da5 100644 (file)
--- a/v7/src/edwin/kmacro.scm
+++ b/v7/src/edwin/kmacro.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/kmacro.scm,v 1.31 1990/09/12 02:44:12 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/kmacro.scm,v 1.32 1990/11/02 03:09:52 cph Rel $
 ;;;
 ;;;    Copyright (c) 1985, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -278,7 +278,7 @@ Without argument, reads a character.  Your options are:
                        (with-keyboard-macro-disabled enter-recursive-edit)
                        (loop))
                       ((test-for #\C-l)
-                       (window-redraw! (current-window) false)
+                       ((ref-command recenter) false)
                        (loop))
                       (else
                        (editor-beep)