Skip to content

Commit 92597fe

Browse files
committed
Ignore Shift-Enter, does wierd things, #305
1 parent cfdd4d8 commit 92597fe

File tree

2 files changed

+12
-1
lines changed

2 files changed

+12
-1
lines changed

source/Tomboy_NG.lpi

+8-1
Original file line numberDiff line numberDiff line change
@@ -1066,9 +1066,16 @@
10661066
<DestinationDirectory Value="$(ProjPath)/published/"/>
10671067
</PublishOptions>
10681068
<RunParams>
1069+
<local>
1070+
<CommandLineParams Value="--config-dir=/home/dbannon/.config/tomboy-ng-alt"/>
1071+
</local>
10691072
<FormatVersion Value="2"/>
10701073
<Modes Count="1">
1071-
<Mode0 Name="default"/>
1074+
<Mode0 Name="default">
1075+
<local>
1076+
<CommandLineParams Value="--config-dir=/home/dbannon/.config/tomboy-ng-alt"/>
1077+
</local>
1078+
</Mode0>
10721079
</Modes>
10731080
</RunParams>
10741081
<RequiredPackages Count="3">

source/editbox.pas

+4
Original file line numberDiff line numberDiff line change
@@ -3238,6 +3238,10 @@ procedure TEditBoxForm.KMemo1KeyDown(Sender: TObject; var Key: Word; Shift: TShi
32383238
key := 0;
32393239
if (EditFind.Text <> rsMenuSearch) then SpeedLeftClick(self);
32403240
end;
3241+
if (Key = VK_RETURN) then begin // Shift-Enter, intended to do so paragraph things but messes badly with bullets. #305
3242+
Key := 0;
3243+
exit();
3244+
end;
32413245
end;
32423246
{$endif}
32433247

0 commit comments

Comments
 (0)