From 1c6a71b2033fb1a53f7f58826e341f5031bee686 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 4 Nov 2014 02:36:34 +0100
Subject: [PATCH] symbolic string <CPFS> works with unsaved/temp projects

---
 src/ce_main.pas | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 637ca95e..c712615f 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -190,7 +190,9 @@ type
     fFileMru: TMruFileList;
     fLibMan: TLibraryManager;
     fPrInpWidg: TCEProcInputWidget;
+    {$IFDEF WIN32}
     fCdbWidg: TCECdbWidget;
+    {$ENDIF}
     fTools: TCETools;
 
     fRunProc: TAsyncProcess;
@@ -1931,14 +1933,13 @@ begin
         'CPFS', 'CurrentProjectFiles':
           begin
             if fProject <> nil then
-              if fileExists(fProject.fileName) then
-                for j := 0 to fProject.Sources.Count-1 do
-                begin
-                  result += fProject.getAbsoluteSourceName(j);
-                  if fProject.Sources.Count > 1 then
-                    if j <> fProject.Sources.Count-1 then
-                      result += LineEnding;
-                end;
+              for j := 0 to fProject.Sources.Count-1 do
+              begin
+                result += fProject.getAbsoluteSourceName(j);
+                if fProject.Sources.Count > 1 then
+                  if j <> fProject.Sources.Count-1 then
+                    result += LineEnding;
+              end;
           end;
         'CPN', 'CurrentProjectName':
           begin