From 07c48b04bc59942fb06443f1b1b7d78db4a953d0 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 23 Feb 1990 11:57:56 +0000
Subject: [PATCH] .../systems-work/code/lispinit.lisp, 20-Sep-89 00:27:29, Edit
 by Chiles.   Removed WITHOUT-HEMLOCK to put it in hem:rompsite.lisp. [Was in
 lispinit in working code...]

---
 code/sysmacs.lisp | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/code/sysmacs.lisp b/code/sysmacs.lisp
index 95693b1a2..c5eb3ec3c 100644
--- a/code/sysmacs.lisp
+++ b/code/sysmacs.lisp
@@ -112,21 +112,6 @@
 	   (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