From 8dfbb4bfc01457613e35bf05d91ba3a34ef5a39d Mon Sep 17 00:00:00 2001
From: Taco Hoekwater <taco@metatex.org>
Date: Fri, 11 Jul 2008 12:35:18 +0000
Subject: [PATCH] need to enable scroll mode first for errors during cleanup

git-svn-id: svn+ssh://scm.foundry.supelec.fr/svn/metapost/mplib/trunk@626 b0617d17-b707-0410-b22c-fd2634e05cc4
---
 src/texk/web2c/mpdir/mp.w | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/texk/web2c/mpdir/mp.w b/src/texk/web2c/mpdir/mp.w
index 1081de1..328dad8 100644
--- a/src/texk/web2c/mpdir/mp.w
+++ b/src/texk/web2c/mpdir/mp.w
@@ -2174,11 +2174,11 @@ case '5': case '6': case '7': case '8': case '9':
   break;
 case 'E': 
   if ( mp->file_ptr>0 ){ 
+    mp->interaction=mp_scroll_mode; 
     mp_close_files_and_terminate(mp);
     (mp->run_editor)(mp, 
                      str(mp->input_stack[mp->file_ptr].name_field), 
                      mp_true_line(mp));
-    mp->interaction=mp_scroll_mode; 
     mp_jump_out(mp);
   }
   break;
-- 
2.32.0.93.g670b81a890