70e85d336e
support. It is developed with Free Pascal and Lazarus. The project has not released any distfiles yet, so this release is based on r2259 checked out from http://svn.shamangrad.net/zcad/trunk/, cleaned up (most importantly, converted to Unix line endings), and tar+xz'ed. https://sourceforge.net/projects/zcad/
17 lines
780 B
ObjectPascal
17 lines
780 B
ObjectPascal
--- cad_source/zcad/commands/uzccombase.pas.orig 2017-05-01 09:49:51 UTC
|
|
+++ cad_source/zcad/commands/uzccombase.pas
|
|
@@ -332,7 +332,14 @@ begin
|
|
itautoseve:=false;
|
|
if operands='QS' then
|
|
begin
|
|
+{$IFDEF UNIX}
|
|
+ // On Unix, force saving under ~/.zcad/autosave
|
|
+ s1:=sysvar.SAVE.SAVE_Auto_FileName^;
|
|
+ if s1[1]='*' then
|
|
+ s1:=UserPath+copy(s1,2,length(s1)-1);
|
|
+{$ELSE}
|
|
s1:=ExpandPath(sysvar.SAVE.SAVE_Auto_FileName^);
|
|
+{$ENDIF}
|
|
s:=rsAutoSave+': '''+s1+'''';
|
|
HistoryOutStr(s);
|
|
itautoseve:=true;
|