From 2b5b24e966dc87edc5c973c84ff7817147c5f492 Mon Sep 17 00:00:00 2001
From: chiles <chiles>
Date: Wed, 23 Oct 1991 11:09:19 +0000
Subject: [PATCH] No mod.

---
 hemlock/echo.lisp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/hemlock/echo.lisp b/hemlock/echo.lisp
index 8f384eb49..71e6b40d0 100644
--- a/hemlock/echo.lisp
+++ b/hemlock/echo.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/echo.lisp,v 1.4 1991/10/23 11:00:02 chiles Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/echo.lisp,v 1.5 1991/10/23 11:09:19 chiles Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -172,6 +172,11 @@
 (defhvar "Raise Echo Area When Modified"
   "When set, Hemlock raises the echo area window when output appears there."
   :value nil)
+
+;;; RAISE-ECHO-AREA-WHEN-MODIFIED -- Internal.
+;;;
+;;; INIT-BITMAP-SCREEN-MANAGER in bit-screen.lisp adds this hook when
+;;; initializing the bitmap screen manager.
 ;;;
 (defun raise-echo-area-when-modified (buffer modified)
   (when (and (value ed::raise-echo-area-when-modified)
@@ -183,8 +188,6 @@
       (setf (xlib:window-priority win) :above)
       (xlib:display-force-output
        (bitmap-device-display (device-hunk-device hunk))))))
-;;;
-(add-hook buffer-modified-hook 'raise-echo-area-when-modified)
 
 
 
-- 
GitLab