From 358b124982df72db9d914e66f74ef04710425ce6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 17 Feb 1995 21:10:51 +0000
Subject: [PATCH] Add another call to internal-redisplay in
 editor-input-method-macro.  It doesn't entirely fix the problem with shell
 output update, but makes it a lot better.

---
 hemlock/input.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hemlock/input.lisp b/hemlock/input.lisp
index eeae8c769..710fba2bd 100644
--- a/hemlock/input.lisp
+++ b/hemlock/input.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/input.lisp,v 1.4 1994/10/31 04:50:12 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/input.lisp,v 1.5 1995/02/17 21:10:51 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -206,12 +206,13 @@
 	 (invoke-scheduled-events)
 	 (unless (or (system:serve-event 0)
 		     (internal-redisplay))
+	   (internal-redisplay)
 	   (when nrw-fun (funcall nrw-fun t))
 	   (let ((wait (next-scheduled-event-wait)))
 	     (if wait (system:serve-event wait) (system:serve-event)))))
        (when nrw-fun (funcall nrw-fun nil))
        (when (and (abort-key-event-p key-event)
-		  ;; ingore-abort-attempts-p must exist outside the macro.
+		  ;; ignore-abort-attempts-p must exist outside the macro.
 		  ;; in this case it is bound in GET-KEY-EVENT.
 		  (not ignore-abort-attempts-p))
 	 (beep)
-- 
GitLab