From d09acc30ff667b0989fa5262dfca7cc90a95fed1 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Sat, 15 Oct 2011 16:42:48 +0000
Subject: [PATCH] IDE: don't lose the case of unit name when saving the unit if
 its filename was suggested in lowercase and user didn't touch it

git-svn-id: trunk@32908 -
---
 ide/main.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ide/main.pp b/ide/main.pp
index f051e640e6..d0d3230e75 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -5560,6 +5560,9 @@ begin
   // check unitname
   if FilenameIsPascalUnit(NewFilename) then begin
     NewUnitName:=ExtractFileNameOnly(NewFilename);
+    // do not rename the unit if new filename differs from its name only in case
+    if LowerCase(OldUnitName)=NewUnitName then
+      NewUnitName:=OldUnitName;
     if NewUnitName='' then begin
       Result:=mrCancel;
       exit;