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