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