From 6dd282d4e8895829ef6a1ae99539053349d3a9ff Mon Sep 17 00:00:00 2001
From: David Hedbor <david@hedbor.org>
Date: Fri, 2 Apr 1999 02:14:03 -0800
Subject: [PATCH] Small buggfix in backward_delete_word.
Rev: lib/modules/Stdio.pmod/Readline.pike:1.10
---
lib/modules/Stdio.pmod/Readline.pike | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/lib/modules/Stdio.pmod/Readline.pike b/lib/modules/Stdio.pmod/Readline.pike
index 8beab6d0ab..832be17e6e 100644
--- a/lib/modules/Stdio.pmod/Readline.pike
+++ b/lib/modules/Stdio.pmod/Readline.pike
@@ -1,4 +1,4 @@
-// $Id: Readline.pike,v 1.9 1999/04/02 09:57:59 neotron Exp $
+// $Id: Readline.pike,v 1.10 1999/04/02 10:14:03 neotron Exp $
class OutputController
{
@@ -659,7 +659,11 @@ class DefaultEditKeys
}
void backward_delete_word()
{
- _readline->delete(backward_find_word()+1, _readline->getcursorpos());
+ int sp = backward_find_word() + 1;
+ int ep = _readline->getcursorpos();
+ if((ep - sp) == 0)
+ sp--;
+ _readline->delete(sp, ep);
}
void kill_line()
@@ -726,6 +730,7 @@ class DefaultEditKeys
ic->bindstr(sprintf("%c", i), self_insert_command);
for(int i='\240'; i<='\377'; i++)
ic->bindstr(sprintf("%c", i), self_insert_command);
+
foreach(default_bindings, array(string|function) b)
ic->bind(@b);
}
--
GitLab