diff --git a/code/sysmacs.lisp b/code/sysmacs.lisp index 95693b1a23b3a50ef5ee8cd2ba3387328ec8e60d..c5eb3ec3c79cd0dd2d49cb8193c5156a44b91ba5 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