--- dialog.c.orig	1995-06-19 22:15:13 UTC
+++ dialog.c
@@ -130,8 +130,8 @@ void DeleteWord(w, event, params, num_pa
     Cardinal	 	i;
 
     textblock.firstPos = 0;
-    textblock.length   = 0;
-    textblock.ptr      = "";
+    textblock.length   = 1;
+    textblock.ptr      = " ";
 
     pos = XawTextGetInsertionPoint(w); 
     if (pos <= StartPos)
@@ -142,6 +142,30 @@ void DeleteWord(w, event, params, num_pa
     XawTextSetInsertionPoint(w, i);
 }
 
+/*  Erases the preceding word.
+ *  Simulates the action of the WERASE character (ctrl-W).
+ */
+/* ARGSUSED */
+void DeleteChar(w, event, params, num_params)
+    Widget w;
+    XEvent *event;
+    String *params;
+    Cardinal *num_params;
+{
+    XawTextBlock    	textblock;
+    XawTextPosition	pos;
+
+    textblock.firstPos = 0;
+    textblock.length   = 1;
+    textblock.ptr      = " ";
+
+    pos = XawTextGetInsertionPoint(w); 
+    if (pos > StartPos) {
+    	XawTextReplace(w, pos-1, pos, &textblock);
+    	XawTextSetInsertionPoint(w, pos-1);
+    }
+}
+
 
 /*  Deletes the entire current input line.
  *  simulates the action of the KILL character (ctrl-U).
@@ -159,8 +183,8 @@ void DeleteLine(w, event, params, num_pa
     char		*s;
 
     textblock.firstPos = 0;
-    textblock.length   = 0;
-    textblock.ptr      = "";
+    textblock.length   = 1;
+    textblock.ptr      = " ";
 
     pos = XawTextGetInsertionPoint(w); 
     if (w == dialogWindow) {
@@ -307,6 +331,7 @@ Widget parent;
 	{"SigQuit", 	(XtActionProc) SigQuit},
 	{"InsertSpace", (XtActionProc) InsertSpace},
 	{"Dispatch", 	(XtActionProc) Dispatch},
+	{"DeleteChar", 	(XtActionProc) DeleteChar},
         {NULL, NULL}
     };
 
@@ -316,10 +341,10 @@ Widget parent;
  	Ctrl<Key>|:	SigQuit()\n\
  	Ctrl<Key>W:	DeleteWord()\n\
  	Ctrl<Key>U:	DeleteLine()\n\
- 	Ctrl<Key>H:	InsertSpace() delete-previous-character()\n\
- 	<Key>Delete:	InsertSpace() delete-previous-character()\n\
- 	<Key>BackSpace:	InsertSpace() delete-previous-character()\n\
- 	<Key>Return:	newline() Dispatch()\n\
+ 	Ctrl<Key>H:	DeleteChar()\n\
+ 	<Key>Delete:	DeleteChar()\n\
+ 	<Key>BackSpace:	DeleteChar()\n\
+ 	<Key>Return:	newline()Dispatch()\n\
     ";
 
     n = 0;