From c69217748345bbe1624adfc80d174c7386efe486 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Mon, 29 Jan 2018 14:21:49 +0100
Subject: [PATCH] fix #226 - Shortcuts for the "Editor pages" category are not
 applied when set from the global shortcut editor

---
 src/ce_editor.pas | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 52c37ba7..a6e6b475 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -282,13 +282,11 @@ end;
 
 procedure TCEPagesOptions.scedSendItem(const category, identifier: string; aShortcut: TShortcut);
 begin
-  if fShCount = 4 then
-    fShCount := 0;
-  case fShCount of
-    0: fNextPage := aShortcut;
-    1: fPrevPage := aShortcut;
-    2: fMoveLeft := aShortcut;
-    3: fMoveRight:= aShortcut;
+  case identifier of
+    'Select next page': fNextPage := aShortcut;
+    'Select previous page': fPrevPage := aShortcut;
+    'Move page left': fMoveLeft := aShortcut;
+    'Move page right': fMoveRight:= aShortcut;
   end;
 end;