From 4716cade98a26d2cb66082acbcf5278b516c5c43 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 23 Feb 1990 12:02:13 +0000 Subject: [PATCH] Backout of last revision, since requiring Hemlock to compile code seems rather nasty at this point. --- code/sysmacs.lisp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/code/sysmacs.lisp b/code/sysmacs.lisp index c5eb3ec3c..95693b1a2 100644 --- a/code/sysmacs.lisp +++ b/code/sysmacs.lisp @@ -112,6 +112,21 @@ (funcall #'enable-interrupt (car ,it) (cadr ,it) (caddr ,it))))))) +(defvar hi::*in-the-editor* nil) + +(defmacro without-hemlock (&body body) + `(progn + (when (and hi::*in-the-editor* (null debug::*in-the-debugger*)) + (let ((device (hi::device-hunk-device + (hi::window-hunk (hi::current-window))))) + (funcall (hi::device-exit device) device))) + ,@body + (when (and hi::*in-the-editor* (null debug::*in-the-debugger*)) + (let ((device (hi::device-hunk-device + (hi::window-hunk (hi::current-window))))) + (funcall (hi::device-init device) device))))) + + ;;; With-Reply-Port -- Public ;;; ;;; If we find that the number of ports in use (as indicated by -- GitLab