From e8c90c6b1f9dadca0a68c57fea822786a7b8e92a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 14 Apr 2013 12:13:52 +0000
Subject: [PATCH] IDE: package editor: extend unit/include path: shorten paths
 that are not sub directories, bug #24272

git-svn-id: trunk@40803 -
---
 packager/packageeditor.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packager/packageeditor.pas b/packager/packageeditor.pas
index 79ed3c0385..bcefdb85b0 100644
--- a/packager/packageeditor.pas
+++ b/packager/packageeditor.pas
@@ -2022,7 +2022,7 @@ begin
   // check if directory is already in the unit path of the package
   NewDirectory:=ExtractFilePath(AnUnitFilename);
   ShortDirectory:=NewDirectory;
-  LazPackage.ShortenFilename(ShortDirectory,false);
+  LazPackage.ShortenFilename(ShortDirectory,true);
   if ShortDirectory='' then exit;
   LazPackage.LongenFilename(NewDirectory);
   NewDirectory:=ChompPathDelim(NewDirectory);