From 49fe33b8c3004399854d5d73a38fc3114c9571dd Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Wed, 21 Oct 2015 09:50:46 +0000
Subject: [PATCH] IDE: add new tab to history after a tab was closed.

git-svn-id: trunk@50136 -
---
 ide/sourceeditor.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 55a888f135..59d884ceda 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -7439,8 +7439,10 @@ begin
           FPageIndex := APageIndex + 1
         else
           FPageIndex := APageIndex - 1;
-      FNoteBook.PageIndex := FPageIndex;
-      Include(FUpdateFlags,ufPageIndexChanged);
+      if FUpdateLock = 0 then
+        ApplyPageIndex
+      else
+        Include(FUpdateFlags,ufPageIndexChanged);
     end;
     NotebookPages.Delete(APageIndex);
   end else begin