Cancel dragging in Pearl by pressing Escape or Backspace.

2 files changed, 9 insertions, 3 deletions

diff --git a/pearl.c b/pearl.c
index 43afcd6..977577f 100644
--- a/pearl.c
+++ b/pearl.c
@@ -2058,6 +2058,11 @@ static char *interpret_move(const game_state *state, game_ui *ui,
 	}
     }
 
+    if (button == 27 || button == '\b') {
+        ui->ndragcoords = -1;
+        return "";
+    }
+
     if (release) {
         if (ui->ndragcoords > 0) {
             /* End of a drag: process the cached line data. */
diff --git a/puzzles.but b/puzzles.but
index 4ab0d0b..3af6516 100644
--- a/puzzles.but
+++ b/puzzles.but
@@ -2989,9 +2989,10 @@ white clue has to be a corner, but don't yet know which way the corner
 turns, you might mark the one way it \e{can't} go with a cross.)
 
 Alternatively, use the cursor keys to move the cursor.  Use the Enter
-key to begin and end keyboard `drag' operations.  Use the Space key to
-cancel the drag.  Or, hold Control while dragging with the cursor keys
-to toggle segments as you move between squares.
+key to begin and end keyboard `drag' operations.  Use the Space,
+Escape or Backspace keys to cancel the drag.  Or, hold Control while
+dragging with the cursor keys to toggle segments as you move between
+squares.
 
 Pressing Control-Shift-arrowkey or Shift-arrowkey simulates a left or
 right click, respectively, on the edge in the direction of the key.