From 24dabb5a30aabbbb34b3e22208589c30c1bcc3e9 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Wed, 1 Nov 2017 06:10:16 +0300
Subject: Don't rely on INSIDE_EMACS

It is getting set by M-x term and shell as well, so it's wrong to
decide whether to run in the embedded mode based on it.
---
 Pancake.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index 9647186..1573d12 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -770,7 +770,6 @@ eventLoop = do
 main :: IO ()
 main = do
   args <- getArgs
-  insideEmacs <- lookupEnv "INSIDE_EMACS"
   _ <- runStateT (loadConfig >> eventLoop) $
-    LS ([],[]) 0 [] def (isJust insideEmacs || "--embedded" `elem` args)
+    LS ([],[]) 0 [] def ("--embedded" `elem` args)
   pure ()
-- 
cgit v1.2.3